usage % perl glitch20071121.pl [filetype] [frequency param] [repeat] < [src] > [dist]% perl glitch20071121.pl image 1000000 10 < sakkaku.jpg > sakkaku_glitch.jpg % perl glitch20071121.pl text 13 2 < netrunner.txt > netrunner_glitch.txt jpe…

第1引数は画像ファイル、第2引数の等倍が壊すbyte。 usage perl glitch20071120.pl ../Documents/icon/sakkaku.jpg 10000 > ./a.jpg code #!/usr/bin/perl my ($source, $param) = @ARGV; open my $image, '<', $source; my $string; while (<$image>) { $st…

http://blog.tkmr.org/tatsuya/show/405-fooo-name-ldr-greasemonkeyのたこさん版。 javascript:location.href='http://reader.livedoor.com/subscribe/?url='+encodeURIComponent('http://tako3.com/'+location.href)+'&extract=on';