Help for this page

Select Code to Download


  1. or download this
    <%filter>
  s/^(.*?)$/tidy($1)/se;
$filter
  2. or download this
       sub tidy {
      my ($output) = @_;
...
      close READER;
      return $output;
  }
  3. or download this
      sub tidy {
      my ($output) = @_;
...
      unlink $tmp_file;
      return $output;
  }