или просто
tr -d "\r" <inputfile.pl >outputfile.pl
>Тут в принципе все просто. Символ
>переноса строки в Виндах -
>13/10, а в *никсе, где,
>как я понимаю, ты запускаешь
>скрипты, - просто 10.
>Хинт: пиши сразу под *никсом.
>Хинт 2: используй такой вот маленький
>скриптик:
>
>#! /usr/bin/perl
>unless(@ARGV){die "Usage: delcr file ....\n";}
>foreach $file(@ARGV)
> {
> if(! -r $file ||
>! -w $file)
> {
> print "$file:
>access denied\n";
> }
> else
> {
> open F,"
><$file"|| die "Cannot open $file
>$!\n";
> binmode F
>|| die "Cannot binmode $file
>$!\n";
> @D=<F>;
> seek F,0,0;
>
> foreach(@D)
> {
>
>
>s/\r//g;
>
>print F;
> }
>
> truncate F,tell(F);
>
> close F;
>
> }
> }
>
>В качестве параметра в командной строке
>передаешь ему имя файла, и
>он все пакости 13/10 у
>него отрезает.