----- Original Message -----
From: Rob Dixon <[EMAIL PROTECTED]>
Date: Thursday, July 10, 2003 11:36 am
Subject: Re: Net::FTP
> Dan Muey wrote:
> > > > What I'd like to do is simply:
> > > > (WHERE exists() is hopefully a solution to my first question)
> > > >
> > > > if($ftp->exists($file)) {
> > > > $ftp->delete($file);
> > > > if($ftp->exists($file)) { print "Could not delete $file"; }
> > > > else { print "$file is all gone"; } } else { print "$file does
> > > not exist so
> > > > I did not even try to delete it" }
> > >
> > > 'size' is the way to do it, but remember that it will return
> > > zero for a file of zero size. What you need is 'defined'.
> > >
> > > This little subroutine will fulfil your wishes and make the
> > > code above work.
> > >
> > > sub Net::FTP::exists {
> > > my $ftp = shift;
> > > defined $ftp->size(@_);
> > > }
> > >
> > > HTH,
> >
> > As always Rob a huge help. I'll play around with that.
> > It's makes so much sense when you think about it!
> > I'll tuck that one away under my big hat too!
> >
>
> Glad to help. FTP's a pain: as far as I know there's no way
> of telling whether a filename is a plain file or a directory
> either, without either trying to 'cwd' to it or parsing the
> output or 'dir'.
you probebly can tell if its a directory. just grab the first 1024 bytes, and look
inside it. Will be eassy if its laying on top of UFS or FFS
HTH,
Mark G
>
> Cheers,
>
> Rob
>
>
>
>
>
> --
> 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]
