Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Alarm

Автор: GShadrin 18.10.2009, 17:41

Не могу понять почему не печатает "NUPIM\n";

Код


eval 
        {
            local $SIG{ALRM} = sub { die "alarm\n" }; 
            alarm  10;
            $new_comand_line=<STDIN>;
            alarm 0;
        };    
        if ($@) 
        {
            print "NUPIM\n";
            $new_comand_line="noop\n";        
        } 
        else 
        {
            if  (lc $new_comand_line eq "noop\n") 
            {
                print_in_coding("\n......\n");
                $new_comand_line="\n";
            }
        }

Я не верно использую аларм?
почему не происходит выполнение блока

Код


{
            print "NUPIM\n";
            $new_comand_line="noop\n";        
        }

Автор: DaemonSuw 18.10.2009, 20:44

а можете поподробнее описать что вы хотите сделать)...
блок

Код


if ($@) {}

выполняется когда произошла ошибка в eval {} блоке, где в переменную $@ попадает сама ошибка...
я считаю что в блоке исключительной ситуации произойти не может!

Код


            local $SIG{ALRM} = sub { die "alarm\n" }; 
            alarm  10;
            $new_comand_line=<STDIN>;
            alarm 0;

Автор: GShadrin 18.10.2009, 21:04

я хочу чтобы если через 10 секунд пользователь не введет строку а переменную $new_comand_line записалось слово 'noop' и управление передавалось дальше.
пользовался этой статьей http://valera.asf.ru/perl/help/name.php?name=alarm

Автор: shamber 18.10.2009, 23:01

А система у Вас какая?
насколько я помню под Windows alarm неработает/криво работает.

Там проблема с блокирующим вызовом STDIN. Я в свое время, когда у меня вставала проблема с этим решил ее установкой модуля Term::Getch. Ставиться из ppm без проблем.

Как-то так smile

Код


    use Term::Getch;
     my $start_time = time;

    while(time-$start_time < 10) {
        my $c = getch(); 
        print "Input: $c\r";
    }
    
    print "Error :) You so slow" ;

Мысли буржуинов на эту тему

Код


I got this to work great on UNIX, but not on Windows. It seems that alarm() works on Windows (perl 5.8+)...
but not for all scenarios. For example, this works:

Код


eval {
  local $SIG{ALRM} = sub { die "alarm\n" };
  alarm 5;
  sleep 100;
};
alarm 0;

Код


But, this does not:

Код



eval {
  local $SIG{ALRM} = sub { die "alarm\n" };
  alarm 5;
  print "Remark: ";
  chomp($remark = <STDIN>);
};
alarm 0;

Код


I wonder if it has something to do with waiting for <STDIN>?

Like I said, both scenarios above work on UNIX, but only the first works on Windows.