Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Return to original loop

by AppleFritter (Vicar)
on Oct 15, 2015 at 11:49 UTC ( [id://1144961]=note: print w/replies, xml ) Need Help??


in reply to Return to original loop

Your problem is that you're trying to read from DATA again for each line. But after the outer loop's first iteration, DATA is exhausted and won't return anything anymore, so the inner loop's body will not execute anymore.

You can reset the filehandle using seek to start reading from the beginning again - disclaimer, I've never tried that on DATA -, or (better) you could read from DATA into an array and iterate over that in your inner loop instead.

my @IPs = <DATA>; foreach $confLine (<$in>) { if ($confLine =~ /ip4-address address=\"/) { foreach (@IPs) { my $ip = $_; if ($confLine =~ /ip4-address address=\"$ip/) { $confLine =~ s/\/>/update\"\/>/; } } } print $out $confLine; } ___DATA___ 1.2.3.4 1.2.3.5

Also, just for general reference: you can stick labels in front of loops and pass a label to next to have it start the next iteration of a specific loop, e.g.:

INPUTLINE: foreach my $line (<<>>) { chomp $line; foreach my $pattern (@patterns) { $line =~ $pattern and do { say "$line matched $pattern!"; next INPUTLINE; } } }

This also works for last and redo.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1144961]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (1)
As of 2024-04-25 01:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found