Skip to content

Instantly share code, notes, and snippets.

View briandfoy's full-sized avatar

brian d foy briandfoy

504 followers · 1 following
View GitHub Profile
@briandfoy
briandfoy / mojo_static_with_default_index.pl
Last active October 26, 2017 10:29
A small static file server with a default index file, in Mojolicious
#!/Users/brian/bin/perls/perl5.20.0
use v5.10;
say "ARGV is @ARGV";
use Mojolicious::Lite;
my $default_index = 'index.html';
@briandfoy
briandfoy / ouch-benchmark.pl
Created September 22, 2014 17:30
A benchmark to find the first problem in a list
#!/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
briandfoy / toady.pl
Created December 31, 2014 19:50
#!/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
briandfoy / perlybot_test
Created August 22, 2015 19:17
Perly test
#!/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
briandfoy / content-type-discovery.pl
Created August 29, 2015 22:13
#!/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
briandfoy / mojo-content-type-discovery.pl
Created August 30, 2015 16:53
#!/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
briandfoy / amazon_itemid.pl
Created September 3, 2015 08:37
Look up an item based on Amazon ID
#!/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
briandfoy / mojo-ua-post-process.pl
Last active September 8, 2015 17:45
Mojo::UserAgent post-request processing to add meta charset
#!/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
briandfoy / find_env_vars.pl
Last active June 6, 2016 14:43
Find all the environment variables you might use in Perl. There are are false positives here, but so what.
use File::Find;
use List::MoreUtils qw(uniq);
use v5.22;
use feature qw(postderef signatures);
no warnings qw(experimental::postderef experimental::signatures);
use Data::Dumper;
use PPI::Document;
use PPI::Dumper;
@briandfoy
briandfoy / makefile
Created January 29, 2016 20:30
CC = clang
LD = clang
AR = ar
MAKE = make
PERL = /usr/local/bin/perl
RM = rm -f
CAT = cat
SHELL = /bin/sh
LUA = ./3rdparty/dynasm/minilua
CP = $(PERL) -MExtUtils::Command -e cp