xbmy has asked for the wisdom of the Perl Monks concerning the following question:
Hi all:
I am writing a script to monitor one file's change using the following code.
#!/usr/bin/perl -w use strict; use IO::Handle; my $file='data.txt'; #file to be monitored open (FD, "$file") or die $!; my $oldsize= -s "$file"; my $newsize= -s "$file"; my @change=$newsize-$oldsize; until ($change[0]!=0){ wait; #wait for file to be changed } continue{ #if there were some changes in file $newsize= -s "$file"; @change=$newsize-$oldsize; if ($change[0]!=0){ print "The file has been changed"; } } close FD;
The file is in a plain text format, such as:
1277435278 1277435343 1277435382 dee djennga dega denga ddenga ddjeig deng djeng ddeng
So,is there another method can I do this work in a better way? Any suggestions will be appreciated!
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Seeking a better way to monitor a file's change
by ikegami (Patriarch) on Jun 25, 2010 at 18:08 UTC | |
Re: Seeking a better way to monitor a file's change
by alexbio (Monk) on Jun 26, 2010 at 11:35 UTC | |
Re: Seeking a better way to monitor a file's change
by xbmy (Friar) on Jun 25, 2010 at 19:12 UTC | |
by repellent (Priest) on Jun 26, 2010 at 03:21 UTC | |
Re: Seeking a better way to monitor a file's change
by Anonymous Monk on Jun 25, 2010 at 18:24 UTC |
Back to
Seekers of Perl Wisdom