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
# .bashrc | |
# Source global definitions | |
if [ -f /etc/bashrc ]; then | |
. /etc/bashrc | |
fi | |
# Perl setup | |
export PERL_LOCAL_LIB_ROOT="$HOME/perl5"; | |
export PERL_MB_OPT="--install_base $HOME/perl5"; |
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 5.008; | |
use strict; | |
use Memoize; | |
# by Aristotle Pagaltzis <http://stackoverflow.com/users/9410/aristotle-pagaltzis> | |
# taken from thread http://stackoverflow.com/questions/223678/git-which-commit-has-this-blob | |
# on 6 june 2010 | |
my $usage = |
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 | |
# $Id$ | |
# created by Dave Messina on 2010-04-28 | |
use Modern::Perl; | |
use Devel::Size qw(total_size); | |
my %hash; | |
say "Empty: ", total_size (\%hash), ' bytes'; |
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 Bio::Restriction::EnzymeCollection; | |
use Bio::Restriction::IO; | |
my $io = Bio::Restriction::IO->new('-format' => 'withrefm', | |
'-current' => 1); | |
my $rebase_collection = $io->read; | |
my $re = $rebase_collection->get_enzyme( 'EcoRI' ); |