Thread Gibt es ein "no operation" in Perl
(11 answers)
Opened by roli at 2006-04-10 15:41
Ansonsten kannst du beliebige Mengen an Semikoli oder leere geschweifte Klammerpaare einstreuen... die tun auch nichts =)
Aber die Lösung mit unless / if not / if ! ist schöner in diesem Fall. 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 |