HEX ersetzen

[Thomas Lachmann]

Halli, nochmal ein Perl prob.

Ich lerne zwar, aber es dauert doch...;-)

Ich hab' mal SelfHTML durchforstet, aber da steht glaub' ich nix davon da, wie man Hex-Zeichen ersetzen kann.

Ich hab's mal so probiert:

open(NEWDAT, ">dat1.txt");
open(OLDDAT, "<dat2.txt");
binmode MAILDAT;
binmode NEWMAIL;

while(<MAILDAT>)
{
   $_ =~ s/%0D/%A5/g;
}

close(MAILDAT);
close(NEWMAIL);

Aber irgentwie funkt's nit;-(

Nur wo is' der Fehler??

Thomas

[Andreas Bierhals]

Hallo,

open(NEWDAT, ">dat1.txt");
open(OLDDAT, "<dat2.txt");
binmode MAILDAT;
binmode NEWMAIL;

... irgendwie unterscheiden sind Deine File-Handles beim 'open'-Befehl und bei den folgenden Befehlen im Skript untereinander. Werden MAILDAT und NEWMAIL schon vorher woanders geöffnet oder liegt hier evtl. schon das Problem?

Viele Grüße

Andreas

[Thomas Lachmann]

Sorry, ich bin etwas übernächtigt..;-)
filehändler sollten eigentlich gleich sein..;-)

open(NEWDAT, ">dat1.txt");
open(OLDDAT, "<dat2.txt");
binmode NEWDAT;
binmode OLDDAT;

while(<MAILDAT>)
{
   $_ =~ s/%0D/%A5/g;
}

close(NEWDAT);
close(OLDDAT);

Thomas