Help for this page

Select Code to Download


  1. or download this
        use strict;
        use warning;
    ...
                my $query  = "/tradenet/message/header/unique_ref_no/date/
    +text( )";
                my($node)   = $doc->findnodes($query);
                $node->setData("$file_seq_number");
    
  2. or download this
        my $parser = XML::LibXML->new();
            my $doc    = $parser->parse_file($newfile);
            my $query  = "/TradenetResponse/OutboundMessage/out:OutwardPer
    +mit/out:Declaration/out:Header/cac:UniqueReferenceNumber/cbc:Sequence
    +Numeric/text( )";
            my($node)   = $doc->findnodes($query);
            $node->setData("$file_seq_number");