Opened by Gast at 2004-02-15 16:53
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Außerdem gibt es keinen Grund, die Ausgangsdatei erstmal in ein Array zu speichern, das ist nur Platzverschwendung bzw. Dein Programm versagt bei großen Dateien.
Und durch die Benutzung von "es" ist alles auch gleich besser lesbar. (Wobei ich jetzt nicht weiß, ob encode_entities per default $_ ändert, wenn man kein Argument angibt, aber ich hoffe es mal stark.)\n\n
<!--EDIT|Crian|1076932433-->
Code: (dl
)
1
2
3
4
5
6
7
8
open (IN, "<daten.xml") or die $!;
open (OUT, ">daten2.xml") or die "cannot open file : $!";
while (<IN>) {
encode_entities;
print OUT;
}
close OUT or die $!;
close IN or die $!;
Und durch die Benutzung von "es" ist alles auch gleich besser lesbar. (Wobei ich jetzt nicht weiß, ob encode_entities per default $_ ändert, wenn man kein Argument angibt, aber ich hoffe es mal stark.)\n\n
<!--EDIT|Crian|1076932433-->
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
use strict; use warnings; Link zu meiner Perlseite