first commit

2025-09-17 16:08:16 +08:00
parent 9395faa6b2
commit 3ff47c11d5
1318 changed files with 117477 additions and 0 deletions
--- a/perl/Examples/Chap2/walk-html-uparam
+++ b/perl/Examples/Chap2/walk-html-uparam
@@ -0,0 +1,18 @@
+
+
+###
+### 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);
+}