Flag
20. September 2009
#!/usr/bin/perl
binmode STDOUT, ':utf8';
@colors = ("\e[0;31m", "\e[0;34m");
@symbols = (chr(0x268c), chr(0x272a));
while(1){
($x, $y) = (int(rand(`tput cols`)), int(rand(`tput lines`)));
system 'tput', 'cup', $y, $x;
$select = int(rand(2));
print $colors[$select].$symbols[$select];
}
http://pallit.lhi.is/microcodes/index.php?code_id=36
_______________________________________________
NetBehaviour mailing list
[email protected]
http://www.netbehaviour.org/mailman/listinfo/netbehaviour
