DaveMessina

# .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";

DaveMessina

#!/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 =

DaveMessina

#!/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';

DaveMessina

#!/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' );