Привет всем, разбираюсь с Perl, собственно дошел до регулярных выражений и придумываю себе задачи ).
Сам себе придумал и встрял на таком моменте.
Есть предложение, где цифры, символы, пробелы и всякая пунктуация. Так вот все вроде раотает, но не отделяются цифры от букв (( Т.е. если предложение такое 
te4st 12 ab
то, выводи мой скрипт, что найдено 9 букв(( Что я не так делаю?

У меня 33 вывел на Вашем примере.
Там небольшая опечатка - Вы пропустили знак $ перед counter, кстати

Не, не, не   
Вот непосредственно в скрипте тоже выводит 33. Именно и буквы и цифры. Я не могу вывести ТОЛЬКО буквы (((
А то что пропустил $ - в скрипте есть ;-) Не в этом дело.
Факт что не выводятся только буквы, не отсекаются цифры.

А так:

\w матчит буквам, цифрам и нижнему подчеркиванию [a-zA-Z\d_]
Правильный вариант показал Itsys

Это сообщение отредактировал(а) KSURi - 17.7.2008, 17:56

Да, но код Itsys'a возвращает по идеи все буквы, а не их количество.
Я думаю конечно можно подсчитать функцией количество символов, но я больше ориентируюсь на что-то вроде

Правда возвращает мне 1

Это сообщение отредактировал(а) DissDoc - 17.7.2008, 18:45

а еще можно применить магию Perl:

возвратит, как и нужно Вам, 27 +)
(извиняюсь, я сначала не совсем Вас понял)

можно упростить и будет хорошо ;)

Добавлено через 7 минут и 42 секунды
гы ;)

Добавлено через 7 минут и 51 секунду
AlexPet, for you!

Точно, я забыл про замену.
nitr, я писал, что хотел бы отказаться от функций подсчета символов
AlexPet, все бы хорошо, но вы похоже путаете оператор связывания и оператор присваивания. Потому что, то что вы написали, вернет скорее всего пустую строку (могу ошибаться). Но собственно я сделал что хотел

Вот теперь вернет 27 ))

P.S. эх, мне бы опыту я б горы переворачивал))

DissDoc, он (AlexPet) прав, всё работает 
Магия ;)

А у вас стандартно, а у него магия ;)

Можете и ошибаетесь ;)
y/x// (равно как и tr/x//) - это операция транслитерации, без второго аргумента - меняет символ 'x' на него же, и возвращает число таких замен => получаем число символов 'x' в строке.
Единственная проблема - при отсутствии таких символов будет пустая строка, а не нуль - ну да это легко поправимо ;)

Добавлено через 5 минут
кстати, недавно размышлял над самым коротким (в плане количества кода) методом подсчета количества вхождений определенного символа в строке. Как раз самое короткое - это через y/x//; следующее - через s/x//g; но в них упомянутая выше проблема с нулем - поэтому как-то не элегантно, если учитывать пограничный случай...

# perl -MList::Util=reduce -e 'foreach my $r (qw#alpha alnum punct blank digit space ascii xdigit#) { printf "%s\t%d\n",$r,reduce { $a+$b } map { m/^[[:$r:]]$/ ? 1 : 0 } split "",$ARGV[0]; }' "Hello, guys ))) How 12.8 may    be te4st 4 me  7  . \!\! test"
alpha   27
alnum   33
punct   8
blank   18
digit   6
space   18
ascii   59
xdigit  13
#

AlexPet,  спасибо за пример с транслитерацией, никогда не использовал, возможно пригодится