Help for this page

Select Code to Download


  1. or download this
    #! perl -sw
use vars qw/@scanners/;
...
# call the 'scan' routine in each module, and 
# print out the results from the array reference returned.
print @{&{$_}}, $/ for @scanners;
  2. or download this
    package method1;
sub new{
...
    return \@results;
}
1;
  3. or download this
    package method2;
sub new{
...
    return \@results;
}
1;
  4. or download this
    C:\test>209857
foobarbaz
thequickbrownfox

C:\test>