Search Results

@array = (1..10);
print "number not found\n" if ! grep (/11/, @array);

Could you post an example? I mean, the exact code you run.

This is supposed to be a readable version:


use warnings;
use strict;

my @arrys = (
[ qw( 44 44 44 44 ) ],
[ qw( 55 55 55...

The code is written in Perl, but it uses a features of version 5.10.

Put this code in a script and try it:

#! /usr/bin/perl

use warnings;
use strict;

my @array1 = qw(44 44 44 44);
my...

perl -E'
@array1 = qw(44 44 44 44);
@array2 = qw(55 55 55 55 55 55 56);

do {
%_ = ();
@_{@$_} = ();
say "@$_ -> ", keys %_ > 1 ? "KO" : "OK"
} for \@array1,...

# That can be done by hashes concept
@Array1 = qw(Fa0/0 Fa0/1 Fa0/2 Fa0/3);
@Array2 = qw(Fa0/1 Fa0/2 Fa0/3 Fa0/4);
# process two array , increment the values and store into hash
$hash{$_}++ for...

The "4" is coming from:

Change the print to:
print "<($line_output)>";to confirm. You should see:
<snip>
sh run | in distribute<(4)>
distribute-list 55 out FastEthernet0/1<(4)>...

As for the autosplit.ix error: how did you install the module, and what Perl distribution do you use? ActiveState?

The timeout probably means that the device didn't answer after a certain period...

The answer is quite simple: single quotes, unlike double quotes, won't interpolate the content of the variable, but take the string as is. See perldoc perlop...

Serial0[/0]*([[:space:]]|$) will match Serial0 or Serial0/0 or Serial0/0/0

Instead of Tunnel.* which will match any length and type of characters afterward, you could use
Tunnel[0-9]

It is all about matching, instead of not matching, therefore you have to make...