Re: Changing an array from a sub

sub ChangeArray1
{
  my $i = 0;
  LOOP:
    return if ($i >= @A);
    $A[$i++] = 1;      # Write to global array
  goto LOOP;
}
[download]

That may be a "loop" in Assembler but it is technically not a "loop" in Perl. A proper perl loop would look something like this:

sub ChangeArray1 {
    my $i = 0;
LOOP: {
        $A[ $i ] = 1;
        redo LOOP if ++$i < @A;
        }
    }
[download]

Comment on Re: Changing an array from a sub Select or Download Code

Replies are listed 'Best First'.
Re^2: Changing an array from a sub by hippo (Archbishop) on Feb 13, 2018 at 09:14 UTC
Personally I prefer this formulation (with the same caveat about modifying the global): `sub ChangeArray1 { $_ = 1 for @A; }` [download] which to me is both clear and concise. All subjective, of course. And for the benefit of the OP: Go To Statement Considered Harmful.	[reply] [d/l]