Thread Textdatei einlesen, ändern, neue erstellen: open (DATEI, "text.txt") (30 answers)
Opened by Gast at 2003-09-16 00:10

Crian
 2003-11-13 17:35
#43500 #43500
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
[quote=format_c,13.11.2003, 13:33]Eine klassische Warnung währe eine deklarierte Variable mit undef mit print ausgeben zu wollen:

my $test1;
print $test1;

Würde so eine hübsche warnung erzeugen jedoch kein scriptabbruch. Also im Hauptscript mit use warnings sollte keine Warnungs kommen mit dem Schalter -w jedoch schon. Wenn dass so ist ist die Behauptung von Crian bewiesen.[/quote]
Aha, ihr glaubt also weder mir noch Larry ... na gut:

Modul Beweis.pm:

Code: (dl )
1
2
3
4
5
6
7
8
package Beweis;
use strict;

sub drucke {
    print "undefinierter Wert im Paket : '", undef, "' :-)\n";
}

1;


Programm beweis1.pl:

Code: (dl )
1
2
3
4
5
6
#!/usr/bin/perl -w
use strict;

use Beweis;

Beweis::drucke();


Programm beweis2.pl:

Code: (dl )
1
2
3
4
5
6
7
#!/usr/bin/perl
use strict;
use warnings;

use Beweis;

Beweis::drucke();


Mitschnitt im Commandofenster:

Code: (dl )
1
2
3
4
5
6
C:\Daten\perl>perl beweis1.pl
Use of uninitialized value in print at Beweis.pm line 5.
undefinierter Wert im Paket : '' :-)

C:\Daten\perl>perl beweis2.pl
undefinierter Wert im Paket : '' :-)


Glaubt ihr mir jetzt ?\n\n

<!--EDIT|Crian|1068737788-->
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

View full thread Textdatei einlesen, ändern, neue erstellen: open (DATEI, "text.txt")