2011-09-08から1日間の記事一覧

ファイル内の任意の文字列(バイナリOK)を探索

Windowsのファイル内検索システムがクソすぎるので急ぎで作った。 my $search = "文字列"; my $MIN_BUFFER_SIZE = 4096; foreach my $file (<*>){ if(! -f $file){ next; } print "$file\n"; open my $FH, "<", $file || die 'cant open file'; binmode($FH)…