What's printed? dir returns a reference to an array in scalar context. Try this:

my @lines = $ftp->dir('\\');
print join("\n", @lines), "\n";
[download]

I might add that even on Windows FTP servers I've always used forward slashes as directory separators when in FTP. Show us your resulting output if this still fails.

Gladly. The output was

C:\WINDOWS\Profiles\Gregory\Desktop\LLPSV>perl rpasafe.pl


C:\WINDOWS\Profiles\Gregory\Desktop\LLPSV>
[download]

This took a minute or so.
Here's the whole of the script I just ran (it's the pertinent bits from the rest of the script, separated to determine the problem)

#/usr/bin/perl -w
use strict;
use warnings;

###########################################################
#
# rpasafe.pl -- robot propagator attempt
#
###########################################################

use Net::FTP;

my $host = 'ftp.ftpserver.com';
my $u = 'user';
my $p = 'pass';

my $ftp;

unless ($ftp = Net::FTP->new($host)) {
    die "No FTP for you!\n\n";
}

$ftp->login($u, $p);
$ftp->binary;

my @lines = $ftp->dir('//');
print join("\n", @lines), "\n";
[download]



-----------------------
You are what you think.

Okay, so let's add to the error checking. First, I'd do this:

$ftp->login($u, $p) or die "Failed to login: $!\n";
[download]

my $lines = $ftp->dir("/");
die "Can't get directory listing: $!\n" if (!defined($lines));
print join("\n", @$lines), "\n";
[download]

Also, it may help to set Net::FTP's Debug level to see what's going on, like this:

my $ftp = Net::FTP->new($host, Debug => 5);
[download]

print "Current directory is ", $ftp->pwd(), "\n";
[download]

Well // almost certainly is not a directory on your ftp server. The reason for the original '\\' would be that you need to escape backslashes and the escape character is backslash. So either use '/' alone or, better yet, just leave it empty and you should get the contents of the current directory (the one that you logged into).

#/usr/bin/perl -w
use strict;
use warnings;

###########################################################
#
# rpasafe.pl -- robot propagator attempt
#
###########################################################

use Net::FTP;

my $host = 'ftp.ftpserver.com';
my $u = 'user';
my $p = 'pass';

my $ftp;

unless ($ftp = Net::FTP->new($host)) {
    die "No FTP for you!\n\n";
}

$ftp->login($u, $p);
$ftp->binary;

my @lines = $ftp->dir();
print join("\n", @lines), "\n";
[download]

Sigh. Typo upon typo -- thanks for catching the error :) Just ran the above...

C:\WINDOWS\Profiles\Gregory\Desktop\LLPSV>perl rpasafe.pl


C:\WINDOWS\Profiles\Gregory\Desktop\LLPSV>
[download]

Again, it seems that nothing's being returned as the main directory.

Any ideas? The FTP server definately exists and works -- I've logged in with an FTP client.

-----------------------
You are what you think.

why not run it under debug and see what happens?

my $Debug=1;

unless ($ftp = Net::FTP->new($host,Debug=>$Debug)) {     
    die "No FTP for you!\n\n"; 
}
[download]

--- demerphq
my friends call me, usually because I'm late....

This works fine with my ftp servers. Setting the Degug level to 1 should tell you the problem (probably a login failure given your output). You can add or die "Blah" to all of your ftp method calls as they return true if they succeed and false if they fail BTW:

use Net::FTP;

my $host = 'yoursite.com';
my $u = 'user';
my $p = 'pass';

my $ftp = Net::FTP->new($host, Debug => 1) or die "No FTP for you!\n\n
+";

$ftp->login($u, $p) or die "Login failed user:$u pass:$p\n";
$ftp->binary;

print "The CWD is: ", $ftp->pwd(), "\n\n";
print "The contents of the dir:\n", join("\n", $ftp->dir()), "\n";
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print