Skip to content

Instantly share code, notes, and snippets.

View davorg's full-sized avatar
💭
Perlin'

Dave Cross davorg

💭
Perlin'
255 followers · 48 following
View GitHub Profile
@davorg
davorg / hash_data
Created June 28, 2013 10:38
Add an MD5 hash to lines of data that have already been seen.
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use Digest::MD5 'md5_hex';
my %seen;
while (<DATA>) {
@davorg
davorg / prime.pl
Created April 20, 2013 16:53
Simple prime checker
#!/usr/bin/perl
use warnings;
use strict;
while(<DATA>) {
chomp;
my $flag = 1;
foreach my $i (2 .. sqrt($_)) {
@davorg
davorg / copy_file.pl
Created November 29, 2012 09:58
Copy file contents to new file named using timestamp
#!/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
davorg / dispatch.pl
Created November 12, 2012 09:16
Simple dispatch table example
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
# Define allowed operations
my %operation = (
'>' => sub { $_[0] > $_[1] },
'<' => sub { $_[0] < $_[1] },
@davorg
davorg / po-trace
Created August 14, 2012 14:31
Command line program to check recorded post via the UK Post Office
#!/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
davorg / mysql-import
Created March 9, 2012 16:43
Create MySQL Table Definition and Insert Statements From CSV
#!/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
davorg / vote.pl
Created September 25, 2011 18:03
This appears to be all you need to polljack a Daily Mail poll.
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
use LWP::UserAgent;
$|++;