Re: [MacPerl-AnyPerl] Speed of reformatting large file

At 16:46 -0400 2001.07.31, Adam Witney wrote:
>I have a file which contains about 45000 lines of 50 characters each. I want
>to reformat it to contain 60 characters each.
>
>I can read the whole file in and remove the line endings and then print out
>lines of 60 characters, but this can take some time. And I may need to do
>this on bigger files still.
>
>Is there a quicker way?

I would look into the -p switch.  Given your input file in $ARGV[0]:

#!/usr/bin/perl -pi.orig
chomp;
$_ .= "0123456789\n";
__END__

It will loop over the file, reading each line and writing out to a file of
the same name (but backing up the original to file.orig).

-- 
Chris Nandor                      [email protected]    http://pudge.net/
Open Source Development Network    [email protected]     http://osdn.com/