Thread Laufschrift erstellen (18 answers)
Opened by a_abels at 2010-09-15 12:46

payx
 2010-09-15 14:36
#141339 #141339
User since
2006-05-04
564 Artikel
BenutzerIn

user image
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

View full thread Laufschrift erstellen