Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: How can I get the results in a text file from counting in a string?

by johngg (Abbot)
on Aug 07, 2012 at 22:30 UTC ( #986094=note: print w/ replies, xml ) Need Help??


in reply to How can I get the results in a text file from counting in a string?

You can use a HoH structure to hold the results and then print them out to your file afterwards, sorting the keys in nested loops.

[johngg@justy Documents]$ perl -Mstrict -Mwarnings -MData::Dumper -E ' > my $str = q{BATCATDATEFEAT}; > my %res; > $res{ $_ } = do { > my $ct = 0; > my $rhPosns = {}; > $rhPosns->{ ++ $ct } = pos $str > while $str =~ m{$_}g; > $rhPosns; > } for qw{ A T }; > print Data::Dumper > ->new( [ \ %res ], [ qw{ *res } ] ) > ->Sortkeys( 1 ) > ->Dumpxs(); > foreach my $let ( sort keys %res ) > { > foreach my $seq ( sort { $a <=> $b } keys %{ $res{ $let } } ) > { > say qq{$let=$seq ends at $res{ $let }->{ $seq }}; > } > }' %res = ( 'A' => { '1' => 2, '2' => 5, '3' => 8, '4' => 13 }, 'T' => { '1' => 3, '2' => 6, '3' => 9, '4' => 14 } ); A=1 ends at 2 A=2 ends at 5 A=3 ends at 8 A=4 ends at 13 T=1 ends at 3 T=2 ends at 6 T=3 ends at 9 T=4 ends at 14 [johngg@justy ~]$

I hope this is of interest.

Cheers,

JohnGG


Comment on Re: How can I get the results in a text file from counting in a string?
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://986094]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (9)
As of 2014-08-27 22:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (253 votes), past polls