Help for this page
sub operate (&@) { my $sub = shift; local $~; $~ = &$sub($_) for @_; return $~ }
use strict; sub operate (&@) { my $sub = shift; ... open FILE, $0; my $count = operate { $~ + /operate/ } <FILE>; print "Count = $count\n";
max = 645 string = 462671236452354 count = 4
www.com | www.net | www.org
No recent polls found