Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Постоянное выполнение скрипта, Вопрос. 
V
    Опции темы
zuk
Дата 6.12.2006, 02:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 6.12.2006

Репутация: нет
Всего: нет



Прошу прощения, если вопрос глупый. Можно ли реализовать на perl программу, которая выполнялась бы до тех пор, пока пользователь ее не закрыл сам. То есть: программа имеет графический интерфейс. Пользователь вносит в нее данные и ставит время, когда она должна вывести предупреждение (что-то вроде напоминалки). В указанное время она выдает сообщение (напоминание) в идеале звуковой сигнал. Конкретный вопрос: можно ли сделать так, чтобы программа работала постоянно (например висела в трее) на локальном компьютере без установки серверов, mod_perl и т.д. в среде windows (это надо, чтобы она не пропустила время напоминания и вообще, что бы пользователь мог легко к ней обратиться в любой момент)? Может есть модули специальные?

Это сообщение отредактировал(а) zuk - 6.12.2006, 15:44
PM MAIL   Вверх
Nab
Дата 6.12.2006, 06:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37



Думаю это возможно, но по моему перл для этого не очень годиться smile

Можел Вы на Delphi глянете? 

Вернее не так, спрошу, почему именно перл?


--------------------
 Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community 
FREESCO in Ukraine 
PM MAIL   Вверх
zuk
Дата 6.12.2006, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 6.12.2006

Репутация: нет
Всего: нет



Я хотел использовать Delphi, но так как я в данный момент изучаю perl, то мне просто интересно узнать его возможности. Ведь perl - это не только CGI и администрирование *nix систем. Это, вроде, как полноценный язык программирования, на котором можно решеть широкий круг задач. Мне интересно попробовать его для написания скриптов с разным назначением, чтобы понять где он удобен, где нет. Но вопрос остается прежним. Может у кого есть ссылки на данную тему. И сколько он будет сжирать памяти, если такое возможно? Спасибо.
PM MAIL   Вверх
GoodBoy
Дата 6.12.2006, 13:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Главный джедай
****


Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: 2
Всего: 83



Каждый язык предназначен для своего круга задач...

Цитата
Perl - аббревиатура, которая расшифровывается как Practical Extraction and Report Language (практический язык извлечений и отчётов). Язык программирования, который задумывался, как удобный язык для работы со строками, и не стесненный, к тому же,  ограничениями, свойственными другим языкам.



--------------------
Чем дальше в лес, тем толще партизаны...

Цитата(igorold @  1.5.2016,  17:40 Найти цитируемый пост)
Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях. 
PM MAIL   Вверх
Nab
Дата 6.12.2006, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37



Это как ювелирным молоточком к забору доски прибивать, или кувалдой скворечник собирать smile

Оно конечно можно, но целесообразно ли? И насколько процесс затянется?

А всю прелесть и возможности языка нужно изучать там, где он сильнее всего, в работе с данными, со строками, массивами, ссылками, хешами... А заставить перл втупую сидеть в трее и отсчитывать время, а потом выскакивать просто по порядку вызвав список функция WinAPI, это как смотреть кино через замочную скважину smile

А так Вы моло что не изучите, так еще заимеете привратное и не очень лестное мнение как о перл, так и о WinAPI, и о программировании вообще smile 

А если хочеться именно скриптами, ну или чем попроще, то по моему тут VB самое место smile
Или через ScripHost JS или VBS.


--------------------
 Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community 
FREESCO in Ukraine 
PM MAIL   Вверх
nitr
Дата 6.12.2006, 15:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84



Цитата(Nab @  6.12.2006,  15:09 Найти цитируемый пост)
Это как ювелирным молоточком к забору доски прибивать, или кувалдой скворечник собирать smile

Красиво сказал smile


zuk, если будешь заниматся "такими" задачами, то скоро возненавидишь perl ;)
Совет: прислушивайся к советам smile


--------------------
PM   Вверх
zuk
Дата 6.12.2006, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 6.12.2006

Репутация: нет
Всего: нет



