[Perl] Variables?

[Servowire]

Ik zit met een probleempje...
Een variable wil niet globaal worden....

code:

#!/usr/bin/perl

$blaat = "hoiiii";

sub foo
{
    print $blaat;
}

code:

Can't use an undefined value as a symbol reference at line 549

Die error krijg ik

[Verwijderd]

als tweede regel "my $blaat;" toevoegen?

[Servowire]

Verwijderd schreef op 07 December 2002 @ 22:30:
als tweede regel "my $blaat;" toevoegen?

Mmm vreemd
dit is maar een simpel voorbeeldje van wat ik niet werken krijgt... maar bij mijn programma zelf (waar $blaat een functie is die aan een module zit) werkt dit niet

code:

#!/usr/bin/perl
use Module.pm

my $blaat = Module->Functie("Schaap");

sub foo
{
    print $blaat;
}

Werkt niet

code:

#!/usr/bin/perl
use Module.pm

sub foo
{
    $blaat = Module->Functie("Schaap");
    print $blaat;
}

Werkt wel
why

[ Voor 33% gewijzigd door Servowire op 07-12-2002 22:39 ]

[Erkens]

En als je nu die $blaat mee stuurt naar je sub?
is trouwens nog veel duidelijker geprogrammeerd dan, maar dat is mijn mening

[Verwijderd]

Als je een sub niet aanroept zal hij ook niet uitgevoerd worden.

code:

#!/usr/bin/perl

$blaat = "hoiiii";
foo();
sub foo
{
    print $blaat;
}

[drm]

Ik denk dat er meer aan de hand is. Normaal gesproken zou dit fragment gewoon moeten werken:

code:

use strict;
my $blaat = "woei";
sub foo {
   print $blaat;
}

foo ();

Probeer dat eens uit zonder al je andere code
(van kennelijk meer dan 549 regels lang )