shoorick

#!/usr/bin/perl -pw
use strict;

s{#([[:xdigit:]])\1([[:xdigit:]])\2([[:xdigit:]])\3}{#$1$2$3}g;
s{<(b|i|em|strong)></\1>}{}gi;
s{</(b|i|em|strong)><\1>}{}gi;

shoorick

#!/usr/bin/perl -wl
use strict;

=head1 DESCRIPTION

Print out GPS coordinates from images

=head1 AUTHOR

Alexander Sapozhnikov

shoorick

#!/usr/bin/perl -n

use Term::ANSIColor;

print colored( $_, 'red'   )     and next if /^</;
print colored( $_, 'green' )     and next if /^>/;
print colored( $_, 'bold blue' ) and next if /^[\d,]+[acd][\d,]+$/;
print;

=head1 NAME

shoorick

!Build/
.last_cover_stats
/META.yml
/META.json
/MYMETA.*
*.o
*.pm.tdy
*.bs

# Devel::Cover

shoorick

*.komodoproject
.komodotools
resize-mark.LOCAL.pl

shoorick

Example if gettext usage via Locale::TextDomain

How to use:

0. cd po && make

1. ../example/1.pl
   or
   env LANGUAGE=ru ../example/1.pl
   or

shoorick

#!/usr/bin/env perl

use Mojolicious::Lite;

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

shoorick

#!/usr/bin/env perl

use Mojolicious::Lite;

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

shoorick

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'},

shoorick

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