sicherheitsrisiko - ja / nein?: \&rmtree - #49710 (Allgemeines zu Perl)

Crian

2003-09-10 14:53

User since
2003-08-04
5873 Artikel
ModeratorIn

Bei mir sähe der Funktionsanfang dann so aus:

Code: (dl )

sub callback_readdir
{
    my $folder = shift;
    my $proc   = shift;

    die "Falsche Anzahl Parameter!" unless defined $folder and defined $proc;

    die "Folder muss Referenz sein!" unless ref $folder;

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite