Re: Use of grep and foreach


Perl: the Markov chain saw
	PerlMonks

Re: Use of grep and foreach

by crouchingpenguin (Priest)

on Aug 11, 2003 at 14:22 UTC ( [id://282885]=note: print w/replies, xml )

Need Help??

in reply to Use of grep and foreach

Give this a try:

#!/usr/bin/perl
use strict;
use warnings;
use Tie::File;

my @file;
tie @file, 'Tie::File', '/tmp/filename'
  or die "Failed to tie file: $!";

foreach my $matching_line ( grep { m/^myLine/ } @file ){
  $matching_line =~ s/^myLine/this_was_a_match/;
}
[download]

cp
----
"Never be afraid to try something new. Remember, amateurs built the ark. Professionals built the Titanic."