wikiのファイル名をページ名にする

packする練習

#!/usr/bin/perl

while(<>){
    $s = $_;
    s/(.*)\.txt/$1/;
    $d = pack("H*",$_);
    print "$s -> $d\n";
}

$ ls *.txt | hoge.pl
53616E64426F78.txt
 -> SandBox
C7E3A4A4CAAAA5EAA5B9A5C8.txt
 -> 買い物リスト

参考ページ

• Perl の数値変換
• pack| 5部 関数リファレンス | [Smart]