Hi all,

I'm sure it is something simple again, but for the life of me I'm not seeing it.

I'm trying to use Linux::Inotify2 with POE by calling the $inotify->poll through select_read: $_[KERNEL]->select_read( $_[HEAP]{inotify}->fileno, "inotify_poll" );

It should work but I'm running into an error with the $inotify->fileno being passed as a symbol ref.

Can't use string ("3") as a symbol ref while "strict refs" in use at /usr/share/perl5/POE/Resource/FileHandles.pm line 330.

Ok, not a big deal, it is expecting a symbol ref. However, if I use a reference instead, I get an error about not being a glob reference:

Not a GLOB reference at /usr/share/perl5/POE/Resource/FileHandles.pm line 291. 

#!/usr/bin/perl

use strict;
use warnings;

use Linux::Inotify2;
use POE;

$|++;

POE::Session->create
  ( inline_states =>
      { _start => sub {
            $_[KERNEL]->alias_set('notify');
            $_[HEAP]{inotify} = new Linux::Inotify2
              or die "Unable to create new inotify object: $!";

            $_[HEAP]{inotify}->watch("/tmp/j", IN_CLOSE_WRITE, $_[SESS
+ION]->postback("watch_dir"))
              or die "Unable to watch dir: $!";

            printf "%s\n", $_[HEAP]{inotify}->fileno;
            $_[KERNEL]->select_read( $_[HEAP]{inotify}->fileno, "inoti
+fy_poll" );
        },
        inotify_poll => sub {
          $_[HEAP]{inotify}->poll;
        },
        watch_dir => \&watch_dir,
      },
  );

sub watch_dir {
  my $event = $_[ARG0];

  print "jjjj\n";
  my $name = $event->fullname;

  print "$name was accessed\n" if $event->IN_ACCESS;
  print "$name is no longer mounted\n" if $event->IN_UNMOUNT;
  print "$name is gone\n" if $event->IN_IGNORED;
  print "$name is new\n" if $event->IN_CLOSE_WRITE;
  print "events for $name have been lost\n" if $event->IN_Q_OVERFLOW;
}

POE::Kernel->run();

exit 0;

[download]

Any ideas?

Update: Working code posted to the code section: Using Linux::Inotify2 with POE

Jason L. Froebe

Blog, Tech Blog

In reply to Getting Linux::Inotify2 and POE to work with select_read() by jfroebe

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.