[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