Hi,
When I am trying to print the value against the tag ALPHA it is not prints
anything,though it is not showing any warnings.
use strict;
use warnings;
use XML::Twig;
my $twig = XML::Twig->new(start_tag_handlers => {
BSC => \&on_BSC
});
sub on_BSC {
my($twig, $bsc)= @_;
print $bsc->id, "\n";
my $alpha = $bsc->field('ALPHA');
print $alpha, "\n";
$twig->purge;
}
$twig->parsefile(ISProducts.xml');
On Mon, Mar 19, 2012 at 7:54 PM, Anirban Adhikary <
anirban.adhik...@gmail.com> wrote:
> Hi Rob,
> Thanks for your support.The code does exactly what I want .................
> Can you please suggest me a tutorials with good examples on XML::Twig.
>
> Another thing can you please explain me this line in the code my($twig,
> $bsc)= @_;
>
> Best Regards
> Anirban Adhikary.
>
>
> On Mon, Mar 19, 2012 at 7:41 PM, Rob Dixon <rob.di...@gmx.com> wrote:
>
>> On 19/03/2012 13:10, Anirban Adhikary wrote:
>>
>>> Hi List,
>>> I have a XML file which looks like as follows
>>>
>>> <ISProducts>
>>> <StoreInfo>
>>> <BSC id="AMIBRB1">
>>> <ALPHA>10</ALPHA>
>>> <AMRCSFR3MODE>1,3,4,7</**AMRCSFR3MODE>
>>> <AMRCSFR3THR>12,16,21</**AMRCSFR3THR>
>>> <AMRCSFR3HYST>2,3,3</**AMRCSFR3HYST>
>>> <AMRCSFR4MODE>1,3,6,8</**AMRCSFR4MODE>
>>> <AMRCSFR4THR>12,17,25</**AMRCSFR4THR>
>>> <PAGBUNDLE>50</PAGBUNDLE>
>>> <USERDATA>AMI_BRANLY_B_1</**USERDATA>
>>> </BSC>
>>> .........................
>>> .............................
>>>
>>> Now my question is how to extract the value of id in a variable using
>>> XML::Twig.
>>> Since the xml file is quite large I like to print the value of id using a
>>> loop.
>>>
>>
>> XML::Twig uses callbacks to process pieces of the XML that you have
>> defined. In this case you are interested only in the <BSC> start tag so
>> you can define a "start tag handler". Using $twig->purge empties the
>> data read so far. If you use this once you have accessed all the
>> information you need from a given element there is no need to store the
>> entire XML data in memory.
>>
>> The program below doeas what I think you want.
>>
>> HTH,
>>
>> Rob
>>
>>
>> use strict;
>> use warnings;
>>
>> use XML::Twig;
>>
>> my $twig = XML::Twig->new(start_tag_**handlers => {
>> BSC => \&on_BSC
>> });
>>
>> sub on_BSC {
>> my($twig, $bsc)= @_;
>> print $bsc->id, "\n";
>> $twig->purge;
>> }
>>
>> $twig->parsefile('ISProducts.**xml');
>>
>>
>>
>>
>
