Re: Pattern Match in @array

Just loop over the array, one element at a time:

my $found;

for (@list) {
  last if $found = /pattern/;
}

if (!$found) {
  open FILE, "> $filename";
  close FILE;
}
[download]

Comment on Re: Pattern Match in @array Download Code

Replies are listed 'Best First'.
Re: Re: Pattern Match in @array by azatoth (Curate) on Jun 11, 2001 at 20:28 UTC
Excellent. The `last` block is what I was looking for, but couldn't place. Also, for what it's worth, I can't believe I couldn't remember to use filehandles to create the file... Azatoth a.k.a Captain Whiplash Make Your Die Messages Full of Wisdom! Get YOUR PerlMonks Stagename here! Want to speak like a Londoner?	[reply] [d/l]
Re: Re: Pattern Match in @array by srawls (Friar) on Jun 11, 2001 at 23:40 UTC
I may be going against the advice of mirod : "correct a mistake by a high-ranking monk: yeah, like anybody's going to believe you!" but oh well : ) Actually, I believe (I may be wrong, it wasn't too clear), that the poster has an array of files, and he wants to check each one against a pattern, and if it doesn't match, then he will make the file. If the first file in the area of your example is good, the whole thing stops. Merely change that last to a next, and open the file right after you write next: `for (@files) { next if /pattern/; #file didn't match pattern, so create it open(FH,">$_"); #do something with FH }` [download] The 15 year old, freshman programmer, Stephen Rawls	[reply] [d/l]