Neue Zeile in Dateien - #60152 (Allgemeines zu Perl)

Crian

2005-11-22 14:10

User since
2003-08-04
5866 Artikel
ModeratorIn

[quote=Strat,16.11.2005, 17:20]ich habe mal ein stueck software, das sowohl unter linux/solaris als auch windows identisch laufen sollte und aus einer menge modulen bestand, komplett mit unix-zeilenendungen versehen, damit es sowohl unter windows als auch unter unix/linux einfach entpackt werden konnte und laeuft. Umgekehrt haette es zwar auch fast funktioniert (perl selbt haette das gefressen), aber der shebang nicht, und einen link auf den unix-systemen namens /usr/bin/perl<CR> wollte ich dann doch nicht anlegen ;-)[/quote]
dann kann man

Code: (dl )

1
2
3

#!/usr/bin/perl -w
use strict;
use warnings; # sic!

verwenden, Perl ignoriert den Switch -w<CR> dann einfach :D

Aber schön ist das nicht wirklich...

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