LP 1768715: Make the pingest.pl --pipe option be greedy.
authorJason Stephenson <jstephenson@mvlcstaff.org>
Mon, 11 Apr 2016 16:25:57 +0000 (12:25 -0400)
committerBill Erickson <berickxx@gmail.com>
Thu, 23 Aug 2018 16:27:54 +0000 (12:27 -0400)
The --pipe option is used with pingest.pl now assumes that that any
string of digits in the input is a record id.  Instead of using just
the first string of digits on a line, as it did before, it now uses
each string of digits on a line.

Signed-off-by: Jason Stephenson <jstephenson@mvlcstaff.org>
Signed-off-by: Bill Erickson <berickxx@gmail.com>
Open-ILS/src/support-scripts/pingest.pl

index 8389c53..2e610f9 100755 (executable)
@@ -145,9 +145,9 @@ sub duration_expired {
 my @input;
 if ($opt_pipe) {
     while (<STDIN>) {
-        # Want only numbers, one per line.
-        if ($_ =~ /([0-9]+)/) {
-            push(@input, $1);
+        # Assume any string of digits is an id.
+        if (my @subs = /([0-9]+)/g) {
+            push(@input, @subs);
         }
     }
 } else {