Split und Klammern - #54842 (Allgemeines zu Perl)

Crian

2005-05-12 15:07

User since
2003-08-04
5873 Artikel
ModeratorIn

oder soetwas wie

Code: (dl )

my @array = split /\s/, $string;
for my $i (reverse 0 .. $#array) {
    $array[$i] = splice @array, $i, 1, split(/(=)/, $array[$i]);
}

\n\n

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