Форумы портала PHP.SU :: Перестал работать скрипт подсчета времени

Отправлено: 26 Августа, 2010 - 09:32:58

не могу разобраться в следствии чего, ибо были проделаны минимальные модификации, перестал работать простенький скрипт, который сигнализирует о обеде и работе.
вот код

CODE (htmlphp):
скопировать код в буфер обмена

 
while (1)
{
        sleep(55);
        ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
        print "$min ";
        if ($min == 0)
        {
                print "$hour:$min\n";
                if ($hour == 13)
                {
                        print "OBED!!!\n";
                        
                        qx/ eject\\EJECT.EXE E: /;
                        #qx/ eject\\EJECT.EXE E: /l /;
                }
                if ($hour == 18)
                {
                        print "END WORK!!!\n";
                        
                        qx/ eject\\EJECT.EXE E: /;
                }
                sleep(10);
        }
        if (($min == 10) || ($min == 20) || ($min == 30) || ($min == 40) || ($min == 50))
        {
                print "$hour:$min\n";
                sleep(10);
        }
}
 

Отправлено: 26 Августа, 2010 - 09:37:51

Как именно не работает? Выдает ошибки? Меня смущает следующая строка:

PHP:
скопировать код в буфер обмена

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

list($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

Отправлено: 26 Августа, 2010 - 09:41:28

там все работает корректно.

CODE (htmlphp):
скопировать код в буфер обмена

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
print "$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst";
exit;

C:\Perl\bin>perl test1_de.pl

14,39,9,26,7,110,4,237,1

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

Отправлено: 26 Августа, 2010 - 10:41:53

garvey пишет:

Может, так

В языке Perl списки в круглях скобках являются конструкциях языка для агрегирующих выражений - соответственно их можно использовать для множественного присвоения и создания срезов массивов - то есть при достаточном приближении можно сказать что список это константная конструкция для формирования переменной массива - равно как строковая константа в кавычках может использоваться для заполнения строковой переменной При детальном рассмотрении разница имеется и она существенна - вы можете посмотреть об этом здесь http://dklab[dot]ru/chicken/nablas/20[dot]html и здесь и в последующих статьях

qnx пишет:

Оказывается оно работает... только не понятно почему изначально не выводи в течении минуты первый print

В приведенном вами Perl-скрипте в основном цикле программы выполняется задержка которая должна приостанавлививать его работу на 55 секунд - однако реализующая ее функция установлена в самом начале цикла и соответственно пауза происходит до первой итерации а не после нее как вероятно задумывалось - таким образом необходимо просто перенести вызов функции sleep в самый конец блока цикла

-----
Сделать можно все что угодно - нужно только старание, терпение и хороший поисковик
Безлимитный web-хостинг от 15 рублей за 40 МБ дискового пространства - http://ihost[dot]oks71[dot]ru/

Отправлено: 26 Августа, 2010 - 10:47:21

задержка для цикла while это было временное решение, чтоб проверить вообще работоспособность цикла.. и я учитывая это ждал более минуты.....

в реале оно так...
на скрине видно, что время уже должно было бы напечататься, но его нет, а напечатается оно когда будет сделан "\n" перевод строки)))... вот такая магия)
(Добавление)
такое еще момент.
чем можно помигать светодиодами на клавиатуре??. думаю в форк (если такое в win поддерживается) запустить индикацию на клавиатуру)

Отправлено: 27 Августа, 2010 - 18:44:24

qnx пишет:

На скрине видно, что время уже должно было бы напечататься, но его нет, а напечатается оно когда будет сделан "\n" перевод строки)))... вот такая магия)

Приведенная вами ситуация является следствием внутреннего кеширования выводимой в поток информации - и для ее решения используется конструкция $|=1; которую необходимо установить в самое начало Perl-скрипта и таким образом включить autoflush

qnx пишет:

Чем можно помигать светодиодами на клавиатуре

Для реализации изменения состоянй светодиодов на клавиатуре можно эмулировать нажатие соответствующиъ им клавиш - это легко реализуется с помощью JScript-приложения

qnx пишет:

Думаю в форк (если такое в win поддерживается)

В оперционной системе windows ветвление процессов поддерживается в необхоимой мере

-----
Сделать можно все что угодно - нужно только старание, терпение и хороший поисковик
Безлимитный web-хостинг от 15 рублей за 40 МБ дискового пространства - http://ihost[dot]oks71[dot]ru/

Отправлено: 30 Августа, 2010 - 09:16:53

спасибо большое. теперь правильно выводит)
на счет направления соискания информации спасибо.. буду искать)

Отправлено: 01 Сентября, 2010 - 17:29:26

qnx пишет:

Спасибо большое. теперь правильно выводит)
на счет направления соискания информации спасибо.. буду искать)

Пожалуйста! Если вам потребуется взаимодействие с операционной системой windows посредством Perl-скрипта то для этой цели имеются различные модули - в частности ActivePerl поддерживает механихм bootstrap для загрузки оригинальных системных динамических библиотек - что при описании подклчаемого интерфейса позволяет подключать требуемую функциональности в виде Perl-функций

