Regex-Problem mit Backreferences - #79783 (Allgemeines zu Perl)

Crian

2004-02-04 19:36

User since
2003-08-04
5873 Artikel
ModeratorIn

Ohne den ganzen Kram zur Testausgabe besteht der Code aus diesem Teil:

Code: (dl )

my @ind = (1, 6);

while (<DATA>) {
    my @parts = split;

    for my $i (@ind) {
        if ($parts[$i] eq "0") {
            @parts = (@parts[0..$i], '', @parts[$i+1..$#parts]);
        }
        else {
            while (length($parts[$i+1]) < $parts[$i]) {
               $parts[$i+1] .= ' ' . splice @parts, $i+2, 1;
            }
        }
    }
    print "$.: '$parts[2]', '$parts[7]'\n";
}

(Nur falls es dadurch optisch klarer wird...)

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