Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: reg reggular expressions

by kielstirling (Scribe)
on Feb 09, 2012 at 06:41 UTC ( #952664=note: print w/ replies, xml ) Need Help??


in reply to reg reggular expressions

Hi,

This is a very vague question. Supply more details and some example code and I'll try to help you.


Comment on Re: reg reggular expressions
Re^2: reg reggular expressions
by Anonymous Monk on Feb 09, 2012 at 06:52 UTC

    if the file is like this..
    mmu-miR-16-1-3p 8
    mmu-miR-1-1-3p 8
    mmu-miR-500
    mmu-miR-16-1-3p 8
    i need to identify how many individal patterns are available; how many repeats are there for each individual. thank you

      Hi,

      I would use a hash..

      #!/usr/bin/perl -w use strict; my @files = ( "mmu-miR-16-1-3p 8", "mmu-miR-1-1-3p 8", "mmu-miR-500", "mmu-miR-16-1-3p 8" ); my %pattern_count; map $pattern_count{$_}++, @files; print "filename $_ patten count $pattern_count{$_}\n" for keys %pattern_count;

        ya this seems to be a better option. however i cant give each pattern individually in quotes so i ll make it read from a file. thank you.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (7)
As of 2014-08-29 10:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (280 votes), past polls