|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Tkachuk 2:5040/33.50 06 Jun 2001 11:07:00
To : Alexander Bolotnov
Subject : Re: решение покрасивей...
--------------------------------------------------------------------------------
05 Июн 01 12:20, you wrote to all:
AB> задача такая: есть список буковок, нужно узнать номер позиции в списке
AB> для какой-нить буковки и напечатать следующую буковку. у меня это
AB> сделалось вот так:
AB> ($var,@set,$i) = ('a',(a..z),0);
AB> for(@set){
AB> $i++;
AB> last if $_ eq $var;
AB> }
AB> printf "%s", (defined @set[$i]) ? "@set[$i]": "no such letter";
AB> а попроще решения бывает?
$letters = join '', @set;
print $letters =~ /\Q$var\E(.)/ ? $1 : 'no such letter';
Homer
---
* Origin: WWW.LOVEHATE.RU - ВЫСКАЖИСЬ! (2:5040/33.50)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
