On Sat, 31 Aug 2002, Sudarshan Raghavan wrote:
>
> I guess your filenames are in @ARGV array, your shift inside the while
> suggests it either @ARGV or @_. If it is @ARGV you can do this
If it is @_ you will have to do this before the while in your sub
local @ARGV = @_;
>
> $^I = '~';
> while (<>) {
> s/\015\012/\n/;
> }
>
> This will replace CRLF with "\n" in your input files and also create a
> backup of your original file as <filename>~.
>
> A oneliner for this is
> perl -i~ -pe 's/\015\012/\n/' <your files>
>
>
>
>
>
>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
