Opened by anti at 2004-05-31 17:48
User since
2003-11-29
155 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-29
155 Artikel
BenutzerIn
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:
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-->
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:
Code: (dl
)
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-->