Re: Deleting lines prior to a date!

[SamCG]

Look at Date::Calc for date arithmetic. You could print out only the lines you want to a separate file, then delete or back up the original.

[Anonymous Monk]

How would I print the whole line:


    open(FILE, $path) or die "Can't open $path: $!";
    while (<FILE>) {
        $lines++;
        if($_=~/(.*)(2006-5-9)(.*?)/gs){print "Line $lines - found = $
+1$2^^^^^ $3^^^^^<br>";}
    }
    close FILE;