Автор Тема: Подсчет строк и слов...  (Прочитано 4546 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн DartSidius

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 309
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Подсчет строк и слов...
« : 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

  • Ветеран
  • *****
  • Сообщений: 699
  • +0/-0
  • 2
    • Просмотр профиля
Подсчет строк и слов...
« Ответ #1 : 27 Марта 2010, 10:15:59 »
1. open F, $ARGV[0] || die $!;
2. my @lines = ;
3. my @words = map {split /\\s/} @lines;

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28