print "file $file is opened\n" if `lsof $file`;
... and let's hope nobody sets $file='foo ; rm -rf /'; (Shell injection). To avoid this problem, see "Safe pipe open" in perlipc and Ssh and qx.
Alexander
In reply to Re^3: Read, SFTP Put and Move Files from a "Busy" NFS FileSystem
by afoken
in thread Read, SFTP Put and Move Files from a "Busy" NFS FileSystem
by longjohnsilver
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |