in reply to Re: Searching for files efficiently help!
in thread Searching for files efficiently help!

I have a question for you, if the values in this array @filelist was like this:my @filelist = qw(88732 99877 76211); I would have to match if these values are part of these file names in array @files, how would the regular expression be in this case. In another words matching values from @filelist against values in in the array @files that would be like this: my @files = qw(99877_bc_20101000.txt 99877_xy_20111111.txt 76211_bc_20101000.txt);
I hope I was clear on that. Thanks!

Replies are listed 'Best First'.
Re^3: Searching for files efficiently help!
by hbm (Hermit) on Nov 16, 2011 at 19:45 UTC

    If I understand, you can simply narrow your regex to match up to the first underscore, and see if that 'exists': 

    foreach my $files(@files) {
  $c++;  

  if($files=~m|.*/([^_]+)|) {
    $f_name = $1;
  }

  if (exists $filelist{$f_name}) {
   print "$c - Found and to be deleted: $files\n";
  }


}

    [download]

    I might go as far as: 

    for (@files) {
  $c++;  

  if(m|.*/([^_]+)| && exists $filelist{$1} ) {
     print "$c - Found and to be deleted: $_\n";
  }
}

    [download]
[reply]
[d/l]
[select]
      I like this, thanks very much!
[reply]
Re^3: Searching for files efficiently help!
by Anonymous Monk on Nov 16, 2011 at 19:24 UTC
    In this case I would put back the second foreach loop: 
      foreach my $chk_file(@filelist) {
      #if($chk_file=~/$f_name/) {
      if($f_name=~/$chk_file/) {      
        print "$c - Found and to be deleted: $files\n";
      }
   }

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom