Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
начальный perl 30.11.01 20:58
Автор: het Статус: Незарегистрированный пользователь
|
#!/usr/bin/perl -w
@word=qw(1 2 3 4 5 6);
$name=<STDIN>;
chomp $name;
$sw=$word[$name]; # почему тут присваивается значение на индекс
#больше чем ввели.
print $sw,"\n";
по идее должно присваиваться то же
??? если не сложно отзовитесь
|
|
начальный perl 01.12.01 19:50
Автор: Oleg St. Статус: Незарегистрированный пользователь
|
> #!/usr/bin/perl -w
> @word=qw(1 2 3 4 5 6);
> $name=<STDIN>;
> chomp $name;
> $sw=$word[$name]; # почему тут присваивается значение на
> индекс
> #больше чем ввели.
> print $sw,"\n";
> по идее должно присваиваться то же
> ??? если не сложно отзовитесь
По умолчанию индексы массивов в Perl начинаются с нуля.
Поэтому $word[0] == 1, $word[1] == 2 и т.д.
Присвой $[ = 1 или используй $sw = $word[$name-1]
|
|
|
подробно о проекте
Анализ криптографических сетевых...
