|
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
|