Форум — Admin помогите с перловым скриптом 0 0 нужно удалять пустые строчки из файла, покажите как это сделать. Влад. Ссылка
Пример (без создания временного файла) учитывает не только пустые строки, но и в которых есть "пробельные" символы (\t\n\r\f): #!/usr/bin/perl open (F, "+< $path") or die $!; $out = ''; while (<F>) { s/^\s*$//; $out .= $_; } seek (F, 0, 0) or die $!; print F $out or die $!; truncate(F, tell(F)) or die $!; close F or die $!; jonatan ★ (03.09.02 13:46:36 MSD) Ссылка
Вот так всех короче! while(<FILE>) { chomp; s/^\s+//; s/\s+$//; next unless length; # Empty line next if /^#/; # Comment } anonymous (04.09.02 09:21:11 MSD) Ссылка