![http://twitter.com/fuba/statuses/428394042](https://cdn-ak-scissors.b.st-hatena.com/image/square/1e294cd9b5618c31d9881f3f994ba50adf60b978/height=288;version=1;width=512/https%3A%2F%2Fpbs.twimg.com%2Fprofile_images%2F1077292873643483136%2F3UV2xplm.jpg)
第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>) { $string .= $_; } close $image; my @array = split //, $string; my %bigram; for my $i (2..$#array) { $bigram{$array[$i-1]}->{$array[$i]}++; } my @newarray = ($array[0]); for my $i (1..$#a
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 jpeg image japanese text from http://mala.nowa.jp/entry/41ca6cdb15 インターネットはとても楽しい。インターネットを使っているのかをタダで聴くことができた。もっとである修正のかをを見ことができた。もっと機DVDを見プロテクトをはずす事ができた。P2Pでラジオを中継
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く