|< 1 2 >| | 15 Einträge, 2 Seiten |
my @array = split(//,'Cool');
@array = qw/ C o o l /;
1
2
3
4
5
6
7
8
9
10
while($i<$lenght_wired) {
@zeilen = split(//;$wired[$i]);
$lenght_zeilen = @zeilen;
while($i_2<$lenght_zeilen) {
if(ord($zeilen[$i_2]) ne 32) {
push(@z,$_);
$i_2++;
}
}
}
foreach my $element ( @array ) { tu_was_mit $element }
|< 1 2 >| | 15 Einträge, 2 Seiten |