Using Perl to automate an FTP process

[SaltyDuke]

Hello

A friend wants to use FTP to transfer her files onto a server. This process is carried out from the command prompt of a WinXP machine over to a Linux server, so she has to type

ftp
open 123.456.789.123
bin
hash
put C:\file.file /some/dir/file.file
bye

I'm writing a Perl script to automate this process. It works as follows:
1. User enters filename (i.e. C:\file.file)
2. program puts filename into put command
3. program starts FTP
4. program Transfers file
5. everything's hunky-dory : )

However, i'm stuck between step 3 and 4: when I open FTP (as follows: "system('ftp');&quot I'm at another prompt and cannot issue any further "system" commands!

anyone know of a way around this? I'm thinking a batchfile might do it but i'm not sure...

Thanx in advance for any help
TheSaltyDuke

 

[h011ywood]

use Net::FTP;

$ftp = Net::FTP->new("$hostname&quot or die "Can't ftp to $hostname: $!";
$ftp->login("$user","$pass"

# get user input of filenames
foreach $file (<>) {
last if($file eq &quot;QUIT&quot;
$ftp->put(&quot;$file&quot;
}

$ftp->quit;

# program exits;

 

[h011ywood]

# get user input of filenames
foreach $file (<>) {
### NEED the chomp ###
chomp $file;
last if($file eq &quot;QUIT&quot;
$ftp->put(&quot;$file&quot;
}

 

[PaulTEG]

ftp -? will give you all your answers

ftp -s if memory saerves means you can create a baych file which will handle all the I/O required.

Perl can do it using Net::FTP, or a number of other ways, but so will your OS

Just a thought
-Paul

 

[SaltyDuke]

Thanks loads everyone!!!

Last night I was trying to write the FTP commands into a .bat file and then kick that off using a system() call but to no avail! The solution presented here offer a much more graceful solution. And though it looks a little OOP (which i'm not used to), I reckon you've helped me solve the problem.

Again, thanx

TheSaltyDuke