Password og filcheck

$file = \"/home/a/b/c/f.g\";

if (-e $file) {
  print \"JA\";
} else {
  print \"Næh\";
}

Wauv, det var hurtigt

Som du nok ved kan jeg ikke give dig points før jeg har begge svar.

$a = \'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXZY0123456789-\';

$pass=\'\';
for ($i=0;$i<10;$i++) {
  $pass.=substr($a,rand(0,length($a)),1);
}

print \"$pass\\n\";

Men den sidste \"generer\" forhåbentlig ikke nogen - den genererer et password :-)

Hvis du vil have nemmere passwords, så check den her

sub oneof {
($a) = @_;
return substr($a,rand(0,length($a)),1);
}

$pass=\'\';
$pass.=&oneof(\'bcdfghjklmnpqrstvxz\');
$pass.=&oneof(\'aeiouy\');
$pass.=&oneof(\'bcdfghjklmnpqrstvxz\');
$pass.=&oneof(\'aeiouy\');
$pass.=&oneof(\'bcdfghjklmnpqrstvxz\');
$pass.=&oneof(\'aeiouy\');
$pass.=&oneof(\'bcdfghjklmnpqrstvxz\');

print \"$pass\\n\";

Ja jeg har ikke sagt at jeg var godt til at stave :)

Tak for hjælpen, det var squ rart, nu kan jeg komme vidre.

Lige et spm.
Kræver den første kide ikke cgi.pm?

Jeg kan ikke se noget der skulle være cgi.pm specifik, så det tror jeg ikke...

Nej, det kræves ikke. -e er et helt standard check for eksistens.

Oki og endnu engang tak!