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

#!/opt/bin/perl

# very simple example without further modules

use Linux::Inotify2;

my $inotify = new Linux::Inotify2;

$inotify->watch ("/etc/passwd", IN_ACCESS | IN_MODIFY, 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;

   $e->w->cancel;
});

$inotify->poll;

Revision:	1.2
Committed:	Tue Aug 23 02:22:23 2005 UTC (19 years, 7 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.1:	+1 -1 lines
Log Message:	* empty log message *
#	Content
1	#!/opt/bin/perl
2
3	# very simple example without further modules
4
5	use Linux::Inotify2;
6
7	my $inotify = new Linux::Inotify2;
8
9	$inotify->watch ("/etc/passwd", IN_ACCESS \| IN_MODIFY, sub {
10	my $e = shift;
11	printf "events for <%s> received: %s\n", $e->fullname, $e->mask;
12	print "$e->{w}{name} was accessed\n" if $e->IN_ACCESS;
13	print "$e->{w}{name} was modified\n" if $e->IN_MODIFY;
14	print "$e->{w}{name} is no longer mounted\n" if $e->IN_UNMOUNT;
15	print "events for $e->{w}{name} have been lost\n" if $e->IN_Q_OVERFLOW;
16
17	$e->w->cancel;
18	});
19
20	$inotify->poll;
21