Есть текстовый файл содержащий в себе строки состоящие из пробелов (пустые строки ) как можно удалить ети строки из файла?

• RE: Как удалить пустую строку ,hellman, 18:36 , 03-Фев-03
  • RE: Как удалить пустую строку ,Bootmen, 17:25 , 05-Фев-03

>Есть текстовый файл содержащий в себе строки состоящие из пробелов (пустые строки
>) как можно удалить ети строки из файла?

open(FILE, "< $file");
@file = <FILE>;
close(FILE);
open(FILE, "> $file");
foreach $line (@file) {
chomp $line;
if ($line && $line !~ /^\s+$/) {
print FILE $line . "\n";
}
}
close(FILE);

что-то вроде этого я думаю.

>>Есть текстовый файл содержащий в себе строки состоящие из пробелов (пустые строки
>>) как можно удалить ети строки из файла?

Странно но в sh проще:
:
#
grep -v "^$" file > file1
#