break out my foreach loop

[hmb104]

How I can break out my foreach loop?

I'm checking if IP exists on a Cisco routing table, if it does then we can get more info. I want to say if the IP doesn't exist then break the loop with error. I have the following and it works great until I enter a non-valid IP which doesn't exist on my router:

    foreach $match ( @Output ) {
        if ( $match =~ m/^Routing entry for / ) {
            @Data = split( ' ', $match );
            $octet = $Data[ 3 ] ;
            last ;
        }
    }
    my @routing = split( /\./, $octet );

How I can add to say if m/^Routing entry for / didn't show up in all lines then die()? I have tried many ways and it never works

[lidden]

Put my $octet; # or $octet = undef before the loop and do die "Some message" unless $octet; after the loop.

[hmb104]

Thanks lidden, it works as intended. Is there a way to remove the error line from the die() msg?

ERROR: IP not range:  at /home/skippy/ip2log.pl line 177.

Thanks for the heads up

[james2vegas]

die "Some message\n";

[philiprbrenan]

Or make it a sub so you can return an empty list if not found:

use feature ":5.14";
use warnings FATAL => qw(all);
use strict;
use Data::Dump qw(dump pp);

sub match($) {
    my ($Output) = @_;
    for my $match ( @$Output ) {
        if ( $match =~ m/^Routing entry for / ) {
            my @Data = split( ' ', $match );
            my $octet = $Data[ 3 ] ;
            return split( /\./, $octet )
        }
    }
   ()
 }
say "@{[match([split /\n/, <<'END'])]}";
a
b
c
Routing entry for 1.2.3.4
END

Produces

1 2 3 4

[NetWallah]

Somewhat more concise code:

my  $octetstr;
($octetstr)= m/^Routing entry for\s+([\d\.]+)/ and last for @Output;
die "No Routing address found in \@Output\n" unless $octetstr;

Update: If this is IPV4, you can extract the octets of the IP using

my  @Route;
@Route= m/^Routing entry for\s+(\d+)\.(\d+)\.(\d+)\.(\d+)/ and last fo
+r @Output;
die "No Routing address found in \@Output\n" unless  @Route;