[Vienna-pm] use strict => Geltungsbereich?

[Thomas Klausner]

Hi!

On Fri, Mar 28, 2003 at 12:54:49PM +0100, Baier Oliver INT SD wrote:

Beziehungsweise eigentlich ist hast du da ein Problem mit dem Scope, weil du
anscheinend "my $db_count" in der IF-Schleife definierst. Damit ist
$db_count aber nur in dieser Schleife sichtbar (weil my den Scope eben auf
den enclosing block festlegt) und du bekommst den Fehler, wenn du $db_count
nachher abfragen willst.

> Hier noch ein Code-Schnipsel, der folgenden Fehler produziert:
> Variable "$db_count" is not imported at ./checkcache.pl line 34.
> 
eigentlich willst du glaub ich das:

---------- snip ----------
use strict;
my $db_count;
if (defined @ARGV && $ARGV[0] eq '-c') {
    $db_count = 0;
    #    ...
}
print "passt\n" if defined $db_count;


-- 
#!/usr/bin/perl                               http://domm.zsi.at
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}