ein Array als neue Elemente in ein anderes einfüge: und dabei ein anderes Element löschen - #51192 (Allgemeines zu Perl)

Crian

2005-01-24 15:16

User since
2003-08-04
5870 Artikel
ModeratorIn

Und wenn Du testest wirst Du feststellen, dass es schlau wäre das ganze Rückwärts zu machen.

Testen kannst Du gut mit

Code: (dl )

print "'", join(', ', @array), "'\n";

oder mit

Code: (dl )

print Dumper \@array;

(und use Data::Dumper; vorweg)

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