Форум русскоязычного сообщества Ubuntu


Следите за новостями русскоязычного сообщества Ubuntu в Twitter-ленте @ubuntu_ru_loco

Автор Тема: Не работает перловский скрипт.  (Прочитано 479 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн _Alex_50

  • Автор темы
  • Любитель
  • *
  • Сообщений: 78
    • Просмотр профиля
Не работает перловский скрипт.
« : 06 Декабрь 2011, 16:14:01 »
Скрипт на perl не мой, но по идее он должен запускать вместо скринсейвера заданную программу #!/usr/bin/perl
my $cmd = "dbus-monitor --session \"type='signal',interface='org.gnome.ScreenSaver', member='SessionIdleChanged'\"";

open (IN, "$cmd |");

while (<IN>) {
if (m/^\s+boolean true/) {
system("wine c:/windows/DreamAquarium.scr -S");
} elsif (m/^\s+boolean false/) {
}
}
вот только он не работает. Где копать?

Оффлайн _Alex_50

  • Автор темы
  • Любитель
  • *
  • Сообщений: 78
    • Просмотр профиля
Re: Не работает перловский скрипт.
« Ответ #1 : 09 Декабрь 2011, 21:32:52 »
Эй, господа убунтоводы, ну хоть кто-нибудь разбирается в perl?

Оффлайн andrew_bye

  • Почётный модератор
  • Старожил
  • *
  • Сообщений: 2698
    • Просмотр профиля
Re: Не работает перловский скрипт.
« Ответ #2 : 10 Декабрь 2011, 14:45:35 »
Так ведь непонятно, что конкретно надо.

Оффлайн _Alex_50

  • Автор темы
  • Любитель
  • *
  • Сообщений: 78
    • Просмотр профиля
Re: Не работает перловский скрипт.
« Ответ #3 : 10 Декабрь 2011, 15:35:06 »
Мне нужно понять почему этот скрипт не работает.
Вот ссылка с более подробным описанием скрипта - https://forum.ubuntu.ru/index.php?topic=49202.0

Оффлайн andrew_bye

  • Почётный модератор
  • Старожил
  • *
  • Сообщений: 2698
    • Просмотр профиля
Re: Не работает перловский скрипт.
« Ответ #4 : 11 Декабрь 2011, 17:26:11 »
Добавь второй и третьей строкой в скрипт:
use strict;
use warnings;

запусти его в консоли и посмотри, что он выдаст.

 

Страница сгенерирована за 0.076 секунд. Запросов: 25.