#!/usr/local/bin/perl my @fileslurp = (); my $datefld = ""; my $testdate = "200208"; my $newline = "Not the old date\n"; my $thisfile = "/var/tmp/junk.log"; open (FILE,"$thisfile"); @fileslurp = <FILE>; close FILE; ($datefld) = split(/ /,@fileslurp[$#fileslurp]); @fileslurp[$#fileslurp] = $newline if ($datefld eq "$testdate") ; foreach $x (@fileslurp) { print $x; }
In reply to Re: search and replace last line
by waswas-fng
in thread search and replace last line
by kevinw
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |