My script should be waiting for the incoming files and encrypts them as soon as the transmission is completed. Using "lsof" makes a gap between the arrival of the files and their encryption.
Is there any other way to know that a file is being FTPed, specifically? Thanks, Ahmed On Sat, 24 Nov 2001, John W. Krahn wrote: > Ahmed Moustafa Ibrahim Ahmed wrote: > > > > In Perl, how can I know that a file is being opened by any other process > > i.e. being edited or transferred (FTP)? > > > > I made following function but it's very slow because of the using of "lsof": > > You are also using "grep" and "wc". > > > --------------------------------------------------------------- > > sub is_open { > > local ($file) = @_; > > $flag = qx ( $settings{'lsof'} | grep $file | wc -l); > > $flag =~ s/^\s+//; > > $flag =~ s/\s+$//; > > if ($flag == 0) { > > return ""; > > } else { > > return 1; > > } > > } > > It is kind of hard to test without the actual command line settings for > "lsof". > > > > John > -- > use Perl; > program > fulfillment > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]