Net::Ftp check a different directory

[jrig]

I'm trying to retrieve a file with net::ftp. The problem is, I know that it will be in one of two directories, either $year=2005 OR $year=2006. Chances are it will be in 2006, but if not, how do I cwd into 2005 automatically if it does not exist in 2006? I've tried messing w/ '-e' doesn't seem to work with the net::ftp module. I saw net::ftp::file module has an 'exists' option but I don't have/can't get it. This will work if it's in 2006. Any suggestions?

#!/usr/bin/perl -w
use Net::FTP;
$year = `date +%Y`;
chop ($year);

my $host="fileserv";
my $inf='14815';
my $directory="/$year/$inf";

$ftp=Net::FTP->new($host,Timeout=>240) or $newerr=1;

print "Connected...";

$ftp->login('jrig','itsasecret') or $newerr=1;

  push @ERRORS, "Can't login to $host: $!\n" if $newerr;
  $ftp->quit if $newerr;

print "Logged in\n";

$ftp->cwd($directory) or $newerr=1;
 
  $ftp->quit if $newerr;
 
print "found dir!\n";
 
my $head='head';my $tail='tail';
       
$ftp->get("$head$inf$tail") or print "couldn't get $inf\n";
 
$ftp->quit;

ps took out the error handling business for the post-

 

[KevinADC]

I don't know if this will work but you can try:

$ftp->cwd($directory) or $newerr=1;
$ftp->quit if $newerr;
print "found dir!\n";

if ($ftp->get("$head$inf$tail")) {
   print "Got $inf";
}
elsif ($ftp->cwd("/2005/$inf") && $ftp->get("$head$inf$tail"){
   print "Got $inf";
else {
   print "couldn't get $inf\n";
}

- Kevin, perl coder unexceptional!

 

[KevinADC]

error in above code:

elsif ($ftp->cwd("/2005/$inf") && $ftp->get("$head$inf$tail"){
   print "Got $inf";

should be:

elsif ($ftp->cwd("/2005/$inf") && $ftp->get("$head$inf$tail"){
   print "Got $inf";
}

- Kevin, perl coder unexceptional!

 

[jrig]

Thanks for the reply Kevin, your code got me thinking in a new direction, unfortunately, I'm still getting a cryptic error from the module:

getsockname() on closed socket Symbol::GEN0 at /usr/lib/perl5/5.6.1/i386-linux/I
O/Socket.pm line 186.

Same thing I was getting when I tried using '-e'. the modified script will work when the file exists in the 2006 folder though. Also slight fix here:

elsif ($ftp->cwd("/2005/$inf")&&$ftp->get("$head$inf$tail")[COLOR=red])[/color]{

Verified pathes to files are good be swapping around, so I'm stumped...Any other ideas?

 

[KevinADC]

IO::Socket is returning that error. Can you increase the Timeout limit and see if that helps?

- Kevin, perl coder unexceptional!

 

[jrig]

The problem was the directory I was trying to cd into did not exist. I learned a valuable lesson here though, never expect a script to do that which cannot be done from the command line (i.e. cd into non-existent dir). I figured it out by manually opening an ftp session and going through the cd's. Turns out I was missing the leading '/' on my 2nd $directory variable. It was tricky to find because it would work if I used that variable first, but not if I used it 2nd. At any rate, thanks for the help Kevin-