aide sur perl

Startseite

Nachricht beantworten
Autor: anne aublanc
Datum:  
To: guilde
Betreff: aide sur perl
bonjour,

y-a qq'un pour me traduire ces 2 lignes de perl?

    @chars     = ( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *) );
    $unique_key = join("", @chars[ map { rand @chars } ( 1 .. 31 ) ]);


Comment $unique_key peut-être unique?

merci
anne