first commit

This commit is contained in:
douboer
2025-09-17 16:08:16 +08:00
parent 9395faa6b2
commit 3ff47c11d5
1318 changed files with 117477 additions and 0 deletions

19
perl/Examples/Chap7/cgrep Normal file
View File

@@ -0,0 +1,19 @@
###
### cgrep
###
## Chapter 7 section 2
sub cgrep (&) {
my $f = shift;
my $r = sub {
my @result;
for (@_) {
push @result, $_ if $f->($_);
}
@result;
};
return $r;
}