Hi,
danke - das kommt dem gesuchten Problem schon ziemlich nahe, ist aber nicht so ganz das was ich gesucht habe, denn es soll mehrmals nacheinander funktionieren.
Hier mal ein Beispiel für die Konsole:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
my @website = split "", $ARGV[0];
my $num = @chars = (a..z, A..Z, 0..9);
my $length = scalar(@website);
my $print = "";
my $zaehl = "";
foreach(@website) {
$print = $print.$website[$zaehl];
&wdh($length-1, $print);
$length--;
$zaehl++;
}
sub wdh {
for ($i=0;$i<20;$i++) {
system('clear');
print @_[1];
for ($wd=0;$wd < @_[0];$wd++) {
$passwd = join '', @chars[eval "int(rand($num-1))," x 1];
print $passwd;
}
print "\n";
}
}
Aufruf: "perl -w skript.pl irgendetwas" sollte klar sein ;)
"\n" durch "<br>" ersetzen usw. - aber was mache ich mit dem "system('clear')" bzw. "system('cls')"??
Es sollen praktisch alle einzelnen Ausgaben des Skriptes auf einer neuen Seite erscheinen - liegt es vielleicht an html/http dass soetwas nicht möglich ist?
Hoffe Ihr könnt mir helfen ...
Greetz, Anti\n\n
<!--EDIT|anti|1086034611-->