Help for this page

Select Code to Download


  1. or download this
    perl -p -e '$\+=$_}{'
  2. or download this
    LINE: while (defined($_ = <ARGV>)) {
    # Your code here
...
continue {
    die "-p destination: $!\n" unless print $_;
}
  3. or download this
    LINE: while (defined($_ = <ARGV>)) {
    $\ += $_;
...
continue {
    die "-p destination: $!\n" unless print $_;
}