Textdatei einlesen, ändern, neue erstellen: open (DATEI, "text.txt") - #43494 (Graphische Oberflächen)

havi

2003-11-13 12:28

User since
2003-08-04
2036 Artikel
BenutzerIn

Es ist definitv auch bei use warnings so.

Modul

Code: (dl )

package TestModul;
use strict;

our $test = "TEST".$test1;

1;

Skript

Code: (dl )

#!/usr/bin/perl

use warnings;
use strict;
use lib "d:\\";
use TestModul;

print $TestModul::test;

Fehlermeldung

Code: (dl )

1
2
3

Global symbol "$test1" requires explicit package name at d:\/TestModul.pm line 5.
Compilation failed in require at D:\TesteModul.pl line 6.
BEGIN failed--compilation aborted at D:\TesteModul.pl line 6.

Gruss

Edit: Fehlermeldung hinzugefuegt\n\n

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/