Help for this page

Select Code to Download


  1. or download this
      while(1){
    my $var = &foo() ;
    ...
  }
  2. or download this
      perl -wle'my $last; while (my $line = <STDIN>) { last if $line =~ /^$/; print \$line; $last = \$line; }'
  3. or download this
      sub foo { print shift }
  sub bar { &foo; print @_ } # BAD!