Спасибо. Тогда напишу в Delphi. А perl оставлю для веб))) Собственно там его возможности я уже знаю и активно их использую)) Было просто интересно) Еще раз спасибо. smile 
PM MAIL   Вверх
Nab
Дата 6.12.2006, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37



Перл отнюдь не для веб. smile Веб это просто как частный случай текстовой информации. 
Перл хорош для обработки огромных массивов данных, логов к примеру.
Как комуникационная надстройка над любым протоколом взаимодействия любых систем, основанных на текстовых сообщениях. И веб в обычном понимании как часть этих возможностей smile


--------------------
 Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community 
FREESCO in Ukraine 
PM MAIL   Вверх
korob2001
Дата 6.12.2006, 20:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61



Ну почему же, впринципе не такая уж сложная задача, тем более насколько я понял, это нужно под *nix, потому VB, VBA тут пролетают как стая напильников.

В конце концов, можно разбивать программу на потоки. Где один поток следит за датами в фоновом режиме (демон), а второй за событиями GUI. Просто документация по Tk сильно объёмная, потому мало у кого есть возможность перерыть её, что бы найти ответы на твои вопросы и тем самым помочь тебе.
Ты в первую очередь, должен сам захотеть помочь себе.
Вот тебе простейший пример бесконечного цикла и Tk:
Код

#!/usr/bin/perl -w
use strict;
use Tk;
use encoding "ru_RU.CP1251";
my $mw = new MainWindow;
my($sec, $min, $hour, $full) = ();

my $fr = $mw->Frame->pack( -pady => 15,
                          -padx => 15 );
$fr->Label( -text => 'Время' )->pack( -side => 'left',
                                     -padx => 5 );
my $en = $fr->Entry( -textvariable => \$full,
                    -relief => 'flat',
                    -width => 8 )->pack( -side => 'right' );

while ( 1 ) {
   ( $sec, $min, $hour ) = ( localtime )[0..2];
   $sec = "0$sec" if $sec < 10;
   $min = "0$min" if $min < 10;
   $hour = " $hour" if $hour < 10;
   $full = "$hour:$min:$sec";
   $mw->update;
   sleep(1);
}

MainLoop;

Это на самом деле тормазнутый пример, но я же сразу сказал, что он простейший.
Здесь не показан пример работы с потоками, а они здесь очень даже пригодились бы. Воспользуйся поиском, здесь уже не раз обсуждалась тема "Потоки". Так же ищи темы, где обсуждались демоны, они тебе тоже понадобятся.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
GoodBoy
Дата 7.12.2006, 11:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Главный джедай
****


Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: 2
Всего: 83



korob2001
Цитата(zuk @  6.12.2006,  02:55 Найти цитируемый пост)
программа работала постоянно (например висела в трее) на локальном компьютере без установки серверов, mod_perl и т.д. в среде windows



--------------------
Чем дальше в лес, тем толще партизаны...

Цитата(igorold @  1.5.2016,  17:40 Найти цитируемый пост)
Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях. 
PM MAIL   Вверх
korob2001
Дата 7.12.2006, 11:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61



Опс... Извиняюсь, пропустил.  smile 


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
JUmPER
Дата 7.12.2006, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 22.8.2006

Репутация: нет
Всего: 3



sleep в цикле?
--------------------
Существует 10 типов людей: те, которые понимают двоичную систему, и те, которые ее не понимаютСуществует 10 типов людей: те, кто понимают троичную систему, те, кто ее не понимают и те, кто путает ее с двоичной
PM MAIL   Вверх
korob2001
Дата 8.12.2006, 02:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61



Цитата(JUmPER @  7.12.2006,  19:16 Найти цитируемый пост)
sleep в цикле?


Не понял вопроса?
Код

#!/usr/bin/perl

my $count = 0;
while (++$count) {
    print $count, "\n";
    sleep 1;
}



--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
JUmPER
Дата 8.12.2006, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 22.8.2006

Репутация: нет
Всего: 3



сорри, читал невнимательно
--------------------
Существует 10 типов людей: те, которые понимают двоичную систему, и те, которые ее не понимаютСуществует 10 типов людей: те, кто понимают троичную систему, те, кто ее не понимают и те, кто путает ее с двоичной
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1302 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.