This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 | |
========================================================== |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
my $string = "abcdef"; | |
my $newstring; | |
foreach my $letter (split //, $string) { | |
$newstring .= "[$letter]"; | |
} | |
print "$newstring\n"; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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'); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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/; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 +- |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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', |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
$site = "http://sample.com"; | |
$testcommand = "test command"; | |
print "SAMPLE\n"; | |
Base(); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |