|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry Smolin 2:5020/949 05 Jun 2001 19:38:44
To : Alexander Bolotnov
Subject : решение покрасивей...
--------------------------------------------------------------------------------
Once, 05 Jun 2001 12:20, Alexander Bolotnov wrote to All:
AB> задача такая: есть список буковок, нужно узнать номер позиции в списке
AB> для какой-нить буковки и напечатать следующую буковку.
my ( $var, @set ) = ( 'a', ( 'a'..'z' ));
( my $next ) = ( join '', @set ) =~ /\Q$var\E(.)/;
print ( defined $next ? $next : "no such letter" );
AB> printf "%s", (defined @set[$i]) ? "@set[$i]": "no such letter";
Все-таки тогда уж $set[$i]. @set[$i] - это массив из одного элемента.
Take care.
--- skanking to the rhythm of the music by my side
* Origin: I'm so alone and I feel just like somebody else (2:5020/949)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
