[ale] OT: Perl Question

[Wandered Inn]

"Robert L. Harris" wrote:
> 
> We have some transfers being done via ftp.  At any rate, there's
> no easy way to get the status of if the transfer is done or not.  Can't
> just watch the size grow and when it stops get it due to network
> latency.
> 
> Is there a form of stat() that will tell me if something has a file
> open for writing in perl?   I'm poking around perldoc, etc but
> nothing is just jumping out at me.

Are you doing the ftp via perl?  This is what we do.  We provide an
interface to 100+ files that sit on a big blue box.  Our only access is
via ftp, so we fire up a perl script that first get's a listing of the
files so it knows the size of each file.  It then gets the files and
compares the file size to the listing.  If something burped, we
re-initiate the get and everything is great.

> 
> Robert
> 
> ---------------------------------------------------------------------------
> Robert L. Harris                |   "A person is smart;
> Senior System Engineer          |        People are dumb, panicky
>   R&D Consulting.               \_            dangerous animals"  - Agent K
> 
> http://www.orci.com/~nomad
> 
> DISCLAIMER:
>       These are MY OPINIONS ALONE.  I speak for no-one else.
> 
> FYI:
>  perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);'

--
Until later: Geoffrey		esoteric at denali.atlnet.com

It should be illegal to yell "Y2K" in a crowded economy.
	-- Larry Wall, creator of the programming language Perl