Не работает перловский скрипт.

[_Alex_50]

Скрипт на 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]

Эй, господа убунтоводы, ну хоть кто-нибудь разбирается в perl?

[andrew_bye]

Так ведь непонятно, что конкретно надо.

[_Alex_50]

Мне нужно понять почему этот скрипт не работает.
Вот ссылка с более подробным описанием скрипта - https://forum.ubuntu.ru/index.php?topic=49202.0

[andrew_bye]

Добавь второй и третьей строкой в скрипт:

Код: [Выделить]

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