Perl ftp

[Hardiel]

Cześć!
Mam pytanie czy istnieje możliwość stworzenia skryptu w perl który bedzie łaczył do serwera (przez ftp) oczywiscie nie mówie o wymianie plikow tylko proste podłaczenie a w skrypcie zeby mozna bylo zadeklarować adres,login,pass
Bardzo proszę o pomoc z góry dzieki.
Pozdrawiam

[TQM]

use Net::FTP;

(dokumentacja http://search.cpan.org/dist/libnet/Net/FTP.pm)

[Hardiel]

Sorry że jeszcze zawracam Ci głowe dopiero zaczynam w tym dziale

  use Net::FTP;

    $ftp = Net::FTP->new("adresstrony", Debug => 0)
      or die "Cannot connect to some.host.name: [email protected]";

    $ftp->login("login,haslo,konto") #Nie rozumiem dlaczego mi tu wyrzuca bład: Login authentication failed (A jest na 100% dobry)
      or die "Zły login!", $ftp->message;

    $ftp->get("that.file")
      or die "get failed ", $ftp->message;

    $ftp->quit;

Sorry edytuje juz sobie poradzilem :P Dzieki!

[Hardiel]

Hmm mam jeszcze tylko 1 pytanko czy tym modułem da sie wgrywac pliki z mojego komputera na serwer? Jesli tak to jaka komenda bo widze ze chyba ten modul odnosi sie tylko do operacij na serwerze.

Pozdrawiam!

[TQM]

hmmmm...

$ftp->put("plik");

ale zgaduje, nie sprawdzalem...

[Hardiel]

Hmm Cos jest nie tak oto cały 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.

[TQM]

Hmmmm... sprawdzilbym uruchamiajac ale nigdzie nie mam zadnego serwera FTP na ktory moglbym sie zalogowac... poszukam czegos i dam znac pozniej.

[Hardiel]

Oki Poczekam

[quelque]

mi ten kod dziala super
tylko katalog zamiast "/log" musialem dac "log", ale to chyba zalezy od konfiguracji serwera, bo jesli uzytkownik jest "chrootowany" w swoim domowym katalogu to IMO "/log" powinno przejsc bezblednie, aczkolwiek nie testowalem. A jak user ma dostep do calego serwera to "/log" pewnie sie odwoluje do katalogu "log" w katalogu glownym a nie domowym, a standardowo ani w windowsie ani w linuksie nie ma takiego katalogu

[Hardiel]

Hmm mi dziala wszystko ok procz tego ze jednak pliku na serwer nie wrzuca