Add a work-around function for older Perls

scottchiefbaker · Nov 29, 2023 · 8825840 · 8825840
1 parent bd69285
commit 8825840
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/pod/perlvar.pod b/pod/perlvar.pod
@@ -1120,6 +1120,23 @@ information on this form and its uses.
 
 This variable was added in 5.25.7
 
+    sub get_captures {
+        my $str      = $&;
+        my @captures = ();
+
+        # Build array using the offsets from @- and @+
+        for (my $i = 1; $i < @-; $i++) {
+            my $start = $-[$i];
+            my $end   = $+[$i];
+            my $len   = $end - $start;
+
+            my $str = substr($str, $start, $len);
+            push(@captures, $str);
+        }
+
+        return @captures;
+    }
+
 =item $MATCH
 
 =item $&