Help for this page

Select Code to Download


  1. or download this
    use strict;
use HTML::Template;
...
    </center>
</body>
</html>
  2. or download this
    <html>
<head>
...
    </center>
</body>
</html>
  3. or download this
    my $dir_list = [
                { dir => 'foo', dir_row => [
...
                                            ] # for dir_row
                }
                ];
  4. or download this
    $"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"
+- $1"}&&`rm $1`;
print$\;}