Matching and making accesible an arbitrary number of subpatterns w/a regex? (rojam74)

Matching and making accesible an arbitrary number of subpatterns w/a regex?

rojam74

created: 2006-08-03 13:24:10

perlmonks

node
author

prlmnks

node
author

Hello Monks-

I'm wondering if there is a way to match an arbitrary number of sub patterns with a regex, and have these subpatterns available in the $1, $2 variables?

ie: a string "aaa:bbb:ccc:ddd:eee:"
This string can be just 'aaa:', or might be many repetitions longer

How can I get 'aaa:' into $1, 'bbb:' into $2, 'ccc:' into $3, etc?

I know I can capture the whole pattern and split on the ':', but am curious if this is possible using ()'s in a regex. Thanks!

Re: Matching and making accesible an arbitrary number of subpatterns w/a regex?

Velaki

created: 2006-08-03 13:31:09

perlmonks

prlmnks

Splitting on the colon might be your best bet if the nature of your data is field-delimited, but you should also be able to achieve the same with:

  my $src_string = 'aaa:bbb:ccc:ddd:eee:';
  my @results = $src_string =~ /([^:]*):/g;

Hope this helps,
-v.

"Perl. There is no substitute."

Re^2: Matching and making accesible an arbitrary number of subpatterns w/a regex?

ikegami

created: 2006-08-03 13:34:37

perlmonks

prlmnks

[doc://split|Split]ting on the colon, you say?

my $src_string = 'aaa:bbb:ccc:ddd:eee:';
my @results = split /:/, $src_string;
pop @results;

Update: Oops, I missed the last line of the OP. Well, neither solution populates $1, $2, $3, so I guess neither answers the OP.

Re^2: Matching and making accesible an arbitrary number of subpatterns w/a regex?

Hue-Bond

created: 2006-08-03 13:36:59

perlmonks

prlmnks

That does not work when the string doesn't contain any colon:

my $src_string = 'aaa';
my @results = $src_string =~ /([^:]*):/g;
use Data::Dumper; print Dumper \@results;
__END__
$VAR1 = [];

--
David Serrano

Re^3: Matching and making accesible an arbitrary number of subpatterns w/a regex?

ikegami

created: 2006-08-03 13:43:02

perlmonks

prlmnks

It seems to me from the OP's description that it will always end in a semi-colon. If not, add it:

my $src_string = 'aaa:bbb:ccc:ddd:eee';
my @results = "$src_string:" =~ /([^:]*):/g;

Re: Matching and making accesible an arbitrary number of subpatterns w/a regex?

Hue-Bond

created: 2006-08-03 13:33:53

perlmonks

prlmnks

If you can cope with an array, something as simple as /([^:]+)+/g should do the trick.

my $c='aaa:bbb';
my @arr = $c =~ /[^:]+/g;
use Data::Dumper; print Dumper \@arr;
__END__
$VAR1 = [
          'aaa',
          'bbb'
        ];

---

my $c='aaa:bbb:foo:bar'; 
my @arr = $c =~ /[^:]+/g;
use Data::Dumper; print Dumper \@arr;
__END__
$VAR1 = [
          'aaa',
          'bbb',
          'foo',
          'bar'
        ];

Update: Simplified the regex, as per [id://106949] suggestion.

--
David Serrano

Re^2: Matching and making accesible an arbitrary number of subpatterns w/a regex?

ikegami

created: 2006-08-03 13:50:16

perlmonks

prlmnks

When given 'aaa::bbb', your regexp only returns two items.

Re: Matching and making accesible an arbitrary number of subpatterns w/a regex?

kwaping

created: 2006-08-03 15:12:44

perlmonks

prlmnks

This code is way overkill compared to doing a simple split, but anyway, I just wanted to see if I could do it.

my $string = 'aaa:bbb:ccc:ddd:eee:';
my $chunk = '([^:]+:)';

my $colons =()= $string =~ /:/g;
my $regex = $chunk x $colons;
$string =~ /$regex/;
print "$1,$2,$3,$4,$5";

---
It's all fine and dandy until someone has to look at the code.

Re: Matching and making accesible an arbitrary number of subpatterns w/a regex?

sh1tn

created: 2006-08-03 17:08:20

perlmonks

prlmnks

non-greedy:

$_ = "aaa:bbb:ccc:ddd:eee:"; @_ = $_ =~ /(.+?:)/g; print "@_"

Re: Matching and making accesible an arbitrary number of subpatterns w/a regex?

Skeeve

created: 2006-08-03 18:45:15

perlmonks

prlmnks

There was yet only one ([kwaping]) who correctly answered the OP's question.

Here is my solution to it:

my $string = 'aaa:bbb:ccc:ddd:eee:';
my $regex= $string;
$regex=~ s/[^:]*:/([^:]*:)/g;
$string =~ /$regex/;
print "$1,$2,$3,$4,$5";

s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e