|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Igor Nikolaev 2:5030/266 31 Jul 2000 22:28:46 To : All Subject : @ по модулю? --------------------------------------------------------------------------------
my @a; $a[2]=2, $a[3]=3, $a[4]=4;
foreach my $i ( -5..5 ) {
print "$i ", ( defined $a[$i] ) ? $a[$i] : 'undef', "\n";
}
-3 2
-2 3
-1 4
Да?
--
Игорь Hиколаев
--- ifmail v.2.12.os.sensi
* Origin: Отрицательный результат - тоже результат. (2:5030/266@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1341621007ae3.html, оценка из 5, голосов 10
|