Re^3: reg reggular expressions

in reply to Re^2: reg reggular expressions
in thread reg reggular expressions

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;
[download]

Comment on Re^3: reg reggular expressions Download Code

Replies are listed 'Best First'.
Re^4: reg reggular expressions by Anonymous Monk on Feb 09, 2012 at 07:37 UTC
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.	[reply]

In Section Seekers of Perl Wisdom