Quantcast
Channel: File Transfer Planet Forums » Recent Posts
Viewing all articles
Browse latest Browse all 551

aryan98876 on "error simulating an ftp client"

$
0
0

i am using array to store a command given at run time by user... and execute it.....but after a connection is made to any ftp sites only 'ls' or 'dir' commands work....and if i wish to change directory or get any file or put file.example
get("123.mp3")
put("abc.txt")
cd user
etc or any commands that has space in between
then it gives error.wat i cn do to get or put files ...

#!/usr/bin/perl

use Net::FTP;

print("\nHost\/IP: ");
$host = <STDIN>;
chomp ($host);

print("\nUsername: ");
$username = <STDIN>;
chomp ($username);
print "Password: ";
chop ($password = <STDIN>);
stty echo;
print "\n";

print("Connecting to $host...\n");
my $ftp = Net::FTP->new($host) or die "Couldn't connect to $host\n";
print("Connected!\n");
print("\nFTP>");

$ftp->login($username, $password)
or die "Could not log in .\n";

rep:

$command = <STDIN>;

chomp ($command);

unless ("$command" eq "bye") {

@listing = $ftp->$command;

for($i=0;$i<@listing;$i++) { print "$listing[$i]\n"; }

print("FTP>");

goto rep;

}


Viewing all articles
Browse latest Browse all 551

Trending Articles