URRRRGH .. FRUSTATED .. PARSING

[sumncguy]

if a $result contains the following, what is the best way to grab only 12.2(18)SXF8 ?

SNMPv2-MIB::sysDescr.0 = STRING: Cisco Internetwork Operating System Software
IOS (tm) s72033_rp Software (s72033_rp-ADVENTERPRISEK9_WAN-M), Version 12.2(18)SXF8, RELEASE SOFTWARE (fc2)
Copyright (c) 1986-2007 by cisco Systems, Inc.

 

[sumncguy]

Sorry forgot to give some code


$result =~ m/Version (.*)/;
@ver = split (/ /, $1);
print "$ver[0]\n";

Pretty crappy huh ??

 

[KevinADC]

Is this input from a file or some other source? What have you tried so far?

------------------------------------------
- Kevin, perl coder unexceptional!

 

[stevexff]

use strict;
use warnings;

my $stuff = "SNMPv2-MIB::sysDescr.0 = STRING: Cisco Internetwork Operating System Software
IOS (tm) s72033_rp Software (s72033_rp-ADVENTERPRISEK9_WAN-M), Version 12.2(18)SXF8, RELEASE 

SOFTWARE (fc2)
Copyright (c) 1986-2007 by cisco Systems, Inc. ";

$stuff =~ /Version\s+([^,]+)/;

print "$1\n";

seems to do it.

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]