{"id":10,"date":"2016-07-31T17:56:24","date_gmt":"2016-07-31T14:56:24","guid":{"rendered":"http:\/\/sanana.kiev.ua\/?p=10"},"modified":"2016-08-03T14:05:58","modified_gmt":"2016-08-03T11:05:58","slug":"%d0%b4%d0%b5%d1%81%d0%ba%d1%82%d0%be%d0%bf%d0%bd%d1%8b%d0%b5-%d1%83%d0%b2%d0%b5%d0%b4%d0%be%d0%bc%d0%bb%d0%b5%d0%bd%d0%b8%d1%8f-%d0%bd%d0%b0-perl","status":"publish","type":"post","link":"https:\/\/sanana.kiev.ua\/index.php\/archives\/10","title":{"rendered":"\u0414\u0435\u0441\u043a\u0442\u043e\u043f\u043d\u044b\u0435 \u0443\u0432\u0435\u0434\u043e\u043c\u043b\u0435\u043d\u0438\u044f \u043d\u0430 perl"},"content":{"rendered":"

\u041d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u044b\u0439 \u0447\u0435\u043b\u043e\u0432\u0435\u043a \u043f\u0440\u043e\u0432\u043e\u0434\u0438\u0442 \u043e\u0442\u043f\u0443\u0441\u043a \u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u043e. \u042f – \u0447\u0435\u043b\u043e\u0432\u0435\u043a \u043d\u0435 \u043e\u0447\u0435\u043d\u044c \u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u044b\u0439, \u043f\u043e\u0442\u043e\u043c\u0443 \u0438 \u043e\u0442\u043f\u0443\u0441\u043a \u043f\u0440\u043e\u0432\u043e\u0436\u0443 \u043d\u0435 \u043e\u0447\u0435\u043d\u044c \u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u043e. \u041e\u0434\u043d\u0430 \u0438\u0437 \u043d\u0435\u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u0435\u0439 \u043d\u044b\u043d\u0435\u0448\u043d\u0435\u0433\u043e \u043e\u0442\u043f\u0443\u0441\u043a\u0430 – \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044f\u00a0\u0443\u0432\u0435\u0434\u043e\u043c\u043b\u0435\u043d\u0438\u0439<\/a>\u00a0\u043d\u0430 perl-\u0435.<\/p>\n

<\/p>\n

\u041d\u0443 \u0438 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043a\u043e\u0434, \u0447\u043e \u0443\u0436 \u0442\u0430\u043c<\/p>\n

#!\/usr\/bin\/perl<\/span>\r\n\r\nuse<\/span> warnings;<\/span>\r\nuse<\/span> strict;<\/span>\r\n\r\nuse<\/span> Net::<\/span>DBus;<\/span>\r\nuse<\/span> Net::<\/span>DBus::<\/span>Service;<\/span>\r\nuse<\/span> Net::<\/span>DBus::<\/span>Reactor;<\/span>\r\n\r\n$ENV<\/span>{<\/span>\"YAD_OPTIONS\"<\/span>} =<\/span> \"--sticky --fixed --on-top --undecorated --no-focus --no-buttons --borders=15 --width=250 --name=Popup --image-on-top --posx=-5 --posy=-5\"<\/span>;<\/span>\r\n\r\npackage<\/span> Notifications;<\/span>\r\n\r\nuse<\/span> base qw<\/span>(<\/span>Net::<\/span>DBus::<\/span>Object);<\/span>\r\nuse<\/span> Net::<\/span>DBus::<\/span>Exporter qw<\/span>(<\/span>org.<\/span>freedesktop.<\/span>Notifications);<\/span>\r\n\r\nsub<\/span> new {<\/span>\r\n    my<\/span> $class<\/span> =<\/span> shift<\/span>;<\/span>\r\n    my<\/span> $service<\/span> =<\/span> shift<\/span>;<\/span>\r\n    my<\/span> $self<\/span> =<\/span> $class<\/span>-><\/span>SUPER<\/span>::<\/span>new(<\/span>$service<\/span>,<\/span> \"\/org\/freedesktop\/Notifications\"<\/span>);<\/span>\r\n\r\n    bless<\/span> $self<\/span>,<\/span> $class<\/span>;<\/span>\r\n\r\n    return<\/span> $self<\/span>;<\/span>\r\n}<\/span>\r\n\r\ndbus_method(<\/span>\"Notify\"<\/span>, [<\/span>\"string\"<\/span>,<\/span> \"uint32\"<\/span>,<\/span> \"string\"<\/span>,<\/span> \"string\"<\/span>,<\/span> \"string\"<\/span>, [<\/span>\"array\"<\/span>,<\/span> \"string\"<\/span>], [<\/span>\"dict\"<\/span>,<\/span> \"string\"<\/span>,<\/span> \"string\"<\/span>],<\/span> \"int32\"<\/span>], [<\/span>\"uint32\"<\/span>]);<\/span>\r\nsub<\/span> Notify {<\/span>\r\n    my<\/span> $self<\/span> =<\/span> shift<\/span>;<\/span>\r\n    my<\/span> $action<\/span> =<\/span> shift<\/span>;<\/span>\r\n    my<\/span> $id<\/span> =<\/span> shift<\/span>;<\/span>\r\n    my<\/span> $icon<\/span> =<\/span> shift<\/span>;<\/span>\r\n    my<\/span> $summary<\/span> =<\/span> shift<\/span>;<\/span>\r\n    my<\/span> $body<\/span> =<\/span> shift<\/span>;<\/span>\r\n    my<\/span> $actions<\/span> =<\/span> shift<\/span>;<\/span>\r\n    my<\/span> $hints<\/span> =<\/span> shift<\/span>;<\/span>\r\n    my<\/span> $timeout<\/span> =<\/span> shift<\/span>;<\/span>\r\n\r\n    my<\/span> $txt<\/span> =<\/span> '<span size=<\/span>\\\\<\/span>\"large<\/span>\\\\<\/span>\" weight=<\/span>\\\\<\/span>\"bold<\/span>\\\\<\/span>\">'<\/span> .<\/span> $summary<\/span> .<\/span> '<\/span><\/span>\\n<\/span>'<\/span> .<\/span> $body<\/span>;<\/span>\r\n    my<\/span> $cmd<\/span> =<\/span> 'yad --text=\"'<\/span> .<\/span> $txt<\/span> .<\/span>'\" --image=\"'<\/span> .<\/span> $icon<\/span> .<\/span> '\" --timeout='<\/span> .<\/span> int<\/span>(<\/span>$timeout<\/span> \/<\/span> 100<\/span>);<\/span>\r\n    \r\n    my<\/span> $pid<\/span> =<\/span> fork<\/span>();<\/span>\r\n\r\n    if<\/span> (<\/span>defined<\/span>(<\/span>$pid<\/span>)) {<\/span>\r\n        exec<\/span> (<\/span>$cmd<\/span>)<\/span> if<\/span> (!<\/span>$pid<\/span>);<\/span>\r\n    }<\/span> else<\/span> {<\/span>\r\n        print<\/span> \"notify (fork): $!<\/span>\\n<\/span>\"<\/span>;<\/span>\r\n        $pid<\/span> =<\/span> 0<\/span>;<\/span>\r\n    }<\/span>\r\n\r\n    return<\/span> $pid<\/span>;<\/span>\r\n}<\/span>\r\n\r\ndbus_method(<\/span>\"CloseNotification\"<\/span>, [<\/span>\"uint32\"<\/span>], [], {<\/span> no_return =><\/span> 1<\/span> });<\/span>\r\nsub<\/span> CloseNotification {<\/span>\r\n    my<\/span> $self<\/span> =<\/span> shift<\/span>;<\/span>\r\n    my<\/span> $id<\/span> =<\/span> shift<\/span>;<\/span>\r\n    kill<\/span>(<\/span>'USR1'<\/span>,<\/span> $id<\/span>);<\/span>\r\n}<\/span>\r\n\r\ndbus_method(<\/span>\"GetCapabilities\"<\/span>, [], [[<\/span>\"array\"<\/span>,<\/span> \"string\"<\/span>]]);<\/span>\r\nsub<\/span> GetCapabilities {<\/span>\r\n    my<\/span> $self<\/span> =<\/span> shift<\/span>;<\/span>\r\n    return<\/span> [<\/span>\"actions\"<\/span>,<\/span> \"body\"<\/span>,<\/span> \"body-hyperlinks\"<\/span>,<\/span> \"body-markup\"<\/span>,<\/span> \"icon-static\"<\/span>,<\/span> \"persistence\"<\/span>,<\/span> \"action-icons\"<\/span>];<\/span>\r\n}<\/span>\r\n\r\ndbus_method(<\/span>\"GetServerInformation\"<\/span>, [], [<\/span>\"string\"<\/span>,<\/span> \"string\"<\/span>,<\/span> \"string\"<\/span>,<\/span> \"string\"<\/span>]);<\/span>\r\nsub<\/span> GetServerInformation {<\/span>\r\n    my<\/span> $self<\/span> =<\/span> shift<\/span>;<\/span>\r\n    return<\/span> [<\/span>\"Notification Daemon\"<\/span>,<\/span> \"Ydesk\"<\/span>,<\/span> \"1.0\"<\/span>,<\/span> \"1.2\"<\/span>];<\/span>\r\n}<\/span>\r\n\r\npackage<\/span> main;<\/span>\r\n\r\nmy<\/span> $bus<\/span> =<\/span> Net::<\/span>DBus-><\/span>session<\/span>();<\/span>\r\nmy<\/span> $service<\/span> =<\/span> $bus<\/span>-><\/span>export_service<\/span>(<\/span>\"org.freedesktop.Notifications\"<\/span>);<\/span>\r\nmy<\/span> $object<\/span> =<\/span> Notifications-><\/span>new<\/span>(<\/span>$service<\/span>);<\/span>\r\n\r\nNet::<\/span>DBus::<\/span>Reactor-><\/span>main<\/span>-><\/span>run<\/span>();<\/span>\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"
\u041d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u044b\u0439 \u0447\u0435\u043b\u043e\u0432\u0435\u043a \u043f\u0440\u043e\u0432\u043e\u0434\u0438\u0442 \u043e\u0442\u043f\u0443\u0441\u043a \u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u043e. \u042f – \u0447\u0435\u043b\u043e\u0432\u0435\u043a \u043d\u0435 \u043e\u0447\u0435\u043d\u044c \u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u044b\u0439, \u043f\u043e\u0442\u043e\u043c\u0443 \u0438 \u043e\u0442\u043f\u0443\u0441\u043a \u043f\u0440\u043e\u0432\u043e\u0436\u0443 \u043d\u0435 \u043e\u0447\u0435\u043d\u044c \u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u043e. \u041e\u0434\u043d\u0430 \u0438\u0437 \u043d\u0435\u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u0435\u0439 \u043d\u044b\u043d\u0435\u0448\u043d\u0435\u0433\u043e \u043e\u0442\u043f\u0443\u0441\u043a\u0430 – \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044f\u00a0\u0443\u0432\u0435\u0434\u043e\u043c\u043b\u0435\u043d\u0438\u0439\u00a0\u043d\u0430 perl-\u0435.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[2,3],"class_list":["post-10","post","type-post","status-publish","format-standard","hentry","category-desktop","tag-perl","tag-yad"],"_links":{"self":[{"href":"https:\/\/sanana.kiev.ua\/index.php\/wp-json\/wp\/v2\/posts\/10","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/sanana.kiev.ua\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/sanana.kiev.ua\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/sanana.kiev.ua\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/sanana.kiev.ua\/index.php\/wp-json\/wp\/v2\/comments?post=10"}],"version-history":[{"count":3,"href":"https:\/\/sanana.kiev.ua\/index.php\/wp-json\/wp\/v2\/posts\/10\/revisions"}],"predecessor-version":[{"id":13,"href":"https:\/\/sanana.kiev.ua\/index.php\/wp-json\/wp\/v2\/posts\/10\/revisions\/13"}],"wp:attachment":[{"href":"https:\/\/sanana.kiev.ua\/index.php\/wp-json\/wp\/v2\/media?parent=10"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sanana.kiev.ua\/index.php\/wp-json\/wp\/v2\/categories?post=10"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sanana.kiev.ua\/index.php\/wp-json\/wp\/v2\/tags?post=10"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}