Search Results

Hi,

try like below:
#!/usr/bin/perl -w

my @a = ("hi", "hello", "GigabitEthernet1/0/3 is down, line protocol is down (notconnect)");

foreach (@a) {
if ( $_ =~ /(.*) is down,.*/) {
...

Try:
awk '/interface/{print x}1' file | awk '!(/switchport port-security/ && /spanning-tree portfast/)' RS=

interface FastEthernet0/8
spanning-tree portfast
interface FastEthernet0/9
...

There are a couple things very wrong here (marked in red):use strict; # These 2 lines should be in every Perl program
use warnings;

use SNMP::Simple; #Missing semicolon

my %ios = ();
$list =...