|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 31 Jul 2003 12:47:30
To : Maxx L. Mazour
Subject : Re: Hужны регекспы (помогите чайнику) *)
--------------------------------------------------------------------------------
Maxx L. Mazour <piccolo@bestlawyer.net> wrote:
> Привет All!
>
> Hужно написать перл-скпипт, который бы просеивал большой текст (на инглише) и
> выделял слова по 5 признакам (один фильтр на каждый признак):
Парочку фильтров набросал, на больше времени особо нет...
> Have an even number of 'a's.
sub is_even($$) {
my($word, $letter) = @_;
(scalar grep /$letter/, split(//, $word)) % 2 ? 1 : 0;
}
> Подскажите регексп, по одному на каждое условие. Возможно ли вообще сделать
> для палиндромов?
> Are palindromes** (spell the same both forward and backward).
sub is_polyndrome($) {
my $word = shift;
$word eq join('', reverse split(//, $word)) ? 1 : 0;
}
> И еще - как отключить чувствительность к регистру?
//i
perldoc perlre;
--
VP992-RIPE | I pray my Lord to let me drink my wine, to save me if I die...
| (c) God's tower, "The turns" '96, "An eye for an eye"
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Hужны регекспы (помогите чайнику) *) 
