Опубликовано

Удаление двойных переводов строк

Вот небольшой скриптик, который удаляет из всех файлов в директории двойные переводы строк:

 perl |  copy code |? 
01
#!/usr/bin/perl
02
undef($/);
03
foreach $f (<*.*>) {
04
print "$f\n";
05
if ($f ne 'ddps.pl') {
06
open(FH,$f);
07
$l=;
08
close(FH);
09
$l=~ s/\r\n\s*\r\n/\n/smg;
10
open(FH,">$f.new");
11
print FH $l;
12
close(FH);
13
}
14
}

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

CAPTCHA image