briandfoy

#!/usr/bin/env perl
use strict;
no strict 'refs';

my ($VERSION) = '$Revision: 1.2 $' =~ /([.\d]+)/;

my (@fh, $i);

my @sep = ( "\t" );
my $dash_ess = 0;

briandfoy

#!/usr/bin/perl -s

use vars qw($b);

my @start_sizes = map { -s $_ } @ARGV;

foreach my $file ( @ARGV ) {
        if( -d $file ) {
                warn "Skipping directory [$file]!\n";
                next;

briandfoy

#!/usr/bin/perl

# http://blogs.perl.org/users/jt_smith/2014/09/logically-and-yourself.html

use strict;
use Ouch;
use Benchmark qw(:all);
use List::MoreUtils qw(any);

use v5.10;

briandfoy

#!/usr/bin/env perl
BEGIN {
	my $home = $ENV{HOME};
	%ENV = ();
	$ENV{PATH} = '/usr/bin:/usr/local/bin';
	$ENV{HOME} = $home;
	}

use Mojolicious::Lite;
use Data::Dumper;

briandfoy

#!/Users/brian/bin/perls/perl5.22.0
 
use utf8;
use Encode qw(encode decode);
use v5.10;
use open qw(:std :utf8);
use Data::Dumper;
use HTTP::Tiny;
use Devel::Peek;

briandfoy

#!/Users/brian/bin/perls/perl5.22.0
use open qw(:std :utf8);
use v5.10;
use HTTP::Tiny;
use Devel::Peek qw(Dump);
use Encode qw(decode find_encoding);
use HTML::HeadParser;

my $ht = HTTP::Tiny->new;

briandfoy

#!/Users/brian/bin/perls/perl5.22.0
use open qw(:std :utf8);
use v5.10;
use Mojo::UserAgent;
use Devel::Peek qw(Dump);
use Encode qw(decode find_encoding);
use HTML::HeadParser;

my $ua = Mojo::UserAgent->new;

briandfoy

#!/Users/brian/bin/perls/perl5.22.0
use v5.22;
use experimental qw(postderef);
no warnings qw(experimental::postderef);

use strict;
use warnings;
use URI::Amazon::APA;
use Mojo::UserAgent;
use XML::Simple;

briandfoy

#!/Users/brian/bin/perls/perl5.22.0
use v5.20;

use feature qw(signatures);
no warnings qw(experimental::signatures);

use Data::Dumper;
use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new;

briandfoy

use 5.010;
use Data::Dumper;

my %hash;

while( my $line = <DATA> ) {
	chomp $line;

	given ( $line ) {