Wert in einem Array trennen splitten [Nachtrag]

[Norbert Klein]

Nochmal hallo.

my @a1 = ("a","b","c;d;e","f","g");
for(my $i = 0; $i < @a1; $i++){splice(@a1,$i,1,split(/;/,$a1[$i])) if($a1[$i] =~ /;/);}
print join(",",@a1);

Vergiss das, noch einfacher ist:

my @a = ("a","b","c;d;e","f","g");
@a = split(/;/,join(";",@a));
print join(",",@a);

Gruß
Norbert