2015-02-17T15:19:54 marcus74

Code: (dl )

			$1 =~ s/(3[47]\d{9})(\d{4})/XXXXXXXXXXX$2/g;

$1 ist eine nur lesbare Variable - sie wird ja eben beim s/// gesetzt, d.h. du kannst nicht $1 =~  schreiben. Das sollte eigentlich nicht compilieren.

Lösung: Kopiere $1 vorher in eine Variable. Am besten so früh wie möglich,
also ich würde es gleich hinter dem while machen: my $ccnr = $1; und dann damit weiterarbeiten statt mit $1.

PS:

Quote

unlink $filename while -f $filename;

ist lustig... Solange löschen, bis die Datei auch wirklich weg ist?
Last edited: 2015-02-17 16:42:44 +0100 (CET)