Help for this page

Select Code to Download


  1. or download this
    my $TRAP = POSIX::tmpnam();
close(STDOUT);
...
open(STDOUT, ">-");
open(INPUT, "<$TRAP") || die("$!: $TRAP");
$chldoutput = <INPUT>;
  2. or download this
    -- 
perl -p -e "s/(?:\w);(<A HREF="/index.pl?node=st&lastnode_id=479">st</
+A>)/'\$1/mg"