#!C:/Perl/bin/perl for($i = 0; $i < 2**25; $i++){ @field = (); $num = $i: for($j = 24; $j >= 0; $j--){ if($num >= 2 ** $j){ $field[$j] = 1; $num -= 2 ** $j; } else{ $field[$j] = 0; } } } sub check_bingo{ my @field = @_; my ($i, $j, $flag);…

スーパーpre記法テストです。うおおおおめっちゃ綺麗にソース貼れるね。すげえな。 えーとこれはYusuke WadaさんのPerlスクリプトをいじくったニコニコの動画flv＆コメント取得スクリプトです。卒論で必要になったので探したんだけど動かなかったのでいじく…