Shell Programming and Scripting

<?xml version="1.0" encoding="UTF-8"?>
<Response>
  <Ip>193.143.121.198</Ip>
  <Status>OK</Status>
  <CountryCode>PL</CountryCode>
  <CountryName>Poland</CountryName>
  <RegionCode>82</RegionCode>
  <RegionName>Pomorskie</RegionName>
  <City>Gdansk</City>
  <ZipPostalCode></ZipPostalCode>
  <Latitude>54.35</Latitude>
  <Longitude>18.6667</Longitude>
  <Timezone>0</Timezone>
  <Gmtoffset>0</Gmtoffset>
  <Dstoffset>0</Dstoffset>
</Response>

cc=`grep CountryCode tmp.xml | tr -d '\t' | sed 's/^<.*>\([^<].*\)<.*>$/\1/' `
echo $cc
rn=`grep RegionName tmp.xml | tr -d '\t' | sed 's/^<.*>\([^<].*\)<.*>$/\1/' `
echo $rn
ct=`grep City tmp.xml | tr -d '\t' | sed 's/^<.*>\([^<].*\)<.*>$/\1/' `
echo $ct

<CountryCode>PL</CountryCode>
<CountryName>Poland</CountryName>
<RegionName>Pomorskie</RegionName>
<City>Gdansk</City>

PL
Poland
Pomorskie
Gdansk

awk -F"[<>]" '/CountryCode/||/CountryName/||/RegionName/||/City/{print $3}' file

awk -F"[<>]" '/Country|RegionName|City/{print $3}' file

sed -n 's/^.*<\(CountryCode\|CountryName\|RegionName\|City\)>\([^<]*\)<\/.*$/\2/p

[root@rhnserver ~]# grep CountryCode xml | tr -d '\t' |  sed 's/\(.*\)>\(.*\)<\(.*\)/\2/'
PL

#!/bin/sh

[ "$1" ] && exec < "$1"

IFS='<>'
while read -r __ key value __; do
    case $key in 
        CountryCode|CountryName|RegionName|City) echo $value;;
    esac
done

#!/bin/perl

use XML::Simple;

$xml = new XML::Simple;

$data = $xml->XMLin("tmp.xml");

print "$data->{CountryCode}\n$data->{CountryName}\n$data->{RegionName}\n$data->{City}\n";