Skip to content

Instantly share code, notes, and snippets.

View jhannah's full-sized avatar

Jay Hannah jhannah

View GitHub Profile
@jhannah
jhannah / Omni2::View::Runner
Created February 17, 2010 21:41
MooseX::Workers in action
Here's my most recent stack...
View/System/ows/cache/runner.pl
View/Runner.pm
MooseX::Workers
Moose, POE
==========================================================
View/System/ows/cache/runner.pl
==========================================================
my $string = "abcdef";
my $newstring;
foreach my $letter (split //, $string) {
$newstring .= "[$letter]";
}
print "$newstring\n";
use strict;
use diagnostics;
use warnings;
use IPC::System::Simple qw(run system capture EXIT_ANY);
use WWW::Search;
$SIG{ALRM} = sub { die "timeout" };
my $random_word = random_dictionary_word();
my $oSearch = new WWW::Search('MSN');
use strict;
use warnings;
use diagnostics;
my %weeks;
open my $fh, "<", "weekConverter.txt" or die "Can't open weeks file: $!";
while (<$fh>) {
chomp;
my ($date, $week) = split /\t/;
}
jhannah@cplreynoldslpt:~/src/bioperl-live$ git diff origin/master dbolser/master --stat
Bio/Annotation/DBLink.pm | 25 ++-
Bio/DB/GFF.pm | 26 ++-
Bio/DB/GFF/Adaptor/dbi.pm | 303 ++++++++++++++++++++++++
Bio/DB/GFF/Adaptor/dbi/mysql.pm | 39 +++-
Bio/DB/GFF/Adaptor/dbi/oracle.pm | 13 +-
Bio/DB/GFF/Adaptor/dbi/pg.pm | 16 ++-
Bio/DB/SeqFeature/Store.pm | 40 ++++
Bio/DB/SeqFeature/Store/DBI/mysql.pm | 145 ++++++------
Bio/Location/Simple.pm | 10 +-
jhannah@jaysnet-MacBook:~/src/bioperl-live/t/SeqFeature$ cat Store-SQLite.t
use Test::More tests => 2;
use strict;
use Bio::SeqIO;
use Bio::DB::SeqFeature::Store;
my $db = Bio::DB::SeqFeature::Store->new(
-adaptor => 'DBI::SQLite',
-dsn => 'test.sqlite',
jhannah@klab:~/src/sandbox/Lynx_$ perl go.pl input.blastout
Indexing blast files.
kb8_rep_c1
jhannah@klab:~/src/sandbox/Lynx_$ perl go.pl input.blastout
Indexing blast files.
--------------------- WARNING ---------------------
MSG: File /home/jhannah/src/sandbox/Lynx_/input.blastout already indexed. Skipping...
---------------------------------------------------
kb8_rep_c1
So let's put some potential locations down for meet up with a few criteria:
1) Non-smoking.
1.2) MOAR TAMALES
2) Not too loud.
3) Somewhat affordable.
3) One or two locations per quadrant of the metroplex.
Potential locations for DFW.pm social meet up:
#!/usr/bin/perl
use strict;
use warnings;
$site = "http://sample.com";
$testcommand = "test command";
print "SAMPLE\n";
Base();
@jhannah
jhannah / gist:705604
Created November 18, 2010 20:59
YAPC A/V
From: Heath Bair <bairhc@gmail.com>
Date: November 17, 2010 1:36:38 PM CST
To: Jay Hannah <jhannah@mutationgrid.com>
Subject: Re: YAPC::NA::2011 t-shirts
Reply-To: bairhc@gmail.com
Jay
Just an FYI, if you can pass this on to people. I have 1 of the 2, 1
TB external disks for storing videos from YAPC. Jon Hogue has the