Re: Parsing arguments with surrounding garbage.

Since you want "1234 221", not "1234", which is what that regex will capture, and you really want to be using match, not substitute, I'd suggest this:

#!/usr/bin/perl -w 
use strict; 
 
my @args; 
my $string="garbage validcommand 1234  221 garbage 999 213"; 
while ($string =~ m!validcommand\s+(\d+(?:\s+\d+)*)!g) { 
  push(@args, $1); 
} 
print @args;
[download]

Comment on Re: Parsing arguments with surrounding garbage. Download Code

Replies are listed 'Best First'.
Re: Re: Parsing arguments with surrounding garbage. by kschwab (Vicar) on Apr 04, 2001 at 19:14 UTC
Thanks, I was looking for a match instead of a substitute, so this and the other replies were helpful. A note on your comment: Since you want "1234 221", not "1234", which is what that regex will capture The code I posted does work (because it takes n trips through the while() loop), and pulls in both 1234 and 221 into @args. It's just uglier than I wanted. Thanks all !	[reply]