implement it in elegant way

Suppose I want to scan a set of files and see if each of them contains certain patterns
26 patterns altogether).
Finally print the all name of files containing pattern_a,all name of file containing file_b etc...

My stupid program is like:

.......

foreach $f (@files){
  $name=$f;
  $open(FILE,$f)|| die "cannot open";

  while (<FILE>){
     if ($_ eq /pattern_a/){
       push(@list_a,$name);
     }elsif($_ eq /pattern_b){
       push(@list_b,$name);
     }elsif($_ eq /pattern_c){
       push(@list_c,$name);
     }elsif   ....
            .....

     }elsif($_ eq /pattern_z){
       push(@list_z,$name);
     }

  }
}

  printf "files containing pattern_a: @list_a\n";
  printf "files containing pattern_b: @list_b\n";
   ......
   ......
  printf "files containing pattern_z: @list_z\n";

-----------------------------------------------------------
However, I would like to implement it like
   
         ........
       foreach $f (@files){
          $name=$f;
          $open(FILE,$f)|| die "cannot open";

          while (<FILE>){
            if (exists $pattern{$_}{
                push(@list($_),$name)  ## This is illegal!!!
            }      ## or append filename to $pattern{$_},                     ###but how to do it
         }
       }
          ........

Can anyone there enlighten me or provide more elegant code? Thank you in advance.
tianAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
b2piConnect With a Mentor Commented:
Essentially, you want @list to be a list of lists, yes?  The following may work for you...


push(@$list{$_}, $name);

Alternatively, if you want to add the list of files containing a pattern to %patterns, you could do

push(@{$patterns{$_}}, $f);

0
 
ozoCommented:
push @{$list{$_}},$name;

0
 
ozoCommented:
## or append filename to $pattern{$_},
$pattern{$_}.=$f;
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.