Help for this page

Select Code to Download


  1. or download this
    print "World\n";
BEGIN { print "Hello " };
  2. or download this
    package mylib;
use constant {
...
    CONF_PATH   => do { $_ = __FILE__; s/pm$/conf/i; $_ },
};
print CONF_PATH;
  3. or download this
    package mylib;
use constant {
...
    CONF_PATH   => (__FILE__ =~ s/pm$/conf/ir),
};
print CONF_PATH;