Help for this page

Select Code to Download


  1. or download this
    package SomeClass;
use Class::Std::Utils;
...
    }
}
  2. or download this
    package SomeClass;

...
        my $address = ($_[0] =~ /\(?x(\w+)/)[0]
    }
}
  3. or download this
    #!/usr/bin/perl

...
print $_1->get('name'), $/;
print $_2->get('name'), $/;
print $_2->{'name'}, $/;