Files
devops/perl/Examples/Chap2/walk-html-uparam
2025-09-17 16:08:16 +08:00

19 lines
387 B
Plaintext

###
### walk_html_userparam
###
## Chapter 2 section 2.1
sub walk_html {
my ($html, $textfunc, $elementfunc, $userparam) = @_;
return $textfunc->($html, $userparam) unless ref $html;
my ($item, @results);
for $item (@{$html->{_content}}) {
push @results, walk_html($item, $textfunc, $elementfunc, $userparam);
}
return $elementfunc->($html, $userparam, @results);
}