Perl als "Hackersprache" - konkrete historische Beispiele?

[pl]

hi,

die Schwartzsche Transformation ist typisch Perl: Zeitlos schön 😉

Ansonsten: Im Umgang mit Handles, Sockets lässt es sich mit Perl gut arbeiten. Perl hat über Jahrzehnte hinweg einen konstanten Grundbestand von ca 100 Builtinfunktionen. Was z.B. in PHP das ArrayMerge, geht mit Perl so %c = (%a, %b); und dann wären evntl. noch die HashSlices zu nennen womit man ganze Listen von Keys in einem Hash mit einer Anweisung anlegen oder löschen kann.

Meine Perlerfahrungen gehen zurück bis v3, mit Perl kann man wachsen ohne Anwendungen komplett verwerfen zu müssen. Deprecated Functions oder Feaatures gibts kaum.

Ich werf Dir einfach mal was aktuelles hin und Du sagst dann mal ob Du den Code verstehst:

my $control = sub{
    my $self = shift;
    if($self->param('dice')){
        my $mode = $self->param('mode') || 'dec2hex';
        my $zahl = $self->ziehung;
        $self->{CONTENT} = $mode eq 'hex2dec' ? sprintf("%02X", $zahl) : sprintf("%03d", $zahl); 
        $self->header('Content-Type','text/plain');
    }
    elsif(my $gegeben = $self->param('gegeben')){
        my $user = $self->trim($self->param('user'));
        if($self->param('mode') eq 'hex2dec'){
            $self->{CONTENT} = eval{
                $gegeben = hex($gegeben);   
                $gegeben == $user ? "$user ist Richtig!" : "Falsch! ($gegeben)";
            } || "Alles Falsch!";
        }
        elsif($self->param('mode') eq 'dec2hex'){
            $self->{CONTENT} = eval{
                my $xuser = $user;
                my $xgegeben = sprintf "%02X", $gegeben;
                $user = hex($user);
                $gegeben == $user ? "$xuser ist Richtig!" : "Falsch! ($xgegeben)";
            } || "Alles Falsch!";
        }
    }
    else{
        die "Parameter nicht zulässig!\n";
    }
};

Und das ist auch so richtig typisch Perl 😉

Wenn's Dir jedoch nicht gefällt, fang am besten gar nicht erst an damit.

MfG

PS: Achja, Typeglobs nicht vergessen. Feine Sache!