Help for this page

Select Code to Download


  1. or download this
    LINE: while ( defined( $_ = <ARGV> ) ) {
    @_ = $_;
...
{
    print "Just another perl hacker.\n" unless eval "@_";
}
  2. or download this
    @{STDIN}='dedalus.pl.tdy'
@{*main::STDIN}='dedalus.pl.tdy'
...
...
Can't open : No such file or directory at dedalus.pl.tdy line 1.
Just another perl hacker.
  3. or download this
    #! /usr/bin/perl -n
@_=$_}BEGIN{eval'@{$_}=${@_}'for sort keys%::}{eval"@_"||
print "Just another perl hacker.\n"