Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Simple ftp client

by ssuresh83 (Novice)
on Mar 23, 2006 at 13:06 UTC ( #538733=sourcecode: print w/replies, xml ) Need Help??
Category: FTP stuff
Author/Contact Info Suresh S
Description: Beginers
#!/usr/bin/perl

# FTP ACCESS FROM PERLCODER.10E.NET

use warnings;
use strict;
use Net::FTP;
use Carp;
my ($ftpsite,$user,$pass,$stat,$fname,$ftp,$name);
print "
########################\
----- FILENAME.EXT------\
-----CHNG  DIR----------\
-----/dirname-----------\
########################","\n\n";
print "FTP S-vERISON \@1.0.0","\n";
print "FTP SITE :";
$ftpsite =<STDIN>;
chomp $ftpsite;
print "USERNAME :";
$user=<STDIN>;
chomp $user;
print "PASSWORD :";
$pass=<STDIN>;
chomp $pass;
$ftp=Net::FTP->new ($ftpsite);
$stat=$ftp->login($user,$pass);
if ( defined $stat ) {
print "Connected To FTP ",$ftpsite,"\n";
$ftp->cwd("/");
loop:
while (1) {
my @files =$ftp->ls();
print "@files\n";
print "Get File From List :";
$fname=<STDIN>;
chomp $fname;
if ( $fname =~ /^(\/)/ ) {
    $ftp->cwd($fname);

    next loop;
}
$name = $ftp->get($fname);
chomp $name;
open FH,"$name" or die;
while(<FH>){
 last unless print $_,"\n";
}
}
}
else {
print "Error Recheck"; 
$ftp->close();
}

2006-03-23 Retitled by Arunbear, as per Monastery guidelines
Original title: 'Ftp'

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://538733]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2020-09-25 21:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If at first I donít succeed, I Ö










    Results (141 votes). Check out past polls.

    Notices?