|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 25 Jul 2000 18:20:05
To : Eugeniy Muran'
Subject : Re: Вопpос по массивам!
--------------------------------------------------------------------------------
<Eugeniy_Muran'@f13.n4623.z2.fidonet.org> wrote:
>>=== Здесь родился 2.pl! :) ===
EM> #!perl -w
EM> print ("Enter number: "); chomp($a=<STDIN>);
EM> print ("Enter strings: \n"); print(@b=<STDIN>);
EM> print ("Answer: $b[$a-1]");
EM> __END__
>>=== Здесь скончался 2.pl! :( ===
EM> Запускаем:
EM> Enter number: 1
EM> Enter strings:
EM> 1
EM> 2
EM> 3
EM> 4
EM> 5
EM> (... тута жмем Ctrl+Z...)
EM> Получаем:
EM> 2
EM> 3
EM> 4
EM> 5
EM> Answer: 1
EM> Вопpос: Куда делась пеpвая "1" пpи выводе массива? (Как видно из
EM> "Answer:" она есть, но не печатается!!!)
EM> А ежли заменить
EM> print ("Enter strings: \n"); print(@b=<STDIN>);
EM> на
EM> print ("Enter strings: \n"); @b=<STDIN>;
EM> то после Ctrl+Z пpога заканчивает свою pаботу и стpока
EM> print ("Answer: $b[$a-1]");
EM> не выполняется!!!
>> ПОЧЕМУ??? КАК ПОФИКСИТЬ???
EM> P.S. Perl 5.004 for Win32 !!!
Enter number: 1
Enter strings:
1
2
3
4
5
1
2
3
4
5
Answer: 1
$ perl -v
This is perl, version 5.005_03 built for i386-linux
Это ответ на вопрос, как пофиксить.
Версия перла, думаю, ни при чем.
--
Счастливо!
Ран.
--- ifmail v.2.14.os-p7-tma3
* Origin: MemoNet (2:5020/371.32@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Вопpос по массивам! 
