|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Maxx L. Mazour 2:5020/400 01 Aug 2003 21:02:16
To : Alexander Onokhov
Subject : Re: Hужны регекспы (помогите чайнику) *)
--------------------------------------------------------------------------------
O'haio, Alexander Onokhov!
Once Fri, 1 Aug 2003 08:23:37 +0000 (UTC) you wrote Alexander Onokhov about:
"Re: Hужны регекспы (помогите чайнику) *)"...
>> # Are palindromes** (spell the same both forward and backward).
>> print if substr($_, 0, length()/2) eq reverse substr($_, -length()/2);
>substr здесь лишний
Окончательный _работающий_ вариант:
use strict;
use warnings;
while ( <> )
{
# Are palindromes** (spell the same both forward and backward).
chomp ($_);
if ($_ eq join '', reverse split //) {print "$_\n";}
}
use strict;
use warnings;
while ( <> )
{
# Have their letters in alphabetical order.
chomp ($_);
if ($_ eq join '', sort split //) {print "$_\n";}
}
Во1, надо '\n' вырезать, иначе при реверзе-сорте мешаться будет.
Во2, нельзя // использовать больше одного раза!
Hадо $_, иначе он новое слово возьмет.
- ---
[ася:10097303] Писать сюда:*gatomon(a)mail.ru*! Max /Фoрнит/
--- ifmail v.2.15dev5
* Origin: Can you feel the Power? (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
