1 --- Expect.pm-1.07/tutorial/2.A.ftp Sun Jul 12 08:12:32 1998
2 +++ Expect.pm-1.07/tutorial.new/2.A.ftp Fri Oct 8 00:33:30 1999
6 # This example demonstrates how to spawn an ftp process, have it
7 #log in to a host, and grab a file off the host. This should give you a
8 #general idea of how to spawn processes and talk to them.
9 --- Expect.pm-1.07/tutorial/2.B.rlogin Sun Jul 12 08:14:06 1998
10 +++ Expect.pm-1.07/tutorial.new/2.B.rlogin Fri Oct 8 00:33:36 1999
12 -#!/usr/local/bin/perl
14 # There are three new things in this example. First is the concept
15 #of closing the process, second is the concept of using regular
16 #expressions in match patterns, and third is the concept of grabbing
17 --- Expect.pm-1.07/tutorial/3.A.debugging Sun Jun 21 06:50:29 1998
18 +++ Expect.pm-1.07/tutorial.new/3.A.debugging Fri Oct 8 00:33:42 1999
20 -#!/usr/local/bin/perl
22 # This example demonstrates how to use the debugging features in
23 #expect. They're reasonably straghtforward.
25 --- Expect.pm-1.07/tutorial/4.A.top Sun Jun 21 07:24:43 1998
26 +++ Expect.pm-1.07/tutorial.new/4.A.top Fri Oct 8 00:33:47 1999
28 -#!/usr/local/bin/perl
30 # This example is a replay of sorts of the rlogin example
31 #before except in this example we turn control of the process back
32 #to the user through use of interact().
33 --- Expect.pm-1.07/tutorial/5.A.top Sat Jun 20 22:50:32 1998
34 +++ Expect.pm-1.07/tutorial.new/5.A.top Fri Oct 8 00:33:52 1999
36 -#!/usr/local/bin/perl
38 # Here we are doing this again only this time we'll do it
39 #without Echoing the password.
41 --- Expect.pm-1.07/tutorial/5.B.top Sat Jun 20 22:46:03 1998
42 +++ Expect.pm-1.07/tutorial.new/5.B.top Fri Oct 8 00:33:57 1999
44 -#!/usr/local/bin/perl
46 # Here we set manual_stty on the process so we can do things like
47 #hit ^Z to stop it instead of the ^Z going to the process on the other machine.
48 # This is to say, normally when you interact with a process STDIN is
49 --- Expect.pm-1.07/term-filter.pl~ Sat May 31 00:12:08 1997
50 +++ Expect.pm-1.07/term-filter.pl Fri Oct 8 00:37:59 1999
52 -#!/usr/local/bin/perl
54 while (<>) { s/\033\[.*?[a-zA-Z]//g; print; }