- or download this
@pattern_list = expect "SWBKPT hit for SLOT";
- or download this
my @arr = qw( bob sue jane);
print "\@arr = " . join(':', @arr) . "\n";
- or download this
my@mybox:~/sandbox
$ ./4.pl
@arr = bob:sue:jane
- or download this
$expect->expect($timeout,"SWBKPT hit for SLOT");
sleep 2;
$expect->send("\n\n");