arrayelement einfügen: ein element in ein array einfügen - #82222 (Allgemeines zu Perl)

Crian

2004-05-11 16:38

User since
2003-08-04
5871 Artikel
ModeratorIn

Ja, aber Du sparst das Umkopieren, das kann ein gewaltiger Vorteil sein.

Ich dachte mir das etwa so:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

my @array = ("hallo", "du", "bist ja\n immer noch", "da");

print "'$_'\n" for @array;

my $i = $#array;
while ($i>=0) {
    my $count = $array[$i] =~ y/\n//;
    splice @array, $i, 1, split /\n/, $array[$i] if $count;
    --$i;
}

print "'$_'\n" for @array;

Ausgabe:

Code: (dl )

'hallo'
'du'
'bist ja
 immer noch'
'da'
'hallo'
'du'
'bist ja'
' immer noch'
'da'

\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