Help for this page

Select Code to Download


  1. or download this
    
sub new {
...
bless ( $self, $class);
return $self;
  2. or download this
    
my @foo = @{ $self->{TABLE}{6} };
print "$foo[0]\n";
  3. or download this
    
Can't use string ("here") as an ARRAY ref while "strict refs" in use 
 at ./test.pl line x.