Posted By

hidra on 01/12/14


Tagged

FTP client NetFTP


Versions (?)

FTP Klijent Skripta - Download jednog fajla


 / Published in: Perl
 

URL: http://milan-smudja.blogspot.com/2014/01/pojednostavljena-skripta-za-ftp-download.html

Perl skripta za download fajla sa FTP Servera

  1. #!/usr/bin/perl #Za OpenBSD
  2.  
  3. #Skripta sa download fajla sa FTP Servera, Jan/2014.
  4. #Autor: http://milansmudja.com
  5.  
  6. use strict;
  7. use warnings;
  8. use Net::FTP;
  9.  
  10. my $ftp_server = "ftp.openbsd.org";
  11. my $ftp_korisnik = "anonymous";
  12. my $ftp_sifra = "anonymous";
  13. my $ftp_direktorijum = "/pub/OpenBSD";
  14. my $ftp_file_dll = "ftplist";
  15.  
  16. print "Uspostavljanje veze sa serverom: $ftp_server \n";
  17. my $link = Net::FTP->new($ftp_server)
  18. or die "Ne mogu ostvariti vezu sa serverom $ftp_server, proveri ping !\n";
  19.  
  20. $link->login($ftp_korisnik, $ftp_sifra)
  21. or die "Login neuspesan za korisnika: $ftp_korisnik, proveri podatke !\n";
  22.  
  23. $link->cwd($ftp_direktorijum)
  24. or die "Ne mogu promeniti direktorijum: \n";
  25.  
  26. print "Skidam fajl: $ftp_server$ftp_direktorijum\/$ftp_file_dll \n";
  27. $link->get($ftp_file_dll) or die "Download neuspesan: !\n";

Report this snippet  

You need to login to post a comment.