Help for this page

Select Code to Download


  1. or download this
    sub operate (&@) {
  my $sub = shift;
  local $~;
  $~ = &$sub($_) for @_;
  return $~
}
  2. or download this
    use strict;
sub operate (&@) {
  my $sub = shift;
...
open FILE, $0;
my $count = operate { $~ + /operate/ } <FILE>;
print "Count = $count\n";
  3. or download this
    max = 645
string = 462671236452354
count = 4