Help for this page

Select Code to Download


  1. or download this
        unless ($exp->expect(3,"Do you want to unpack these archive files 
    +for processing? [Y/N]:")) {};
        print $exp "$response1\r";
    
  2. or download this
    spawn id(3): list of patterns:
      #1: -ex `Do you want to unpack these archive files for processing? [
    +Y/N]:'
    ...
    Closing spawn id(3).
     at /usr/local/share/perl/5.14.2/Expect.pm line 1354
            Expect::soft_close('Expect=GLOB(0x96965bc)') called at ./Fullh
    +ealthprep.pl line 37