Dateien vergleich [PERL NEWBIE] - #56913 (Allgemeines zu Perl)

Crian

2005-08-03 15:12

User since
2003-08-04
5873 Artikel
ModeratorIn

Leite einfach die Ausgaben der Datei um.

Wenn Zeichen angehängt werden entsteht eine neue Zeile, wenn die Datei vorher vernünftig mit einem Zeilenumbruch am Ende vorlag.

Falls das nicht sichergestellt ist, muss man wohl, wie Du sagst, die Zeichen testen. Dann muss aber die Originaldatei auch wirklich zuende sein, und das macht dann alles etwas komplizierter.

Oder welches Ergebnis erhoffst Du Dir bei

alt:

Code: (dl )

1
2
3

1
2
3

neu:

Code: (dl )

1
2
3

1
222222
3

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