globale Variable aus anderem Script (Allgemeines zu Perl)

[thread]8211[/thread]

globale Variable aus anderem Script

case

2006-08-01 20:25

User since
2006-06-30
6 Artikel
BenutzerIn
[default_avatar]

Hi,

Folgendes Problem:

reslib.pl

Quote
our %pTypes=qw(deu german eng english fra french );

test.pl

Quote

use strict ;
require "reslib.pl";

foreach (keys %pTypes)
{
print $_, " " , $pTypes{$_}."\n";
}

Wie muss ich pTypes angeben, daß ich keinen Compiler-Fehler kriege.
Besten Dank !

renee

2006-08-01 20:43

User since
2003-08-04
14371 Artikel
ModeratorIn

Du musst die Variable vorher deklarieren:

Code: (dl )

#!/usr/bin/perl

use strict;
use vars qw(%pTypes);
require "reslib.pl";

foreach (keys %pTypes)
{
       print $_, " " , $pTypes{$_}."\n";
}

case

2006-08-01 20:52

User since
2006-06-30
6 Artikel
BenutzerIn
[default_avatar]

Das ging aber schnell.
Super Forum

Besten Dank !!