Skip to content

Instantly share code, notes, and snippets.

View jberger's full-sized avatar

Joel Berger jberger

241 followers · 68 following
View GitHub Profile
@jberger
jberger / flot.pl
Created July 30, 2012 21:54
PerlTuts plotting using flot example
#!/usr/bin/env perl
## This script expects to find the following files in the folder 'public' in the current directory
# jquery-1.7.2.min.js
# bootstrap.min.js
# bootstrap.min.css
# jquery.flot.min.js
# codemirror.js # 2.32
# codemirror.css
# perl.js # codemirror mode
@jberger
jberger / gist:3379468
Created August 17, 2012 14:55
Towards a nicer slice
#!/usr/bin/env perl
use strict;
use warnings;
package PDL;
use overload '&{}' => sub {
my $pdl = shift;
my $slice = $pdl->can('slice');
return sub { unshift @_, $pdl; goto $slice };
@jberger
jberger / math.tex
Created September 5, 2012 18:37
Math in LaTeX
\documentclass{article}
\usepackage{pgf}
\begin{document}
\pgfmathparse{int(1+1)}
The result of $ 1 + 1 $ is \pgfmathresult.
Read more in the \verb!pgfmaual! (type \verb!texdoc pgfmanual!).
@jberger
jberger / html4.pl
Created October 5, 2012 18:57
HTML4 comment causes havoc in Mojo::DOM tree
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Mojo::DOM;
use HTML::TreeBuilder;
my $content = <<'EOF';
<html>
<body>
@jberger
jberger / mojo-tex.pl
Created October 18, 2012 16:30
LaTeX templating using Mojo::Template
#!/usr/bin/env perl
use strict;
use warnings;
use Mojo::Template;
my $mt = Mojo::Template->new(
comment_mark => '%',
line_start => '@',
@jberger
jberger / gist:3916068
Created October 19, 2012 03:28
darabase app example
#!/usr/bin/env perl
use Mojolicious::Lite;
# connect to database
use DBI;
my $dbh = DBI->connect("dbi:SQLite:database.db","","") or die "Could not connect";
# shortcut for use in template
helper db => sub { $dbh };
@jberger
jberger / EPRenderer.pm
Created October 26, 2012 20:41
EPRenderer with template_class option
package Mojolicious::Plugin::EPRenderer;
use Mojo::Base 'Mojolicious::Plugin';
use Mojo::Template;
use Mojo::Util qw(encode md5_sum);
use Scalar::Util ();
sub register {
my ($self, $app, $conf) = @_;
@jberger
jberger / gist:3969742
Created October 28, 2012 20:15
text_after a certain h4
#!/usr/bin/env perl
use strict;
use warnings;
use v5.10;
use Mojo::DOM;
my $dom = Mojo::DOM->new( <<'HTML' );
<div class="txt-block">
<h4 class="inline">Opening Weekend:</h4>
@jberger
jberger / gist:3976227
Created October 29, 2012 20:12
data from imdb
#!/usr/bin/env perl
use strict;
use warnings;
use v5.10;
use Mojo::DOM;
my $dom = Mojo::DOM->new( <<'HTML' );
<table border="0" cellpadding="2">
<tbody><tr><th class="xxxx">Country</th><th class="xxxx">Date</th></tr>
@jberger
jberger / gist:4234524
Created December 7, 2012 16:40
CTA API example
#!/usr/bin/env perl
use strict;
use warnings;
use v5.10;
{
package Webservice::CTA;
use Mojo::Base -base;