|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Paul Kulchenko 2:5020/400 26 Jul 2000 20:58:53 To : All Subject : Re: Вопpос по массивам! --------------------------------------------------------------------------------
Hi, Eugeniy!
Eugeniy Muran' 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 !!!
>
> AC> This is perl, version 5.005_03 built for i386-linux
> AC> Это ответ на вопрос, как пофиксить.
> Вот тебе полное письмо - где ты здесь видиш ответ? Ежли хочеш позубоскалить,
> то тогда лучше вообще ничего не пиши! Я задал конкpетный вопpос и мне очень
> нужен на него ответ! Можеш чем нибуть толковым помочь?
Да не расстраивайся ты. ну не любит он MS, ну и что. Тебе-то что
переживать. :)
У моей жены была таже проблема. Она меня по телефону спросила -- я не
поверил. Пока домой не пришел и сам не убедился. Пробовал на разных
версиях. Под NT -- работает. Под win98 -- нет. Причем NT после Ctrl-Z
честно ждет перевода строки, в 98 сразу проглатывает Ctrl-Z и выдает
результат, что меня тоже слегка озадачило. Короче говоря проблема где-то
на стыке Perl и Windows. Первый print после окончания ввода нормально не
работает. Hасколько я помню в нашем случае вылечилось print "" перед
первым выводом, но точно не уверен. если не поможет, напиши мылом,
посмотрю может исходники остались.
Best wishes, Paul.
--- ifmail v.2.15dev5
* Origin: Rostelecom/Internet Centre (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/3555faae3159.html, оценка из 5, голосов 10
|