asked on 7/12/2011

Pattern match

Hi,

I want to grep the value presnt inside <sql type="cognos"> XXXXX</sql>
in the attached file there are 98 occurences .
I want to grep this value (XXXXX) and push it inside an array .So that that array would contain all the XXXXX .I am attaching the file <model.xml>
my code
my $infile = shift;
open INFILE, "<", $infile;
$count=0;

while ($in = <INFILE>) {
#print if (/<dataSourceRef>.*<\/dataSourceRef>/);

($input) = $in =~ (/<sql type="cognos">(.*?)<\/sql>/);
push @array,$input;

}

close INFILE;
print scalar @array ;
print join ("\n","@array\n");

model.xml

Perl

Last Comment

Suhas .

12/16/2011

Carl Bohman

7/12/2011

Your match is not working because .* does not match across line breaks (as exist in your file). If I were you, I would change (.*?) to ([^<]*) in order to match everything up to the end tag: </sql>. This will match across line breaks. The other option is to add the "s" modifier after the last slash as in:
($input) = $in =~ (/<sql type="cognos">(.*?)<\/sql>/s);

ASKER CERTIFIED SOLUTION

FishMonger

7/12/2011

THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

Suhas .

12/16/2011

This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.