|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 26 Jun 2002 20:30:52
To : All
Subject : strict ругается
--------------------------------------------------------------------------------
Генерирую случайное слово следующим скриптом:
Если use strict разремарю, то он ругается на @Nn = (A..Z,a..z)
Почему?
#use strict;
#use vars qw (@Nn);
my (%Nn,$crc,$i);
@Nn = (A..Z,a..z);
foreach my $m (@Nn) {
$Nn{rand(time)} = $m;
}
foreach my $m ( keys %Nn ) {
$crc .= $Nn{$m};
last if ($i > 8);
$i++;
}
print "$crc\n";
* Че смотришь? Hа мне узоров нет и цветы не растут.
-- Hиколай
----------------------------------------------------------------------
---
* Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
