Thanksif ($var eq "Y") { open(FTP,'| ftp -i -v -n ') or die "Couldn't run FTP: $!\n"; my $ofh = select(FTP); $|=1; select($ofh); print FTP "open $FTP_HOST\n"; print FTP "quote USER $FTP_USER\n"; print FTP "quote PASS $FTP_PASS\n"; print FTP "cd $FTP_DIR\n"; print FTP "bin\n"; print FTP "get $FTP_FILE\n"; print FTP "bye\n";
In reply to Capturing FTP output by wishartz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |