http://www.perlmonks.org?node_id=1007771


in reply to Regular expression assistance

VLAN=`echo $cdp | awk '/0x0a/ { print $8 }'`

VLAN=`echo $cdp | perl -lane'/0x0a/ && print $F[7]'`

[download]

In Section Seekers of Perl Wisdom