個人的なメモを記していくためのページです。
#!/usr/local/bin/perl binmode(STDOUT); while(<>){ foreach $i (/([0-9a-f]{7,8})/g){ $a = $i; $a = "0" . $a if( length( $a ) == 7); # $a = join("", reverse( $a =~ /../g )); # print "$a "; $x = pack("H*",$a); print $x; } }入力には
=== file 1 === M 2dd31d1 c4eee6c5 69a3d69 5cf9af98 87b5ca2f ab7e4612 3e580440 897ffbb8 634ad55 2b3f409 8388e483 5a417125 e8255108 9fc9cdf7 f2bd1dd9 5b3c3780 X1 N1 d11d0b96 9c7b41dc f497d8e4 d555655a c79a7335 cfdebf0 66f12930 8fb109d1 797f2775 eb5cd530 baade822 5c15cc79 ddcb74ed 6dd3c55f d80a9bb1 e3a7cc35
=== file 2 === 2dd31d1 c4eee6c5 69a3d69 5cf9af98 7b5ca2f ab7e4612 3e580440 897ffbb8 634ad55 2b3f409 8388e483 5a41f125 e8255108 9fc9cdf7 72bd1dd9 5b3c3780 X1^T N1^T d11d0b96 9c7b41dc f497d8e4 d555655a 479a7335 cfdebf0 66f12930 8fb109d1 797f2775 eb5cd530 baade822 5c154c79 ddcb74ed 6dd3c55f 580a9bb1 e3a7cc35のようにpdfからのコピペを与える。 H*をh*に変えてみたりreverseでいじったたりしてもtable1のハッシュにならんのだが。
社内Webサイトにいろいろな資料を置いていて、リンクをクリックするとその資料が参照できるようにしているってのはどこでもやっていることだと思う。 (はてなダイアリー - 今日の役に立たない一言 − Today’s Trifle! −)普通そーだよね。