Shell Programming and Scripting

#!/bin/bash
printf 'perl results:\n'
time perl -nle '/<factories.*baseQueueName/ and @r=/(?:jndiN|baseQueueN|n)ame="([^"]+)/g and print join ",",@r[1,2,0]' resources.xml

printf '\nawk results:\n'
time awk '
BEGIN {	# Define ERE to match double-quoted string.
	dqsERE = "\"[^\"]*\""

	# Construct array of extended regular expression to match attributes...
	# First, the attribute name...
	EREs[++nEREs] = " jndiName="
	EREs[++nEREs] = " baseQueueName="
	EREs[++nEREs] = " name="

	# Save the lengths of the attribute names and add an ERE to match the
	# double-qouted string following the attribute name.
	for(i = 1; i <= nEREs; i++) {
		offset[i] = length(EREs[i]) + 1
		EREs[i] = EREs[i] dqsERE
	}
}
/<factories.*baseQueueName/ {
	# We have an XML line to process.
	# Clear the output string.
	out = ""
	for(i = 1; i <= nEREs; i++t) {
		# For each desired attribute, look for a match...
		if(match($0, EREs[i]))
			# A match was found for this attribute, add the data
			# from the double-quoted string to the output string.
			out = out substr($0, RSTART + offset[i],
				RLENGTH - offset[i] - 1)
		# Whether or not a match was found, add a field separator to
		# the output string.
		out = out ((i < nEREs) ? "," : "")
	}
	# Print the accumulated output string.
	print out
}' resources.xml

printf '\nOriginal script results:\n'
time {	grep '<factories.*baseQueueName' resources.xml | while read line; do
	QUEUE_JNDI_NAME=$( echo $line | grep -o 'jndiName="[^"]*"'      | cut -d'"' -f2 )
	BASE_QUEUE_NAME=$( echo $line | grep -o 'baseQueueName="[^"]*"' | cut -d'"' -f2 )
	QUEUE_NAME=$(      echo $line | grep -o 'name="[^"]*"'          | cut -d'"' -f2 )
	echo "$QUEUE_JNDI_NAME,$BASE_QUEUE_NAME,$QUEUE_NAME"
	done
}

perl results:
jms/Queue1,TEST.QUEUE1,Queue1
jms/Queue2,TEST.QUEUE2,Queue2

real	0m0.007s
user	0m0.002s
sys	0m0.003s

awk results:
jms/Queue1,TEST.QUEUE1,Queue1
jms/Queue2,TEST.QUEUE2,Queue2

real	0m0.002s
user	0m0.001s
sys	0m0.001s

Original script results:
jms/Queue1,TEST.QUEUE1,Queue1
jms/Queue2,TEST.QUEUE2,Queue2

real	0m0.017s
user	0m0.011s
sys	0m0.016s

# XML has 151 matching xml nodes(lines)
 perl -nle '/<factories.*baseQueueName/ and @r=/(?:jndiN|baseQueueN|n)ame="([^"]+)/g and print join ",",@r[1,2,0]' resources.xml | wc -l
151

# I did two tests with the same script you tried on your end.
perl results:
real    0m0.008s	real    0m0.008s  
user    0m0.007s  	user    0m0.007s
sys     0m0.002s	sys     0m0.002s

awk results:
real    0m0.066s  	real    0m0.026s
user    0m0.026s    user    0m0.007s
sys     0m0.001s	sys     0m0.002s

Original script results:
real    0m0.997s    real    0m1.102s
user    0m0.621s    user    0m0.644s
sys     0m0.680s	sys     0m0.690s

#!/bin/bash
printf 'awk results:\n'
time awk 'BEGIN{d="\"[^\"]*";E[1]=" jndiName=";E[2]=" baseQueueName=";E[n=3]=" name=";for(i=1;i<=n;i++){O[i]=length(E[i])+1;E[i]=E[i]d}}/<factories.*baseQueueName/{o="";for(i=1;i<=n;i++){if(match($0,E[i]))o=o substr($0,RSTART+O[i],RLENGTH-O[i]);o=o ((i<n)?",":"")}print o}' resources.xml

time awk 'BEGIN{d="\"[^\"]*";E[1]=" jndiName=";E[2]=" baseQueueName=";E[n=3]=" name=";for(i=1;i<=n;i++){O[i]=length(E[i])+1;E[i]=E[i]d}}/<factories.*baseQueueName/{o="";for(i=1;i<=n;i++){if(match($0,E[i]))o=o substr($0,RSTART+O[i],RLENGTH-O[i]);o=o ((i<n)?",":"")}print o}' resources.xml
real    0m0.007s
user    0m0.005s
sys     0m0.002s
_________
real    0m0.028s
user    0m0.025s
sys     0m0.002s


perl
time perl -nle '/<factories.*baseQueueName/ and @r=/(?:jndiN|baseQueueN|n)ame="([^"]+)/g and print join ",",@r[1,2,0]' resources.xml
real    0m0.008s
user    0m0.006s
sys     0m0.002s

time perl -nle '@r=/<factories.*name="([^"]+)"\sjndiName="([^"]+)".*baseQueueName="([^"]+)/ and print join ",",@r[1,2,0]' resources.xml
real    0m0.007s
user    0m0.005s
sys     0m0.002s