Hi, Is there any polling mechanism in perl ? Following is my problem.. my program has to wait (poll) on particular folder... If any file arrived on that folder, my main program has to invoke another program...
In Unix, we have poll() system call for waiting on particular event ?
is there any similar thing in perl to wait on particular event ? if event occurs trigger some job..
following is my algorithm... i want to implement in better way...
here file arrived means, completely transfered... Files will be FTPed to "C:\temp" on my local system... once that FTP is completed, i want to know... But i don't want to know in the middle of FTP. I want to know after FTP done... I think here we need unix "lsof" command? Does anybody have any idea ? about that?
--------
while(1) {
if (file arrived on "C:\temp\") {
mail me the file name. }
}
You may run into limitations on the Win32 platform, but there are several places to start, check out:
http://search.cpan.org/author/JPRIT/Event-0.87/lib/Event.pod
Or for a higher level approach, check out POE:
http://poe.perl.org
There is a pre-built component for this very thing, POE::Component::Dirwatch which is not terribly robust, but it sounds adequate for your purposes. I used it for several months before hacking a more specifically tailored version for our app that handles errors better and more specific file uses. POE has a relatively steep learning curve at the beginning but once over the hump it is incredibly powerful.
In both cases be sure to check out the Win32 compatibility I have no knowledge on this front....
http://danconia.org
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
