Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

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


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

Replies are listed 'Best First'.
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-16-1-3p 8
    i need to identify how many individal patterns are available; how many repeats are there for each individual. thank you


      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?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://952664]
[1nickt]: Corion HPs? ugh. I was impressed with Lenovo's gaming laptops; if it weren't for the red backlighting and general flashiness of the aesthetic, I might have gone with that. But all that was until I discovered that the Dell Precision line is still around.

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (15)
As of 2017-03-27 13:39 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (320 votes). Check out past polls.