Help for this page

Select Code to Download


  1. or download this
     #!/usr/bin/perl
use strict;
use warnings;
...

}
  2. or download this
     
Starting EXPECT pattern matching...
 at /usr/local/share/perl5/Expect.pm line 597
...
        main::__ANON__('Expect=GLOB(0x1b086f0)') called at /usr/local/
+share/perl5/Expect.pm line 825
        Expect::_multi_expect(undef, undef, 'ARRAY(0x1616c90)') called
+ at /usr/local/share/perl5/Expect.pm line 602
        Expect::expect('Expect=GLOB(0x1b086f0)', undef, 'ARRAY(0x1ae5c
+80)') called at ./expecct_demo.pl line 40