#!/usr/local/bin/perl
# This example demonstrates how to spawn an ftp process, have it
#log in to a host, and grab a file off the host. This should give you a
#general idea of how to spawn processes and talk to them.
# The first thing I do when attempting to automate a process is do it
#by hand, so you know what interaction with the process should look like.
# I highly recommend you read the information on debugging in chapter
#3 before actually trying this yourself.
#
# Usage: script ftphost file1 [file2 file3.. ]
use Expect;
# Optional debugging, explained later.
# $Expect::Debug=1
# $Expect::Exp_Internal=1;
# $Expect::Log_Stdout=0; # On by default.
$host = shift @ARGV; # Let the host be the first argument we are given.
@files = @ARGV; # Let the names of the files be the remaining arguments.
# Make sure we're trying to get something.
unless ($host ne '' && @files > 0) {
print STDERR <spawn("ftp $hostname")) || die "Couldn't spawn ftp, $!";
# Look for a username prompt. On my box this looks like:
# "Name (ftp.cdrom.com:tex): "
# So, let's see what our username is.
$username = $ENV{'USER'};
# Time out if we don't get it within 30 seconds.
unless ($ftp->expect(30,"Name ($hostname:$username): ")) {
die "Never got username prompt on $hostname, ".$ftp->exp_error()."\n";
}
# Ok, so we have the username prompt. Let's send it "anonymous".
# Note how I follow with a \r.
print $ftp "anonymous\r";
# And we want a password prompt now.
# On my box this looks like:
# 331 Guest login ok, send your complete e-mail address as password.
# Password:
# Where there are no spaces after the password. This is important to note
# since, if there were a space, we might try sending a password before
# the ftp server finished giving us a prompt or if we were looking for a space
# and there wasn't one we might end up not matching.
# To save time I cut and pasted most of the line above where we grabbed the
# username prompt.
unless ($ftp->expect(30,"Password:")) {
die "Never got password prompt on $hostname, ".$ftp->exp_error()."\n";
}
# Grabbing our actual domain would be the better thing to do here but is
# outside the scope of this example.
print $ftp "$username\@mycompany.com\r";
# Now we look for a prompt, having (we hope) successfully logged in.
unless ($ftp->expect(30,"ftp> ")) {
die "Never got ftp prompt after sending username, ".$ftp->exp_error()."\n";
}
# Ok. We have a prompt on the foreign machine, so let's get the files.
# Notice that at the end of each loop we are at an ftp> prompt.
foreach $file (@files) {
print $ftp "get $file\r";
unless ($ftp->expect(30,"ftp> ")) {
die "Never got ftp prompt after attempting to get $file, ".$ftp->exp_error()."\n";
}
}
# We should have all the files. If this is the end of the script we can
# quit without bothering to close the process. Perl will take care of it
# for us. Later examples will demonstrate the differences between
# close(), soft_close(), and hard_close().