.... And I made a mistake doing so, the code should have been like this: for my $... 'carrier_id', $carrierid, 'active'); return($trunkgroupid,$carriername,$carrier_active); } sub findValue { my ($dat, $section, $lookup_key, $lookup_value, $value_key) = ...to start to think more in terms of... re-using the code.. or rather finding ways to re-use the code. thank ...

... replace them by a single one. And I made a mistake doing so, the code should have been like this: for my $wanted ( [outsideroute_group_m => route_name => ... = findValue( 'outsidecarrier_m', 'carrier_id', $carrierid, 'active'); return($trunkgroupid,$carriername,$carrier_active); } sub findValue { my ($dat, $section, $lookup_key, $lookup_value, $value_key) = @_; for ...

... to go through the array over and over again pending on my previous search so I ended up writing it like below which works.. but looks really really inefficient.. sub dd_fact { my $routename = shift; my $routegroupid; my $trunkgroupid; my $carriername; my $carrier_active; my $carrierid; You can declare ...

... go through the array over and over again pending on my previous search so I ended up writing it like below which works.. but looks really really inefficient.. sub dd_fact { my $routename = shift; my $routegroupid; my $trunkgroupid; my $carriername; my $carrier_active; my $carrierid; You can declare several variables at once:...

I dont know how to go through the array over and over again pending on my previous search so I ended up writing it like below which works.. but looks really really inefficient.. sub dd_fact { my $routename = shift; my $routegroupid; my $trunkgroupid; my $carriername; my $carrier_active; my $carrierid; AHI: for (@dat) { if (exists $_->{...

Jenda Krynicky wrote: Only the loops that need to be labeled should be labeled. I agree. Apart from your spelling of 'labelled' :) Rob

From: Peter Scott <Peter@PSDT.com> On Sun, 11 May 2008 02:05:06 +0200, Jenda Krynicky wrote: You do not need the label unless you need to jump out of some other loop than the innermost. In this case there are no nested loops so it would probably be better to skip the label. While I personally program the way you suggest, take note that "Perl Best Practices" says that...

On Sun, 11 May 2008 02:05:06 +0200, Jenda Krynicky wrote: You do not need the label unless you need to jump out of some other loop than the innermost. In this case there are no nested loops so it would probably be better to skip the label. While I personally program the way you suggest, take note that "Perl Best Practices" says that loops that are explicitly exited should be ...