Opened by Martin at 2010-03-08 14:37
Ok, da ich aber mehre strings der gleichen Länge n habe und sie alle nach länge x in einer neuen Zele beginnen lassen möchte, habe ich mir folgendes über legt:
(Bsp: aus :
soll werden:
)
Code:
Ergebnis ist das die strings unverändert bleiben.
(Bsp: aus :
soll werden:
)
Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
my $string1="hallohallohallo";
my $string2="hannahannahanna";
my @array1;
my @array2;
push(@array1,$string1);
push(@array2,$string2);
my $count=0;
for my $i (0..$#array1){
if($i % 5 == 0){
for my $j($count..$i){
print $array1[$j]."\n";
print $array2[$j]."\n";
}
$count=$i;
}
}
Ergebnis ist das die strings unverändert bleiben.