Forum Webscript.Ru

Программирование => Perl => Тема начата: DartSidius от 27 Марта 2010, 04:37:42

Название: Подсчет строк и слов...
Отправлено: DartSidius от 27 Марта 2010, 04:37:42

Попалось тестовое задание...на этот вопрос не могу дать ответ...

Что неправильно в программе, подсчитывающей число строк и слов в файле? (аналог стандартной программы wc, словами считаем последовательности непробельных символов, т.е. \\S) Что можно улучшить?

open F, $ARGV[0] || die $!;
my @lines = ;
my @words = map {split /\\s/} @lines;
printf "%8d %8d\\n", scalar(@lines), scalar(@words); close(F);

Может есть у кого предположения?

Название: Подсчет строк и слов...
Отправлено: arto от 27 Марта 2010, 10:15:59

1. open F, $ARGV[0] || die $!;
2. my @lines = ;
3. my @words = map {split /\\s/} @lines;