Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

davido's scratchpad

by davido (Archbishop)
on Jun 01, 2004 at 17:18 UTC ( #358273=scratchpad: print w/ replies, xml ) Need Help??

use strict; use warnings; use Data::Dumper; use v5.20; use feature 'signatures'; no warnings 'experimental'; print Dumper sub ($rs,$fh){ local $/ = $rs; return { map { sub ($k,$v) { length $k ? do{ $v =~ tr/\n//d; ($k,$v) } : (); }->( (undef,undef) = m/^(\N+)\n([CTGA\n]+)$/m ); } <$fh> }; }->('>',\*DATA); __DATA__ >sequence_5849 CCTGCGGAAGATCGGCACTA GAATAGCCAGAACCGTTTCT CTGAGGCTTCCGGCCTTCCC TCCCACTAATAATTCTGAGG >sequence_5959 CCATCGGTAGCGCATCCTTAGTCCAATTAAGTCCCTATCCAGGCGCTCCGCCGAAGGTCTATATCCATTT +GTCAGCAGACACGC >sequence_0808 CCACCCTCGTGGTATGGCTAGGCATTCAGGAACCGGAGAACGCTTCAGACCAGCCCGGACTGGGAACCTG +CGGGCAGTAGGTGGAAT
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (9)
As of 2014-11-27 18:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (187 votes), past polls