perl, можно или еще короче ?) Опции

[klem4]

Как говорит мой препод по никсам, это язык будущего

Задачка собственно простейшая: ввести строку, подсчитать сколько в этой строке слов, длина которых не превышает 5. Решил попробовать сделать на Perl, интересно можно ли короче ?

#!/usr/bin/perl -w  
  foreach (@words = split(/[.,;:!? ]+/, <>)) { chomp $_; $count += length($_) <= 5 ? 1 : 0; };
  print "Count = $count\n";
exit;

После того что я видел, из того какие чудеса можно делать на этом языке, думаю что можно еще короче. Есть у кого мысли ?)

[hiv]

Как говорит мой препод по никсам, это язык будущего

Странный препод... Вот у меня был препод по ОБЖ, так он говаривал так - "На каждый газ - свой противогаз!"

Есть у кого мысли ?)

Конечно есть ;)

Код

#!/usr/bin/perl

print length( join('', map( length($_) <= 5 ? '1' : '' , split(/[\n\t.,;:!? ]+/, <>)) ) )
__END__

[klem4]

классно)

[klem4]

Извиняюсь за некрофилию)) Зашел сегодня на форум и так как сейчас в основном пишу на perl, вспомнил про этот топик, так вот придумал такое решение:

Код

print  s/\b\w{5,}\b/$&/g;

[Altair]

\оффтоп\
Сторонний взгляд наблюдателя - отвратительный до тошноты язык.

[klem4]

офф
Да не, он на самом деле волшебный)))

[xds]

\оффтоп\
Сторонний взгляд наблюдателя - отвратительный до тошноты язык.

Для наблюдения - запросто. Для решения определенных задач - вполне ничего :-)

[Altair]

Для решения определенных задач - вполне ничего :-)

Это вполне возможно

[renesko1]

print s/\b\w{5,}\b/$&/g;

Похоже на э(и)зетерический язык