Help for this page

Select Code to Download


  1. or download this
    print $expect "StringToSend";
    $expect->expect(15,"StringToWatchFor") or die "not found";
    
  2. or download this
    my $expect = new Expect;
    $expect->raw_mode(1);
    $expect->spawn(....);
    
  3. or download this
    $expect->expect(15,["name", sub { my $self = shift; 
                                      $self->print("PrimeLord\n"); 
                                      exp_continue; }],
                       ["\n", sub { exp_continue; }],
                       "\n");