rthill
30-09-2002, 11:30
Hallo
Ich wollte mich eigentlich nur erkundigen ob es eine möglichkeit gibt, die ersten 6 Zeichen einer jeden Zeile zu ersetzen und den Rest der Zeichen zu ersetzen falls diese ungültig sind.
Gültige Zeichen sind bei mir 0-9, und die ersten zu ersetzenden Zeichen sind +352() meine Ausgabe könnte also wie folgt aussehen: +352()12345-6789, also müsste ich hier die +352() durch eine 0 ersetzen und zusätzlich noch das - ersetzen durch nichts. Später sollte meine Ausgabe dann so aussehen: 0123456789
Irgendjemand eine Idee wie ich das mit PERL schaffe ?
Danke im Voraus.
Ich wollte mich eigentlich nur erkundigen ob es eine möglichkeit gibt, die ersten 6 Zeichen einer jeden Zeile zu ersetzen und den Rest der Zeichen zu ersetzen falls diese ungültig sind.
Gültige Zeichen sind bei mir 0-9, und die ersten zu ersetzenden Zeichen sind +352() meine Ausgabe könnte also wie folgt aussehen: +352()12345-6789, also müsste ich hier die +352() durch eine 0 ersetzen und zusätzlich noch das - ersetzen durch nichts. Später sollte meine Ausgabe dann so aussehen: 0123456789
Irgendjemand eine Idee wie ich das mit PERL schaffe ?
Danke im Voraus.