27 Jul
2001
27 Jul
'01
3:17 a.m.
Sometime today, Mayur Joshi wrote:
open(RH,"</root/sandeep/log111.txt"); while(<RH>) { if($_ =~ /##Date/) { $flag = 1; } else { $flag = 0; } if($flag eq 1) { ($str1, $str2) = split(/ /, $_); $date = $str2; } }
Or, from the command line,
perl -ne 's/^Date## +(.+)$/$1/ && print $_' </root/sandeep/log111.txt
Manish
--
Some people manage by the book, even though they don't know who
wrote the book or even what book.