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 follwing file comma delimited and strip out everything
> preceding the date?
>
> === My crack at the script ===
>
> use strict;
>
> while(<>) {
> s/\s/,/g;
> s/^.*?(\w{3} \w{3}\s+\d+.*)$/$1/; # modified slightly
> print;
> }
$ perl -le'
$text = "one ,two three, four,\t five";
print $text;
$text =~ tr/, \t/,/s;
print $text;
'
one ,two three, four, five
one,two,three,four,five
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
