How can I nest substitutions ? My solution just seems cheap ...
sample data
Cisco Catalyst Operating System Software, Version 235.5(18)
Cisco Catalyst Operating System Software, Version 17.6(7)
Cisco Catalyst Operating System Software, Version 19.6(7)
Cisco Catalyst Operating System Software, Version 6.4(11)
Cisco Catalyst Operating System Software, Version 8.3(7)
Cisco Catalyst Operating System Software, Version 7.6(7)
Cisco Catalyst Operating System Software, Version 5.5(11)
Cisco Catalyst Operating System Software, Version 5.5(10)
SNMPv2-MIB::sysDescr.0 = STRING: Cisco IOS Software, 2800 Software (C2800NM-ADVIPSERVICESK9-M), Version 12.4(8), RELEASE SOFTWARE (fc1)
Korn I would do something like :
sed -e 's/.*ersion //i' -e 's/,.*//' $version
Perl
$version =~ s/.*ersion //i;
$version =~ s/,.*//;
sample output
17.6(7)
19.6(7)
6.4(11)
8.3(7)
7.6(7)
5.5(11)
5.5(10)
5.5(11)
7.6(7)
12.4(8)
I did google "perl + substitution" + "nest substitution" but didnt get any hits that explained nested substitution.
Thanks !!
---------- Post updated at 03:04 PM ---------- Previous update was at 02:19 PM ----------
Getting there ... just got to figure out how to git rid of dat blasted comma
$version =~ s/.ersion ([\b\d{1,2}\.\d.*\(.*\)]+)./$1/;
17.6(7)
19.6(7)
6.4(11)
8.3(7)
7.6(7)
5.5(11)
5.5(10)
5.5(11)
7.6(7)
12.4(8),
---------- Post updated at 03:21 PM ---------- Previous update was at 03:04 PM ----------
ok ... guess it came to me ..
$version =~ s/.ersion ([\b\d{1,2}\.\d.*\(.*]+)./$1\)/;
little tricky but it works.