Alexander Sapozhnikov shoorick

## accordion-vertical-css3-transition.html
<!DOCTYPE html>
<html>
    <head>
        <title>CSS3 Transition - Accordion sample</title>
        <!-- 2012-01-10 - Alexander Sapozhnikov - http://shoorick.ru/ -->
        <style>
            body {
                font-family: "Liberation Sans",sans-serif;
                color: #000;
                background-color: #fff;

## link-extractor.pl
#!/usr/bin/perl -nl

print $1 while m!(http://example.com/[^" >]+)!g

## arbitrary-sort.pl
#!/usr/bin/perl -l
#      COMPANY:  South Ural State University
#      CREATED:  09/20/2011 02:09:31 AM

use strict;
use warnings;

=head1 USAGE

 ./sort.pl

## scalar-assign.pl
#!/usr/bin/perl -l

my @array = qw( alice bob charlie daddy elf );
print @array; # alicebobcharliedaddyelf
my $size = @array;
print $size;  # 5, same as length @array

## lingua-translit-russian.pl
#!/usr/bin/perl

use Lingua::Translit;

my $sample = 'Эй, жлоб! Где туз? Прячь юных съёмщиц в шкаф.';
my $tr;

for ( 'ALA-LC RUS', 'ISO 9', 'DIN 1460 RUS', 'GOST 7.79 RUS', 'GOST 7.79 RUS OLD' ) {
    $tr = new Lingua::Translit( $_ );
    printf "%17s  %s\n", $_, $tr->translit( $sample );

## tab-separated-fields-as-pod-list.sh
head -n 1 tab-separated.txt \
| perl -na -F'\t' \
  -e 'map { printf "=item %d\n\n%s / %s\n\n", $i++, chr(0x40+$i), $_ } @F '

## list-png-not-symlink
perl -le 'while(<*.png>){next if -l;print}'

## MyApp-Model-DBI.pm
package MyApp::Model::DBI;

use strict;
use warnings;
use base 'Catalyst::Model::DBI';

# skipped some configuration statements

__PACKAGE__->config(
    'dsn'       => 'dbi:mysql:' . $config->{'sql'}->{'database'} . ':' . $config->{'sql'}->{'host'},

## 3_td.pl
#!/usr/bin/env perl

use Mojolicious::Lite;

get '/' => sub {
    my $self = shift;
    $self->render(
        'template'  => 'index',
        'count'     => int rand 33,
    );

## 2_td.pl
#!/usr/bin/env perl

use Mojolicious::Lite;

get '/' => sub {
    my $self = shift;
    $self->render(
        'template'  => 'index',
        'count'     => int rand 33,
    );
	<!DOCTYPE html>
	<html>
	<head>
	<title>CSS3 Transition - Accordion sample</title>
	<!-- 2012-01-10 - Alexander Sapozhnikov - http://shoorick.ru/ -->
	<style>
	body {
	font-family: "Liberation Sans",sans-serif;
	color: #000;
	background-color: #fff;
	#!/usr/bin/perl -nl

	print $1 while m!(http://example.com/[^" >]+)!g
	#!/usr/bin/perl -l
	# COMPANY: South Ural State University
	# CREATED: 09/20/2011 02:09:31 AM

	use strict;
	use warnings;

	=head1 USAGE

	./sort.pl
	#!/usr/bin/perl -l

	my @array = qw( alice bob charlie daddy elf );
	print @array; # alicebobcharliedaddyelf
	my $size = @array;
	print $size; # 5, same as length @array
	#!/usr/bin/perl

	use Lingua::Translit;

	my $sample = 'Эй, жлоб! Где туз? Прячь юных съёмщиц в шкаф.';
	my $tr;

	for ( 'ALA-LC RUS', 'ISO 9', 'DIN 1460 RUS', 'GOST 7.79 RUS', 'GOST 7.79 RUS OLD' ) {
	$tr = new Lingua::Translit( $_ );
	printf "%17s %s\n", $_, $tr->translit( $sample );
	head -n 1 tab-separated.txt \
	\| perl -na -F'\t' \
	-e 'map { printf "=item %d\n\n%s / %s\n\n", $i++, chr(0x40+$i), $_ } @F '
	package MyApp::Model::DBI;

	use strict;
	use warnings;
	use base 'Catalyst::Model::DBI';

	# skipped some configuration statements

	__PACKAGE__->config(
	'dsn' => 'dbi:mysql:' . $config->{'sql'}->{'database'} . ':' . $config->{'sql'}->{'host'},
	#!/usr/bin/env perl

	use Mojolicious::Lite;

	get '/' => sub {
	my $self = shift;
	$self->render(
	'template' => 'index',
	'count' => int rand 33,
	);