View Single Post
Old 05-01-2010, 09:53 PM   PM User | #1
aryan98876
New to the CF scene

 
Join Date: May 2010
Location: india
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
aryan98876 is an unknown quantity at this point
Exclamation error simulating an ftp client

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;

}
Attached Files
File Type: txt ftp.txt (944 Bytes, 53 views)
aryan98876 is offline   Reply With Quote