Hello and Welcome from United States to the UNIX and Linux Forums! Thank You for Visiting and Joining Our Global Community.
|
Hello and Welcome from United States to the UNIX and Linux Forums! Thank You for Visiting and Joining Our Global Community.
|
|
google unix.com
|
|||||||
| Forums | Register | Forum Rules | Links | Albums | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read |
 |
| Shell Programming and Scripting Post questions about KSH, CSH, SH, BASH, PERL, PHP, SED, AWK and OTHER shell scripts and shell scripting languages here. |
More UNIX and Linux Forum Topics You Might Find Helpful
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Perl: parsing variables | figaro | Shell Programming and Scripting | 2 | 07-16-2008 10:53 AM |
| xml parsing error in perl | bishweshwar | UNIX for Advanced & Expert Users | 1 | 05-30-2007 10:59 PM |
| HTML parsing by PERL | avik1983 | Shell Programming and Scripting | 3 | 02-23-2007 09:25 AM |
| PERL - Parsing Crystal Reports | srinivay | Shell Programming and Scripting | 0 | 05-12-2005 07:55 AM |
| Conversion of bash parsing script to perl? | cstovall | Shell Programming and Scripting | 2 | 10-13-2004 10:33 PM |
 |
Powered by 
|
|
|
LinkBack | Thread Tools | Search this Thread | Rate Thread | Display Modes |
08-06-2008
|
||||
|
||||
|
Perl parsing compared to Ksh parsing
#! /usr/local/bin/perl -w
$ip = "$ARGV[0]"; $rw = "$ARGV[1]"; $snmpg = "/usr/local/bin/snmpbulkget -v2c -Cn1 -Cn2 -Os -c $rw"; $snmpw = "/usr/local/bin/snmpwalk -Os -c $rw"; $syst=`$snmpg $ip system sysName sysObjectID`; sysDescr.0 = STRING: Cisco Internetwork Operating System Software IOS (tm) 7200 Software (C7200-JK9O3S-M), Version 12.3(22), RELEASE SOFTWARE (fc2) Technical Support: Cisco - Shortcut Copyright (c) 1986-2007 by cisco Systems, Inc. Compiled Wed 24-Jan-07 2 sysObjectID.0 = OID: enterprises.9.1.222 sysUpTime.0 = Timeticks: (122783188) 14 days, 5:03:51.88 sysContact.0 = STRING: 1265108 sysName.0 = STRING: nameoftherouter sysLocation.0 = STRING: someplace, ny sysServices.0 = INTEGER: 78 sysORLastChange.0 = Timeticks: (0) 0:00:00.00 ifNumber.0 = INTEGER: 10 ifIndex.1 = INTEGER: 1 ifIndex.2 = INTEGER: 2 In ksh to get the Version number and hostname I would do something like vers=`echo "$syst" | grep -i version | sed 's/.*ersion //' | cut -d"," -f1` hnam=`echo "$syst" | grep sysName | head -1 | sed 's/.*RING: //' | cut -d"." -f1` what is perls equivalent ? |
|
08-06-2008
|
||||
|
||||
|
Something like this?
Code:
if ($syst =~ /Version ([^,]+),/) { $version=$1; } else { $version="unknown"; }
if ($syst =~ /sysName.*STRING: (.+)/) { $hnam=$1; } else { $hnam="unknown"; }
print "$version\n$hnam\n";
|
| Sponsored Links | ||
|
|
|
| Bookmarks |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
Linear Mode
