Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse -ne 'chomp;$s+=$_ if($_>10240);END{print "$s\n"}'
  2. or download this
    LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
...
    ;
}
-e syntax OK
  3. or download this
    while (<>) {
    chomp;
    $s += $_ if $_ > 10240;
}
print "$s\n";