my $line; while (<>) { chomp; if (m{^\d\d/\d\d/\d\d \d\d:\d\d:\d\d }) { print $line, "\n" if $line; $line = ''; } $line .= (' ' . $_); } print $line, "\n" if $line;
In reply to Re: File manipulation
by pc88mxer
in thread File manipulation
by Bennco99
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |