Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
my $other = $library::our;

print "Thing: $thing\nOther: $other";
  2. or download this
    package library;

...

print "lib $my\n$our endlib \n\n";
  3. or download this
    Use of uninitialized value in print at testing.pl line 5.
lib my
...
Other: our
Use of uninitialized value in concatenation (.) or string 
at testing.pl line 11.
  4. or download this
    #!/usr/bin/perl -w
use strict;
...
    $self = shift;
    return $my, $our;
}