|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Bolotnov 2:5052/4.82 05 Jun 2001 12:20:01
To : All
Subject : решение покрасивей...
--------------------------------------------------------------------------------
задача такая: есть список буковок, нужно узнать номер позиции в списке для
какой-нить буковки и напечатать следующую буковку. у меня это сделалось вот так:
($var,@set,$i) = ('a',(a..z),0);
for(@set){
$i++;
last if $_ eq $var;
}
printf "%s", (defined @set[$i]) ? "@set[$i]": "no such letter";
а попроще решения бывает?
Alexander Bolotnov.
Scientia vincere tenebras.
---
* Origin: Помогите похудеть [team?]... (2:5052/4.82)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
