[thelist] Perl Regex Dummy needs help
Luther, Ron
ron.luther at hp.com
Mon Oct 20 09:20:53 CDT 2003
Hi Gang,
I'm testing on a single file ... and obviously making some kind
of silly mistake.
How can I change the code below to get my $aa variable to output
whatever text appears between the "<BELNR>" and "</BELNR>" tags
in the XML file I am reading in?
# *******************************************************
while (defined ($line = <TIRS_IN>)) {
$header = $line;
$rlso = $header;
$aa = /<BELNR>($.)<\/BELNR>/;
$bb = substr($header,0,9);
print TIRS_OUT $aa, $rlso, 'line ', $bb;
print TIRS_OUT "\r\n";
# ********************************************************
Thanks!
RonL.
More information about the thelist
mailing list