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

Crian

2003-11-13 12:45

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=havi,13.11.2003, 11:28]Es ist definitv auch bei use warnings so.[/quote]
Nein ist es nicht. hättest Du schon viel mit Tk gearbeitet, wüsstest Du es, denn dieses Modul ist nicht zum Anschalten von Warnungen gedacht.

[quote=havi,13.11.2003, 11:28]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[/quote]
Da fehlt die our-Deklaration, das ist ein Fehler, keine Warnung.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite