Help for this page

Select Code to Download


  1. or download this
    do [$fh, sub {s/s/ss/gs; s/([\nS])/$1$1$1/gs; return;}] or die;
  2. or download this
    unshift @INC, sub {
    no warnings 'uninitialized';
    ref $_[1] eq 'ARRAY' ? @{$_[1]} : $_[1];
};
  3. or download this
    open $fh, "<", \<<'EOC';
BEGIN {prepend_block_counting_filter};
pas("SSS make s fast SSS");
EOC
  4. or download this
    open file handles to "in memory" files held in Perl scalars via:

    open($fh, ’>’, \$variable)