This file contains hidden or 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
# Configuration file for the color ls utility | |
# This file goes in the /etc directory, and must be world readable. | |
# You can copy this file to .dir_colors in your $HOME directory to override | |
# the system defaults. | |
# COLOR needs one of these arguments: 'tty' colorizes output to ttys, but not | |
# pipes. 'all' adds color characters to all output. 'none' shuts colorization | |
# off. | |
# | |
COLOR all |
This file contains hidden or 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/end perl | |
use strict; | |
use warnings; | |
use Data::Dumper; | |
my $hist = sub { | |
my $input = shift; | |
if ($input and $input =~ /^\d+$/) { |
This file contains hidden or 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 strict; | |
use warnings; | |
use Child; | |
use Data::Dumper; | |
use Sereal::Encoder; | |
use Sereal::Decoder; |
This file contains hidden or 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 Mojo::IOLoop; | |
use POSIX; | |
# Start at sec % 5 == 0 | |
Mojo::IOLoop->timer((5 - (localtime)[0] % 5) => sub { | |
# Perform operation every 5 seconds | |
Mojo::IOLoop->recurring(5 => sub { | |
my $loop = shift; |
This file contains hidden or 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
#!/bin/sh | |
alias rm='rm -i' | |
alias mv='mv -i' | |
alias cp='cp -i | |
alias plack-app-dir="plackup -MPlack::App::Directory -e 'my \$app = Plack::App::Directory->new({ root => \"\$ENV{HOME}/public\" })->to_app;'" |
This file contains hidden or 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 strict; | |
use warnings; | |
use Data::Dumper; | |
use Mojo::URL; | |
use Mojo::UserAgent; | |
my $ua = Mojo::UserAgent->new->max_redirects(3); |
This file contains hidden or 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 strict; | |
use warnings; | |
if (@ARGV < 1) { | |
print "usage: $0 <file>\n"; | |
exit 0; | |
}; |
This file contains hidden or 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 strict; | |
use warnings; | |
use Try::Tiny; | |
use Benchmark qw(cmpthese); | |
use JSON::XS (); | |
use Cpanel::JSON::XS (); | |
use JSON::Tiny; |
This file contains hidden or 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 strict; | |
use warnings; | |
use File::Copy; | |
use Path::Iterator::Rule; | |
unless ($ARGV[0]) { | |
print "usage: $0 <directory>\n"; |
This file contains hidden or 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 strict; | |
use warnings; | |
use DBI; | |
use Data::Dumper; | |
use Geohash; | |
use Text::CSV; |