Help for this page
... my $fn = 'data.dat'; ... { local $/; $stuff = <$fh> } close $fh; ...
... while( $stuff =~ /^ (\d+): \s+ # the number xx: => $1 ... print join "\n\n", $locus, $name, $kegg, $func, $proc, $comp; } ...
www.com | www.net | www.org
No recent polls found