View compress_kate's_html.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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; |
View gpsout.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl -wl | |
use strict; | |
=head1 DESCRIPTION | |
Print out GPS coordinates from images | |
=head1 AUTHOR | |
Alexander Sapozhnikov |
View diff-colorizer
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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 |
View .gitignore
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
!Build/ | |
.last_cover_stats | |
/META.yml | |
/META.json | |
/MYMETA.* | |
*.o | |
*.pm.tdy | |
*.bs | |
# Devel::Cover |
View .gitignore
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
*.komodoproject | |
.komodotools | |
resize-mark.LOCAL.pl |
View README
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
View 2_td.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use Mojolicious::Lite; | |
get '/' => sub { | |
my $self = shift; | |
$self->render( | |
'template' => 'index', | |
'count' => int rand 33, | |
); |
View 3_td.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use Mojolicious::Lite; | |
get '/' => sub { | |
my $self = shift; | |
$self->render( | |
'template' => 'index', | |
'count' => int rand 33, | |
); |
View MyApp-Model-DBI.pm
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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'}, |
View list-png-not-symlink
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
perl -le 'while(<*.png>){next if -l;print}' |
OlderNewer