Perl FTP Remote Rename problem 1

[TheNewbie81]

Hi,

I am trying to rename files ona remote server using this simple bit of code, but it doesnt work, can anyone point out what im doing wrong?

cheers
Jon

#!/usr/bin/perl

use Net::FTP;

    $ftp = Net::FTP->new("localhost", Debug => 0);
    $ftp->login("anonymous",'-anonymous@');
    $ftp->cwd("/");
    
    @dir=$ftp->ls or $newerr=1;
  
    foreach $file(@dir){
    
    $ftp->get($file);  
    $ftp->rename( $file, "$file\.recieved")
    or die "Couldn't rename file";

    }
    $ftp->quit;

 

[travs69]

change to
or die "Couldn't rename file: $!\n";

and tell us what the message you get it. I would just guess it's a permissions problem

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those Who Say It Cannot Be Done Are Usually Interrupted by Someone Else Doing It; Give the wrong symptoms, get the wrong solutions;

 

[travs69]

You should probably also specify ascii or binary as different servers seem to default to different settings.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those Who Say It Cannot Be Done Are Usually Interrupted by Someone Else Doing It; Give the wrong symptoms, get the wrong solutions;

 

[TheNewbie81]

Hi,

im getting this
"Couldn't rename at ftp.pl line 20"

looks like its not picking up the file name??

 

[TheNewbie81]

cheers it was permissions!

 

[travs69]

Cool.. Glad you figured it out.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those Who Say It Cannot Be Done Are Usually Interrupted by Someone Else Doing It; Give the wrong symptoms, get the wrong solutions;