in reply to Counting in loop help!

Im not sure I fully understand your question, but I will try to answer it. I'm not sure why your using a list down in check_names to get your argument. but anyway I would just use counter, if you want to incorporate it into the for loop perhaps or you can put it outside.. 

my $how_many_names_total = 0;

foreach my $name(@names){
     if($name){
        $how_many_names_total++;
        check_names($name);
     }
     else{
        next;
     }
}

[download]

Replies are listed 'Best First'.
Re^2: Counting in loop help!
by Anonymous Monk on Jul 26, 2012 at 20:01 UTC
    The count has to be done from the check_names sub, the way you did its OK but the trick part is to capture the last time the check_names sub was called inside of it.
[reply]

      is it possible you can remove the invalid names before going through the list? for example create a new array with the valid names.. find the number of them and then test the id against the array element in your subroutine:

      my @raw_names = ...;
my @valid_names = ();
my $total_valid_names = -1;

foreach my $raw_name(@raw_names){
     next unless $raw_name;
     push(@valid_names,$raw_name);
     $total_names++;
}
for(my $i=0;$i<length(@valid_names);$i++){
     check_name($valid_names[$i],$i);
}

sub check_names{
     my($name,$id) = @_;
     if($id == $total_valid_names){
        say "$name is the last name! ($idth)";
     }
}

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom