Re: perl...

jean-philippe HALOTIER wrote:
> j'ai récuperer ce script pour obtenir des mots de passes à rentrer dans le
> fichier de conf passwd de CVS:
>
>
> #!/usr/bin/perl
>
> srand (time());
> my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 : 97))";
> my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
> my $plaintext = shift;
> my $crypttext = crypt ($plaintext, $salt);
>
> print "${crypttext}\n";
>
> je l'ai donc mis dans un fichier pass que j'ai rendu executable puis ./pass
> mais il me fait une jolie :
> ./pass: line 3: syntax error near unexpected token `time'
> ./pass: line 3: ` srand (time());'
> qqun à une idee
>

N'est-ce pas écrit dessus ? un codeur parkinsonnien qui tappe 2 fois
")" ?

A+ RV2D