-----
Сделать можно все что угодно - нужно только старание, терпение и хороший поисковик
Безлимитный web-хостинг от 15 рублей за 40 МБ дискового пространства - http://ihost[dot]oks71[dot]ru/

Отправлено: 01 Сентября, 2010 - 17:56:54

в виду того, что перл устанавливался копированием файлов с другого компа, то модули доставить мало реально).. работаю пока с имеющимися чтоб не посыпалась трехдневная настройка для работы с бд sybase. а некоторые нужные мелкие штучки пока через qx/ * * * / делаю)

Отправлено: 02 Сентября, 2010 - 17:55:03

qnx пишет:

В виду того, что перл устанавливался копированием файлов с другого компа, то модули доставить мало реально)..

В случае если установленная версия интерпретатора Perl была получена путем копирования одного из полных Activestate-дистрибутивов - то в ее комплекте должна находиться специальная утилиты ppm которая позволяет устанвливать модули в графическом режиме Кроме того благодаря использованию конструкции AUTOLOAD и специальной переменной @ISA при наличия bootstap-функциональнсти - можно огранизовывать собсвенную динамическую загрузку любых модулей с созданием требуемого окружения для них

-----
Сделать можно все что угодно - нужно только старание, терпение и хороший поисковик
Безлимитный web-хостинг от 15 рублей за 40 МБ дискового пространства - http://ihost[dot]oks71[dot]ru/

Отправлено: 02 Сентября, 2010 - 18:01:59

не получилось через прокси грузить модули... не говоря уже о кривом запуске той графической утилитки)

Отправлено: 03 Сентября, 2010 - 14:23:51

qnx пишет:

Не получилось через прокси грузить модули... не говоря уже о кривом запуске той графической утилитки)

Для загрузки и установки необходимых Perl-модудей вы можете использовать ручное компирование - с применением конфигурации по определенной схеме Для начала необходимо определить установлен ли у вас bootstap-механизм в виде модулей Auto/Dyna/XSloader что дает возможность использовать системные динамические библиотеки - в случае если они существуют то для установки модуля достаточно скопировать его в папку с расширениями - а также разместить dll и xs- файлы в соответствующую имени модуля директорию внутри папки auto

-----
Сделать можно все что угодно - нужно только старание, терпение и хороший поисковик
Безлимитный web-хостинг от 15 рублей за 40 МБ дискового пространства - http://ihost[dot]oks71[dot]ru/

Отправлено: 06 Сентября, 2010 - 17:29:54

спасибо большое за направление куда копать).
в нынешнем скрипте не работает beep

CODE (htmlphp):
скопировать код в буфер обмена

$| = 1;
for (;;sleep(55))
{
        ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
        print "$min ";
        if ($min == 0)
        {
                print "$hour:$min\n";
                if ($hour == 13)
                {
                        print "LUNCH!!!\n";
                        
                        qx/ eject\\EJECT.EXE E: /;
                        #qx/ eject\\EJECT.EXE E: /l /;
                }
                if ($hour == 18)
                {
                        print "END WORK!!!\n";
                        
                        qx/ eject\\EJECT.EXE E: /;
                }
                if ($hour == 9)
                {
                        print "WTF WORK!!!\n";
                        
                        qx/ eject\\EJECT.EXE E: /;
                }
                sleep(10);
        }
        if (($min == 10) || ($min == 20) || ($min == 30) || ($min == 40) || ($min == 50))
        {
                print "$hour:$min\n";
                if (($min == 50) && ($hour != 17) && ($hour != 13) && ($hour != 12))
                {
                        print "small pause!!!!!!!!!!!!!!!!!!!!!(10 min)\n";
                        print "\a"; ######     NO WORK!
                }
                sleep(10);
        }
}
exit;

Отправлено: 06 Сентября, 2010 - 18:02:42

qnx пишет:

Спасибо большое за направление куда копать).
в нынешнем скрипте не работает beep

Пожалуйста! Некоторые специальные ASCII-последовательности которые предоставляют функциональность для управления терминалом могут не работь при их использовании в замещающей форме записи - как правило для решения такого вопроса применяется шестнадцатиричная форма записи которая в вашем случае будет выглядеть как print "\x07\n";

-----
Сделать можно все что угодно - нужно только старание, терпение и хороший поисковик
Безлимитный web-хостинг от 15 рублей за 40 МБ дискового пространства - http://ihost[dot]oks71[dot]ru/

Отправлено: 07 Сентября, 2010 - 17:31:48

в очередной раз спасибо огромное за ответ. поставил как Вы посоветовали, но вроде и по-моему работает... не туда вставил изначально для отладки просто ... и соответственно не дождался)
п.с. теперь стараюсь не засиживаться за компом на работе а порой делать маленькие перерывы, как по охране труда требуется)))

п.п.с. JustUserR респект Вам и уважуха.. спасибо большое за помощь....