emwdrich has asked for the wisdom of the Perl Monks concerning the following question:

Hello, I have been working on a program to download files through Net::FTPSSL and finally got that part working. The next part of the program is to unzip the file and do some processing. The issue I have come across is that I cannot do a file test to ensure the file is there or stat the file. I get that it is not found, but it does exist. Any ideas why this would occur? Below is part of the code and where it occurs at. 
my @remote_files = $ftp->nlst();

    my @get_files;
    print "The current date is $month $day $year\n" if $DEBUG eq 'yes'
+;
    foreach $file (@remote_files) {
        chomp($file);
        if ($file =~ /O$year\_$month\_$day/ ) {
            push @get_files, $file;
            print "Remote file matches needed file date $file\n" if ($
+DEBUG eq 'yes');
        }
    }

    my $new_file;
    foreach $new_file (@get_files) {
        &ftp_files($new_file, $ftp);
        chomp($new_file);

        print "zip_file $ccp_home/$new_file\n" if $DEBUG eq 'yes';
        if ( -e "$ccp_home/$new_file" ) {
            print "unzipping $ccp_home/$new_file\n" if $DEBUG eq 'yes'
+;
            system("/usr/bin/unzip -q $ccp_home/$new_file");
            $month = &fix_date($month);
            $year -= 2000;
            $year = &fix_date($year);
            $day = &fix_date($day);
        } else {
            print "File for unzipping not found: $ccp_home/$new_file\n
+" if $DEBUG eq 'yes';
        }

[download]
Thanks

Replies are listed 'Best First'.
Re: 5.8.8 stat and file test fails
by kyle (Abbot) on Aug 18, 2008 at 20:57 UTC

    Where does it say it doesn't exist? Is the -e test telling you that, or is your system call to unzip telling you that?

    If it's unzip telling you the file doesn't exist, I'd guess that the filename has spaces in it or some other character the shell considers significant. Either do some shell escaping, or pass a list to system instead of a string.

    If it's -e saying it doesn't exist, then I'm guessing that $new_file maybe doesn't contain what you think it does. You have a pretty good error message to tell you this. Maybe $ccp_home is a relative path, and your current directory isn't what you think it is?

    As an aside, I think you may be using chomp a little more than you need to.

[reply]
[d/l]
[select]
      $ccp_home is an absolute path and the debug line before the if -e statement does return the correct filename and path. If is use stat for $ccp_home/$new_file it says no such file or directory. If I hard code what the file name is it works fine.

      I added the chomp because I was concerned the array was getting newline characters. I never get to unzipping the file.

      This was working prior when I was using Net::FTP. I had to install perl 5.8.8 instead of using 5.005_03 that was already on the system. I installed 5.8.8 so I could get Net::FTPSSL installed.

[reply]
        Must be a Werewolf :) Try this 
        $DEBUG = 1; # if its 0, or undef, no printing

printf "zip_file hex [%s]\n", unpack 'H*', "$ccp_home/$new_file" if $D
+EBUG;

warn "WARNING zip_file has unprintable characters\n"
if  "$ccp_home/$new_file" =~ /[:^print:]/;



printf "zip_file [%s]\n", "$ccp_home/$new_file" if $DEBUG;

        [download]
        the hex version because there might be non-printable characters in filename.
[reply]
[d/l]

Back to Seekers of Perl Wisdom