[ViewVC] Contents of: cvs/cvsroot/Linux-Inotify2/eg/event

#!/opt/bin/perl

# example for Event integration

use Event;
use Linux::Inotify2;

my $inotify = new Linux::Inotify2;

Event->io (fd => $inotify->fileno, poll => 'r', cb => sub { $inotify->poll });

$inotify->watch ("/tmp", IN_ALL_EVENTS, sub {
   my $e = shift;
   printf "events for <%s>:%d received: %x\n", $e->fullname, $e->cookie, $e->mask;
   print "$e->{w}{name} was accessed\n" if $e->IN_ACCESS;
   print "$e->{w}{name} was modified\n" if $e->IN_MODIFY;
   print "$e->{w}{name} is no longer mounted\n" if $e->IN_UNMOUNT;
   print "events for $e->{w}{name} have been lost\n" if $e->IN_Q_OVERFLOW;
});

Event::loop;

Revision:	1.4
Committed:	Tue Aug 23 02:22:23 2005 UTC (18 years, 11 months ago) by root
Branch:	MAIN
CVS Tags:	rel-1_1, rel-1_0, rel-1_2, rel-2_2, rel-2_3, rel-2_0, rel-2_1, rel-1_01, rel-0_8, rel-1_21, rel-1_22, HEAD
Changes since 1.3:	+2 -2 lines
Log Message:	* empty log message *
#	Content
1	#!/opt/bin/perl
2
3	# example for Event integration
4
5	use Event;
6	use Linux::Inotify2;
7
8	my $inotify = new Linux::Inotify2;
9
10	Event->io (fd => $inotify->fileno, poll => 'r', cb => sub { $inotify->poll });
11
12	$inotify->watch ("/tmp", IN_ALL_EVENTS, sub {
13	my $e = shift;
14	printf "events for <%s>:%d received: %x\n", $e->fullname, $e->cookie, $e->mask;
15	print "$e->{w}{name} was accessed\n" if $e->IN_ACCESS;
16	print "$e->{w}{name} was modified\n" if $e->IN_MODIFY;
17	print "$e->{w}{name} is no longer mounted\n" if $e->IN_UNMOUNT;
18	print "events for $e->{w}{name} have been lost\n" if $e->IN_Q_OVERFLOW;
19	});
20
21	Event::loop;
22