Hmm Cos jest nie tak oto cały kod:
Kod:
use Net::FTP;
$x = "ciachciach";
$user = "lala";
$pass = "bumbum";
$directory = "/log";
print "Connecting to $x\n";
$ftp = Net::FTP->new("$x", Debug => 0)
or die "Nie moge polaczyc do: $x: [email protected]";
print "Connect to $x\n";
print "Logging $x\n";
$ftp->login($user,$pass)
or die "Zly login lub haslo!", $ftp->message;
print "Logged to $user\n";
print "Searching $directory\n";
$ftp->cwd("$directory")
or die "Nie moge znalezc podanego katalogu!", $ftp->message; #Zly? :>
print "joining to directory: $directory\n";
$ftp->put("C:\Documents and Settings\user\Pulpit\a.txt")
or die "get failed ", $ftp->message;
$ftp->quit;
Błąd:
-Cannot open "lokalizacja": Invalid argument at "lokalizacja" Get failed ok Current directory is /log
Zarowno katalog na serwerze jak plik na moim komputerze istnieja a lokalizacje sa poprawne.