方法:
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中,改变画布大小,一行文字的宽度,再用 [映射]-[移位],每次移动大桌面高度减几个相素,搞定。
