y-asd

## Gist_perl-oneliner-xml_extract.txt
# Extract specific tag content (TAG given via env var)

(define TAG shell variable)
TAG=hoge

(including the taret tag name)
A) perl -0777 -ne "print qq{\$&\n} if /<${TAG}\b[^>]*>.*?<\\/${TAG}>/sg" input.xml
or
B) perl -0777 -ne 'print "$&\n" if /<'"$TAG"'\b[^>]*>.*?<\/'"$TAG"'>/sg' input.xml
or
	# Extract specific tag content (TAG given via env var)

	(define TAG shell variable)
	TAG=hoge

	(including the taret tag name)
	A) perl -0777 -ne "print qq{\$&\n} if /<${TAG}\b[^>]>.?<\\/${TAG}>/sg" input.xml
	or
	B) perl -0777 -ne 'print "$&\n" if /<'"$TAG"'\b[^>]>.?<\/'"$TAG"'>/sg' input.xml
	or