Thread Laufschrift erstellen
(18 answers)
Opened by a_abels at 2010-09-15 12:46 Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 #!/usr/bin/perl use strict; use warnings; my @txt=split//,'Meine Laufschrift +++ '; for my $i (1..100) { system('cls'); for my $j ($i .. $i+60) { print $txt[$j%(@txt-1)]; } } # ;-) Grüße payx |