Kreditkarten Maskierung via RegEx - #179710 (Allgemeines zu Perl)

betterworld

2015-02-17 17:01

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Quote
Code (perl): (dl )
unlink $filename while -f $filename;

Das ist ja auch mal ein cooles Konstrukt, was ich noch nicht gesehen habe :)

Warum hier eine Schleife? Falls die Datei nicht gelöscht werden kann, wie z.B. bei Berechtigungsproblemen, wird sich dein Programm in eine Endlosschleife hängen.

Und wo wir bei überflüssigen Schleifen sind: Hast du tatsächlich mehrere Kreditkartennummern pro Zeile? Ansonsten würde ich mir auch die andere Schleife sparen mit dem regulären Ausdruck. Dann kommt man nämlich um das "$1" ganz herum. Die Probleme mit dem "$1" hat Raubtier ja schon angesprochen: In Perl 5 ist es leider so, dass diese Variable global ist und z.B. nach einem Library Call nicht mehr den alten Wert haben muss. Hier also ohne Schleife:

Code (perl): (dl )

my ($creditcard) = $row =~ /(3[47]\d{13})/
    or next; # In der nächsten Zeile weitermachen

if (is_valid($creditcard)) {...}

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class