Mike Singleton wrote:
>
> How would I remove all the space and replace them with commas, but where there is
>more than one space in a row, only replace those with one comma? In other words make
>the following file comma delimited and strip out everything preceding the date?
<snip />
Do you mean, like this?
#! perl -w
use strict;
use warnings;
while (<>) {
chomp;
s!^([^\s]+\s+){2}!!;
s!\s+!,!g;
print $_, "\n";
}
exit 0;
--
Best Regards,
mds
mds resource
888.250.3987
Dare to fix things before they break . . .
Our capacity for understanding is inversely proportional to how much we
think we know. The more I know, the more I know I don't know . . .
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
