Re: syntax error on foreach

You can only use a simple scalar variable as a foreach index. You could rewrite it to use the implicit index variable $_, but you could also just inline-declare a lexical variable which would exist only in the loop:

foreach my $m (@modules) {
...
}
[download]

Why the phobia about declaring a new variable?

The PerlMonk tr/// Advocate

Comment on Re: syntax error on foreach Download Code

Replies are listed 'Best First'.
Re: Re: syntax error on foreach by calin (Deacon) on Mar 29, 2004 at 19:06 UTC
You can only use a simple scalar variable as a foreach index. However, there are ways to "subvert" this, if you're determined. Here are two possible scenarios (by no means they are perfect - there can be issues with dynamic scoping (local)). If you don't need aliasing: `{ local $common::loaded{junk}; for (@modules) { $common::loaded{junk} = $_; # ... } }` [download] If you need aliasing (requires Array::RefElem): `use Array::RefElem 'hv_store'; { local $common::loaded{junk}; for (@modules) { hv_store %common::loaded, 'junk', $_; # ... } }` [download] Anyway, this is bad advice ;)	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: syntax error on foreach
by calin (Deacon) on Mar 29, 2004 at 19:06 UTC

You can only use a simple scalar variable as a foreach index.

However, there are ways to "subvert" this, if you're determined. Here are two possible scenarios (by no means they are perfect - there can be issues with dynamic scoping (local)).

{
  local $common::loaded{junk};
  for (@modules) {
    $common::loaded{junk} = $_;
    # ...
  }
}
[download]

If you need aliasing (requires Array::RefElem):

use Array::RefElem 'hv_store';

{
  local $common::loaded{junk};
  for (@modules) {
    hv_store %common::loaded, 'junk', $_;
    # ...
  }
}
[download]

Anyway, this is bad advice ;)

[reply]
[d/l]
[select]