Guest Henri

Hallo Raubtier,
hast du eine besere schreibweise dann wäre auch nett es zu veröffentlichen.
ja hatte ich es nicht korrigiert

Code (perl): (dl )

1
2
3
4
5
6

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

sorry es ist so

Code (perl): (dl )

1
2
3
4
5
6

sub clean {    
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}

ok, ganz kurz ich möchte einfach die beide code einbinden.
die ausgabe sollte auf den selben ouput file geschrieben werden.