davorg

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my %data;

open my $fh2, '<', 'file2.txt' or die $!;

davorg

### Keybase proof

I hereby claim:

  * I am davorg on github.
  * I am davorg (https://keybase.io/davorg) on keybase.
  * I have a public key whose fingerprint is 4D8C A086 7A90 F3F0 AD97  F554 2A0F E00B D8E3 5D11

To claim this, I am signing this object:

davorg

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my %letter;
@letter{'a' .. 'z'} = reverse 'a' .. 'z';

open my $word_fh, '<', '/usr/share/dict/words' or die $!;

davorg

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
use LWP::UserAgent;

$|++;

davorg

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Text::ParseWords;
use List::Util 'max';

my $file = shift || die "Need a csv file to process\n";

davorg

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use LWP::Simple;

my $url = 'http://www.postoffice.co.uk/track-trace?trackNumber=XX' .
          '&page_type=rml-tracking-details';

davorg

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

# Define allowed operations
my %operation = (
  '>' => sub { $_[0] > $_[1] },
  '<' => sub { $_[0] < $_[1] },

davorg

#!/usr/bin/perl

use strict;
use warnings;
use Time::Piece;

my $src_file = 'ABC.txt';

my $t = localtime;
open my $in_fh, '<', $src_file

davorg

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

BEGIN {
    no strict 'refs';
    use Symbol ();
    use Devel::Peek;

davorg

#!/usr/bin/perl

use warnings;
use strict;

while(<DATA>) {
  chomp;

  my $flag = 1;
  foreach my $i (2 .. sqrt($_)) {