If that's what you need you need to either use a C style for or iterate over the array indices instead of the array itself.

for my $i ( 0 .. $#list ) { 
  $data->{"IS_LAST"} = $i < $#list ? 0 : 1;
  ## ...
}
[download]

Another alternative would be to iterate over all items save the last and then process the last item seperately.

for my $item ( @list[ 0 .. $#list - 1 ] ) {
  process_item( $item, 0 );
}
process_item( $list[ $#list ], 1 );
[download]

You can’t do that. For that case I suggest a foreach over the array’s indices:

foreach my $i ( 0 .. $#list ) {
    local $_ = $list[ $i ];

    # ...

    $data->{ IS_LAST } = ( $i == $#list );

    # ...
}
[download]

Makeshifts last the longest.

my $count = 1;
my $size = @list;
foreach( @list ) { 
    # DO STUFF
    $data->{IS_LAST} = $count == $size ? 1 : 0;
    $count++;
}
[download]

Thanks, that's what i was looking for.

I know this was easy, but I'm not familiar with the

$data->{IS_LAST} = $count == $size ? 1 : 0;
[download]

syntax.

That is the ternary conditional operator, which is short for if/then/else. I like to use it for assigning a conditional value. If the condition $count == $size is true, then 1 is returned, otherwise 0.

Couldn't that also be written as

   $data->{'IS_LAST'} = 0;
   for ( my $i = 0; $i < @list; $i++ ) {
      # DO STUFF
      $data->{'IS_LAST'} = 1 if $i == $#list;
   }
[download]


Don
WHITEPAGES.COM | INC
Everything I've learned in life can be summed up in a small perl script!

Too easy to make off-by-one mistakes that way. Use for my $i ( 0 .. $#list ) { ... } instead, unless you have speficic reason to use for(;;). (I have never had such an occasion, but maybe you will.)

Makeshifts last the longest.

Sure, but then in the "DO STUFF" section you have to work with $list[$i] instead of $_. What are we, animals?! :-)