Help for this page

Select Code to Download

Select or download this

sysopen (FILE,$filename,O_RDONLY) or die "Error! $!\n";
my (@slurp) = <FILE>;
close FILE;

foreach my $foo (@slurp) { unless ($foo =~ /fubar/i) {print $foo; } }

Select or download this

sysopen (FILE,$filename,O_RDONLY) or die "Error! $!\n";
my (@slurp) = <FILE>;
...
my (@lines) = grep !/fubar/, @slurp;

foreach my $foo (@lines) { print $foo; }