[Bio] / Sprout / SaplingTest.pl Repository:
ViewVC logotype

Annotation of /Sprout/SaplingTest.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (view) (download) (as text)

1 : parrello 1.1 #!/usr/bin/perl -w
2 :    
3 : parrello 1.2 use strict;
4 : parrello 1.4 use Sapling;
5 :     use Tracer;
6 :     use Stats;
7 : parrello 1.3
8 : parrello 1.4
9 : parrello 1.6 open my $ih, "</Users/Bruce/Downloads/tax.dmp";
10 :     my $line = <$ih>;
11 :     if ($line =~ /(.+)\t\|\n$/) {
12 :     $line = $1;
13 : parrello 1.4 }
14 : parrello 1.6 my @list = split /\t\|\t/, $line;
15 :     print map {"$_\n" } @list;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3