Set an example

In the Net::SNMP documentation they make a great example:
1. Blocking SNMPv1 get-request for sysUpTime
This assumes that your printers implement the sysUpTime OID. If not then you might use sysDescr or something else. Device Dependent!

andyford
or non-Perl: Andy Ford

If it's not the entire program, perhaps you should post where it would 'break'. And explain what you mean by 'break'.

my @ips=qw(11 12 28);
[download]

If one their printers that does not answer stops with a mistake:( It would be desirable completely all array.

I thought my answer would have resolved your issues.. in what way can I expand this answer to better solve your query?

this full code

#!/usr/bin/perl
use strict;
use Net::SNMP;
my @ips=qw(12 28 11);
foreach my $k (@ips) {
my $hostname                = "10.0.0.$k";
my $password                = "public";
my %param = (     sysUpTime => '.1.3.6.1.2.1.1.3',
                    sysName => '.1.3.6.1.2.1.1.5',
                    ifDescr => '.1.3.6.1.2.1.2.2.1.2',
                    ifSpeed => '.1.3.6.1.2.1.2.2.1.5',
              ifPhysAddress => '.1.3.6.1.2.1.2.2.1.6',
            hrPrinterStatus => '.1.3.6.1.2.1.25.3.5.1.1',
hrPrinterDetectedErrorState => '.1.3.6.1.2.1.25.3.5.1.2',
              hrDeviceDescr => '.1.3.6.1.2.1.25.3.2.1.3',
             prtCoverStatus => '.1.3.6.1.2.1.43.6.1.1.3',
         prtMarkerLifeCount => '.1.3.6.1.2.1.43.10.2.1.4' );
my $status;
my ( my $session, my $error ) = Net::SNMP->session ( Hostname => $host
+name, Community => $password , Version => 1 );
if (!defined($session)) { printf("ERROR: %s.\n", $error); exit 1; }
my $result = $session->get_next_request ( varbindlist => [ $param{sysN
+ame}.$1] ); die "request error: ".$session->error unless ( defined $r
+esult );
( $param{sysName}, my $name1 ) = each %$result; unless ( $param{sysNam
+e} =~ /$param{sysName}(.*)/ ) { last; }
$session->close;
print "$k $name1\n";
}
exit 0;
[download]

host 10.0.0.28 power off
I made a mistake. Programm give an error
request error: No response from remote host '10.0.0.28' at ps-test.pl line 21.

Line 21 is this line:

my $result = $session->get_next_request ( varbindlist => [ $param{sysN
+ame}.$1] ); die "request error: ".$session->error unless ( defined $r
+esult );
[download]

The reason that your program breaks is that it directly calls "die" which brings the script to an immediate end... see die for the details. I think that if you change it to "warn" or even a plain "print" it will do what you are looking for. For similar reasons, you will also need to change

unless ( $param{sysName} =~ /$param{sysName}(.*)/ ) {last}
[download]

on the next line to

unless ( $param{sysName} =~ /$param{sysName}(.*)/ ) {next}
[download]

since the "last" will exit the loop so no more ip's will be tried.