[GIF]滚动起来,我的字符.

上图因为没有背景色，所以有点问题。

方法：
1 #!/usr/bin/perl -w
2 use utf8;
3 use 5.018;
4 use strict;
5
6 my @pass = (0..9,'a'..'z','A'..'Z','~','!','@',
7 '#','$','%','^','&','*',')','}',']',);
8 my $lenght ="The GNU Image Manipulation Program";
9 #my $word = join '',map{$pass[int(rand(@pass))]}0..(rindex($lenght.'$','$')-1);
10 foreach (1..20){
11 my $word = join '',map{$pass[int(rand(@pass))]}0..(rindex($lenght.'$','$')-1);
12 say $word;
13 }
14 say $lenght;
我先用Perl，写了个随机输出字符的脚本。
放入Gimp中,改变画布大小，一行文字的宽度，再用 [映射]-[移位],每次移动大桌面高度减几个相素，搞定。