В Unix подобных системах переход на другую строчку в текстовом файле обозначается только символом перевода строки ( \n ).
В системах Windows добавляется и символ возврата коретки ( \r ).
Perl программа, написанная в Windows, не будет работать в Unix именно из-за этого символа.
Вот программа, которая этот символ удаляет.
Обрабатывает все файлы с расширениями pl, cgi и pm в каталогах, включая подкаталоги.
Может кому пригодится

Код

#!/usr/bin/perl -w use strict; my @current = @ARGV; # каталоги для поиска из параметров foreach my $cur (@current){    opendir(DIR, $cur) || die "Error open dir $cur";   my @dirs = readdir(DIR);   closedir(DIR);        foreach (@dirs){       if ( (-f "$cur/$_") and (-w "$cur/$_") and /\.(pl|cgi|pm)\z/ ) { # если перловский файл                  print "$cur/$_ ... ";                      chdir($cur);        open(F, "+<$_") || die "Error open file $_ $!\n";        binmode(F) || die "Error binmode $_ $!\n";        my @D = <F>;        seek(F, 0, 0);        foreach my $f (@D){ # удаление символа возврата коретки          $f =~ s/\r//g;          print F $f;             }        truncate(F,tell(F));        close(F);                      print "ok!\n";     }# end if              if ((-d "$cur/$_") and ($_ ne ".") and ($_ ne "..")){       push(@current, "$cur/$_");     }   } # end foreach (@dirs) } # end foreach my $cur (@current) 1;

Это сообщение отредактировал(а) Vaneska - 8.6.2005, 08:30

У меня попроще (и поменьше)

Код

use strict; use File::Find; no warnings 'File::Find'; find (\&rep, @ARGV); sub rep      {         my $file = $File::Find::name;         if  ($file =~ m#\.pl$|\.cgi$|\.pm$#i) {             open (FH, "+<", $file);             my $out="";             while (<FH>) {                 s#[\x0D\x0A]#\x0D#g;                 $out .=$_;             }         seek (FH,0,0);         print FH $out;         truncate (FH, tell (FH));         close (FH);     } }

Это сообщение отредактировал(а) Sadok - 8.6.2005, 11:02

Ну насчет поменьше не согласен.
У тебя же модуль File::Find подключается
А он побольше будет