Help for this page

Select Code to Download


  1. or download this
    open(STDOUT, '>-');
open(STDOUT, '>&=1');
  2. or download this
    use POSIX;
local $/ = undef;
...
$chldoutput = <INPUT>;
print "ABC: $chldoutput\n";
unlink($TRAP);
  3. or download this
    -- 
perl -p -e "s/(?:\w);(<A HREF="/index.pl?node=st&lastnode_id=3333">st<
+/A>)/'\$1/mg"