Re: Global symbol .... requires explicit package name at

use diagnostics

Global symbol "$files" requires explicit package name at 1.pl line 19.
Execution of 1.pl aborted due to compilation errors (#1)
    (F) You've said "use strict" or "use strict vars", which indicates
+ 
    that all variables must either be lexically scoped (using "my" or 
+"state"), 
    declared beforehand using "our", or explicitly qualified to say 
    which package the global variable is in (using "::").
[download]

The variable $files isn't lexical. foreach (and for) uses $_ by default, but if you specify a variable name before the list, it's roughly equivalent to

foreach (@files)
{
  $files = $_;
  #etc...
[download]

So to be properly strict, you need to use my. Here are some examples of odd places where you would have to use my:

for my $i ( 0 .. 10 ) { print "$i\n" }
open my $fh, '<', "/etc/passwd";
while (my $line = <>) { next if /^\s*#/ }
[download]

print pack("A25",pack("V*",map{1919242272+$_}(34481450,-49737472,6228,0,-285028276,6979,-1380265972)))

Comment on Re: Global symbol .... requires explicit package name at Select or Download Code

Replies are listed 'Best First'.

Re^2: Global symbol .... requires explicit package name at
by GrandFather (Saint) on Oct 19, 2009 at 19:55 UTC

The variable $files isn't lexical. foreach (and for) uses $_ by default, but if you specify a variable name before the list, it's roughly equivalent to

foreach (@files) { $files = $_; #etc...
[download]

Actually, not even roughly! The loop variable is an alias to each element of the list processed by the for loop so indicating an equivalence using assignment is quite misleading.

The OP should note that a for loop variable is magical and is only valid within the scope of the loop. A same named variable outside the loop, even if declared as a lexical variable using my, is a different animal to the loop variable. Consider:

use strict;
use warnings;

my $var = 42;

print "before: $var\n";

for $var (1 .. 10) {
    print "$var ";
}

print "\nafter: $var\n";
[download]

Prints:

before: 42
1 2 3 4 5 6 7 8 9 10 
after: 42
[download]

True laziness is hard work

[reply]
[d/l]
[select]


Welcome to the Monastery
	PerlMonks