Shell Programming and Scripting

 <ssl>
      <name>PIA</name>
      <enabled>true</enabled>
      <listen-port>39370</listen-port>
    </ssl>
    <log>
      <name>PIA</name>
    </log>
    <execute-queue>
      <name>weblogic.kernel.Default</name>
      <thread-count>50</thread-count>
    </execute-queue>
    <listen-port>37390</listen-port>

awk 'BEGIN { FS=" "; OFS=" " }
 
{
 
        if ( $0 ~ /<listen-port>/  &&  $0 ~ /<\/listen-port>/ ){
                # <listen-port>39370</listen-port>
                split($0,A,"\\076")
 
                # 39370</listen-port>
                split(A[2],LP,"\\074")
 
                listen_port=LP[1]
                printf("listen port is  %s\n",listen_port)
        }
 
}
 END {
 
 }' xmlfile

sed -n '/<listen-port>/{s/<listen-port>\(.*\)<\/listen-port>/\1/;p;}' yourfile

#!/usr/local/bin/perl
open( INPUT_FILE, "$ARGV[0]" ) || die "Cannot open input file $ARGV[0]\n";
while ($line = <INPUT_FILE>)
        {
                chop $line;
                @base=split(/\>/,$line);
                $base[0] =~ s/[\<]*//;
                $LengthOfTag=length($base[0]);
                $TotalLength=length($line);
                $FinalLength=$TotalLength - $LengthOfTag - $LengthOfTag - 5;
                $val=substr($line,$LengthOfTag+2,$FinalLength);
                if ( $base[0] eq "listen-port" )
                {
                        print "$val\n";
                }
        }
close(INPUT_FILE);

awk 'BEGIN{ RS="</listen-port>"}{gsub(/.*<listen-port>/,"")}1' file