...

View Full Version : error simulating an ftp client



aryan98876
05-01-2010, 09:53 PM
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;

}



EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum