http://qs1969.pair.com?node_id=548215


in reply to Deleting lines prior to a date!

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.


-----------------
s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p1;so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;