Guest Henri

Code (perl): (dl )

1
2
3
4
5
6

sub clean {    
    my $string = shift;
    $string =~ /\s*,\s*/;
    $string =~ /\s*,\s*/;
    return $string;
}

Interessante Schreibweise für die Identität ;-) *

Ansonsten sind mir deine Problem auch unklar. Solange der Quelltext nicht ordentlich eingerückt ist und das Problem nicht auf ein Minimum reduziert ist, habe ich auch keine Lust, vom Code her dein Problem zu erraten.

* Falls nicht klar: diese Funktion tut nicht das, was sie vermutlich tun soll!