[ViewVC] Annotation of: cvs/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> received: %s\n", $e->fullname, $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.2
Committed:	Tue Aug 23 01:57:32 2005 UTC (21 years ago) by root
Branch:	MAIN
Changes since 1.1:	+3 -5 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/opt/bin/perl
2
3	root	1.2	# example for Event integration
4	root	1.1
5			use Event;
6			use Linux::Inotify2;
7
8			my $inotify = new Linux::Inotify2;
9
10	root	1.2	Event->io (fd => $inotify->fileno, poll => 'r', cb => sub { $inotify->poll });
11	root	1.1
12	root	1.2	$inotify->watch ("/tmp", IN_ALL_EVENTS, sub {
13	root	1.1	my $e = shift;
14			printf "events for <%s> received: %s\n", $e->fullname, $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