getting a part of a message in a excel folder

[pratim09]

Hi

I am new to perl .My requirement is that I am querying database and fetching 2 data one is msg_nbr and other is tehre corresponding xml message.

I am getting all the xml message in a variable .Now what is need is to fetch only the part of the xml data whixch is enclosed within the tags <notag>anything..,..</noTag>. and export it to a excel sheet along withthe corresponding msg nbrs.

I am trying the follwing code

while (my @row_ary  = $sth->fetchrow_array)
{
        my @row = ($row_ary[0],
                $row_ary[1],
                 );
        $count++;
        my $locMsgnbr = $row_ary[0];
        my $locxmldata =  $row_ary[1];
#       print("$locxmldata \n");
    #            $row_ary[1] =~ /<noTag>(.*?)<\/noTag>/;
        $locxmldata =~ m/<noTag>(.*?)<\/noTag>/;
        #$row_ary[1] = ~ /<noTag>(.*?)<\/noTag>/;
           $notagdata = $1;
        print ("$notagdata \n");
        my $rowName = 'A'.$count;
        worksheet1->write($rowName,$row_ary[0],$notagdata);
 
}
 

Please help.

[eWish]

Are you having problems getting the regex to work or are you having other problems? When it comes to extracting data from attribute tags it is best to use a parser designed to do so.

--Kevin