pattern substitution question

[user2base]

Hello,
I've got an input text in which I want to replace every string like "match(value)" by "value" (and store all "value" in an array)

i.e:
bla bla bla
bla bla match(value1) bla bla
bla match(value2) bla bla
bla match bla bla
bla match(value3) bla

becomes:
bla bla bla
bla bla value1 bla bla
bla value2 bla bla
bla match bla bla
bla value3 bla

and I have @array=(value1,value2,value3);

the text is in a scalar $txt
what is the substitution to apply to $txt ??

Thanks.

 

[tonykent]

The following assumes that you have read your data into @array1:

foreach $line(@array1) {
$line=~s/match\((.+)\)/$1/;
push(@values, $1);
print "$line\n";
}

Then see if you are getting what you want by:

foreach $line(@array1) {
print "$line\n";
}
foreach $entry(@values) {
print "$entry\n";
}

Hope it helps.

 

[missbarbell]

#!/usr/bin/perl

my $txt = q|
bla bla bla
bla bla match(value1) bla bla
bla match(value2) bla bla
bla match bla bla
bla match(value3) bla
|;

my @array = ($txt=~/match\((.+)\)/g);
$txt=~s/match\((.+)\)/$1/g;

print $txt . "\n\narray=".join(",",@array)."\n";


will print:

bla bla bla
bla bla value1 bla bla
bla value2 bla bla
bla match bla bla
bla value3 bla


array=value1,value2,value3


Unfortunately this means pattern matching twice, once to get the match values and the other to replace them. The /g modifier saves you having to write a loop to store and replace them all.

Barbie
Leader of Birmingham Perl Mongers

http://birmingham.pm.org