Help for this page

Select Code to Download


  1. or download this
    use strict;
package Foo;
...
print "x $Foo->{bar}\n";
print "x $Foo->{bar}{1}\n";
print "x $Foo->{bar}{1,2}\n";
  2. or download this
    ...
package main;
...
print "x $Foo->{bar}\n";
print "x $Foo->{bar}{1}\n";
print "x $Foo->{bar}{1,2}\n";
  3. or download this
    ...
package main;
...
print "x $CALL->{$foo}->{bar}\n";
print "x $CALL->{$foo}->{bar}{1}\n";
print "x $CALL->{$foo}->{bar}{1,2}\n";
  4. or download this
    package Foo;
sub baz {
...
    $obj->$cmd(@_);
}, '$$$*->$';
print "x $CALLX->{$foo}->{baz}{$ref}{100}{$object}\n";