Shell Programming and Scripting

$ xmllint --xpath '/RECORDS/RECORD/*[self::COUNTRY or self::POSTAL_CODE or self::STREET_BASE_NAME]/text()' a.xml 
Dózsa GyörgyHUN22434511HUN5475

$ xpath -e '/RECORDS/RECORD/*[self::COUNTRY or self::POSTAL_CODE or self::STREET_BASE_NAME]/text()' a.xml 
Found 6 nodes in a.xml:
-- NODE --
Dózsa György
-- NODE --
HUN
-- NODE --
2243
-- NODE --
4511
-- NODE --
HUN
-- NODE --
5475

$ xpath -e '/RECORDS/RECORD/*[self::COUNTRY or self::POSTAL_CODE or self::STREET_BASE_NAME]/text()' a.xml 2>/dev/null
Dózsa György
HUN
2243
4511
HUN
5475

# yum install perl-XML-XPath.noarch
or
# perl -MCPAN -e 'install XML::XPath'

$ cat xml.pl
#!/usr/bin/perl

use XML::XPath;
$,="\t";
$xp = XML::XPath->new(ioref => \*STDIN);
$nodeset = $xp->find('/RECORDS/RECORD');
foreach $node ($nodeset->get_nodelist) {
  @country=$node->find('COUNTRY/text()')->get_nodelist;
  @postal=$node->find('POSTAL_CODE/text()')->get_nodelist;
  @street=$node->find('STREET_BASE_NAME/text()')->get_nodelist;
  print $country[0]->getData(), $postal[0]->getData(), $street[0]->getData();
  print "\n";
}
 

$ ./xml.pl < input.xml
HUN	2243	Dózsa György
HUN	5475	4511

awk '$1~"^(" s ")$"{print $2}' RS=\< FS=\> s="COUNTRY|POSTAL_CODE|STREET_BASE_NAME" infile