オライリー祭りで買い込んだ pdf ファイルのファイル名を書名に変更する

example_windows.txt

# 使用例

> genbat.pl > rename_pdf.bat
> type rename_pdf.bat
ren "oreilly-4873113075.pdf" "エンジニアのための時間管理術.pdf"
ren "oreilly-9784873113630.pdf" "ビューティフルコード.pdf"
ren "oreilly-9784873114132.pdf" "詳解 OpenCV.pdf"
ren "oreilly-9784873114194.pdf" "Silverlightで開発するデータ駆動アプリケーション.pdf"
ren "oreilly-9784873114200.pdf" "Head First Statistics.pdf"
ren "oreilly-9784873114286.pdf" "アルゴリズムクイックリファレンス.pdf"
ren "oreilly-9784873114293.pdf" "ソフトウェアアーキテクトが知るべき97のこと.pdf"
ren "oreilly-9784873114309.pdf" "ビューティフルアーキテクチャ.pdf"
ren "oreilly-9784873114354.pdf" "並行コンピューティング技法.pdf"
ren "oreilly-9784873114538.pdf" "Prototyping Lab.pdf"
ren "oreilly-9784873114569.pdf" "Android Hacks.pdf"
ren "oreilly-9784873114590.pdf" "ビューティフルセキュリティ.pdf"
ren "oreilly-9784873114644.pdf" "Head Firstデータ解析.pdf"
ren "oreilly-9784873114712.pdf" "言語設計者たちが考えること.pdf"
ren "oreilly-9784873114729.pdf" "iOS SDK Hacks.pdf"
ren "oreilly-9784873114798.pdf" "プログラマが知るべき97のこと.pdf"
> rename_pdf

genbat.pl

#! perl
use utf8;

$, = "\n";
$mv = "ren"; # or mv

sub isbn2filename(@) {
  my ($isbn, $title) = @_;
  $isbn =~ s/-//g;
  ("oreilly-$isbn.pdf", $title)
}

my %dic = map {isbn2filename split /\t/} <DATA>;
print map {qq{$mv "$_" "$dic{$_}.pdf"}} grep {exists $dic{$_}} (<*.pdf>);

__DATA__
4-87311-050-5	入門 Perl DBI	3,192	2001/08	[購入]
4-87311-061-0	Javaネットワークプログラミング 第2版	4,872	2001/10	[購入]
4-87311-063-7	C++プログラミング入門 新版	2,352	2001/11	[購入]
4-87311-078-5	NFS & NIS 第2版	4,032	2002/04	[購入]
4-87311-079-3	不正アクセス調査ガイド	2,856	2002/04	[購入]
4-87311-099-8	SAN & NAS ストレージネットワーク管理	2,856	2002/10	[購入]
4-87311-134-X	Web情報アーキテクチャ 第2版	3,696	2003/08	[購入]
4-87311-147-1	RADIUS	2,688	2003/12	[購入]
4-87311-154-4	UMLデスクトップリファレンス	1,008	2003/10	[購入]
4-87311-165-X	ActionScriptデスクトップリファレンス	1,176	2003/12	[購入]
4-87311-171-4	Excelポケットガイド	840	2004/02	[購入]
4-87311-181-1	Amazon Hacks	2,436	2004/04	[購入]
4-87311-197-8	JavaServer Faces完全ガイド	4,116	2004/08	[購入]
4-87311-212-5	Google	2,016	2004/11	[購入]
4-87311-215-X	Hibernate	2,016	2004/12	[購入]
4-87311-222-2	PDF Hacks	2,016	2005/03	[購入]
4-87311-226-5	Windowsサーバー Hacks	2,688	2005/05	[購入]
4-87311-228-1	Knoppix Hacks	2,352	2005/06	[購入]
4-87311-232-X	CSS完全ガイド 第2版	3,192	2005/06	[購入]
4-87311-234-6	Mono	2,184	2005/07	[購入]
4-87311-235-4	Flash Hacks	3,024	2005/07	[購入]
4-87311-237-0	Linuxハンドブック	1,344	2005/08	[購入]
4-87311-238-9	Word Hacks	2,016	2005/07	[購入]
4-87311-243-5	ブラウザ選択の時代を読み解く	1,344	2005/09	[購入]
4-87311-246-X	GDBハンドブック	1,008	2005/09	[購入]
4-87311-251-6	Linuxデスクトップ Hacks 	2,688	2005/09	[購入]
4-87311-252-4	MySQLクイックリファレンス	2,688	2005/09	[購入]
4-87311-254-0	入門 bash 第3版	2,352	2005/10	[購入]
4-87311-256-7	Apacheセキュリティ	3,024	2005/10	[購入]
4-87311-257-5	初めてのPHP5	2,352	2005/10	[購入]
4-87311-266-4	Podcasting Hacks	2,352	2005/12	[購入]
4-87311-268-0	JBoss	2,016	2006/02	[購入]
4-87311-270-2	Maven	2,016	2006/02	[購入]
4-87311-272-9	プレファクタリング	2,352	2006/01	[購入]
4-87311-273-7	Jakarta Strutsクックブック	2,856	2006/01	[購入]
4-87311-275-3	データベース実践講義	2,688	2006/02	[購入]
4-87311-279-6	Head First Java 第2版	3,360	2006/03	[購入]
4-87311-281-8	初めてのSQL	2,016	2006/04	[購入]
4-87311-282-6	入門 Webマッピング	2,856	2006/05	[購入]
4-87311-284-2	UML 2.0クイックリファレンス	2,100	2006/06	[購入]
4-87311-285-0	Windowsサーバークックブック	3,696	2006/05	[購入]
4-87311-286-9	入門 PHPセキュリティ	1,512	2006/05	[購入]
4-87311-288-5	Binary Hacks	2,688	2006/11	[購入]
4-87311-289-3	Asterisk	3,192	2006/06	[購入]
4-87311-290-7	詳説 ビジネスプロセスモデリング	2,688	2006/06	[購入]
4-87311-291-5	PHP Hacks	3,024	2006/06	[購入]
4-87311-294-X	初めてのC# 第2版	2,352	2006/08	[購入]
4-87311-299-0	アート・オブ・プロジェクトマネジメント	2,688	2006/09	[購入]
4-87311-300-8	Perlベストプラクティス	3,612	2006/08	[購入]
4-87311-302-4	Web解析Hacks	2,940	2006/11	[購入]
4-87311-303-2	C++クックブック	3,612	2006/09	[購入]
4-87311-305-9	続・初めてのPerl 改訂版	2,688	2006/10	[購入]
4-87311-306-7	Linuxサーバ Hacks 2	2,688	2006/10	[購入]
4-87311-307-5	エンジニアのための時間管理術	1,932	2006/10	[購入]
4-87311-308-3	802.11無線ネットワーク管理 第2版	4,200	2006/11	[購入]
4-87311-309-1	WSHクイックリファレンス 第2版	3,192	2006/10	[購入]
4-87311-310-5	Head Rush Ajax	2,856	2006/12	[購入]
4-87311-311-3	スケーラブルWebサイト	2,856	2006/12	[購入]
4-87311-312-1	Railsレシピ	2,352	2006/12	[購入]
978-4-87311-276-3	Python クックブック 第2版	3,528	2007/06	[購入]
978-4-87311-277-0	入門 GNU Emacs 第3版	3,192	2007/03	[購入]
978-4-87311-313-5	詳解 Linuxカーネル 第3版	5,544	2007/02	[購入]
978-4-87311-315-9	SQLクックブック	3,192	2007/01	[購入]
978-4-87311-316-6	デザイニング・インターフェース	3,192	2007/01	[購入]
978-4-87311-317-3	入門 UML 2.0	2,352	2007/02	[購入]
978-4-87311-321-0	Google Hacks 第3版	2,688	2007/04	[購入]
978-4-87311-323-4	Ajaxデザインパターン	4,032	2007/05	[購入]
978-4-87311-324-1	Rubyクックブック	3,276	2007/04	[購入]
978-4-87311-325-8	JavaScriptクイックリファレンス 第5版	2,352	2007/05	[購入]
978-4-87311-326-5	CとGNU開発ツールによる組み込みシステムプログラミング 第2版	2,688	2007/06	[購入]
978-4-87311-327-2	ネットワークセキュリティHacks 第2版	2,688	2007/06	[購入]
978-4-87311-328-9	IPv6 エッセンシャルズ 第2版	3,024	2007/06	[購入]
978-4-87311-329-6	JavaScript 第5版	3,528	2007/08	[購入]
978-4-87311-330-2	Linuxカーネル クイックリファレンス	2,016	2007/07	[購入]
978-4-87311-331-9	SQL Hacks	2,520	2007/07	[購入]
978-4-87311-332-6	Ajax on Rails	2,352	2007/07	[購入]
978-4-87311-333-3	Ajax & Java	2,016	2007/08	[購入]
978-4-87311-334-0	エンタープライズSOA	4,200	2007/12	[購入]
978-4-87311-336-4	アート・オブ・SQL	2,688	2007/09	[購入]
978-4-87311-337-1	Mind パフォーマンス Hacks	2,352	2007/08	[購入]
978-4-87311-341-8	Google Maps Hacks 第2版	2,436	2007/10	[購入]
978-4-87311-342-5	プログラミングPHP 第2版	3,192	2007/10	[購入]
978-4-87311-343-2	詳解 MySQL	2,688	2007/11	[購入]
978-4-87311-345-6	イノベーションの神話	1,512	2007/10	[購入]
978-4-87311-346-3	Linuxシステム管理	2,352	2007/11	[購入]
978-4-87311-348-7	プログラミングGauche	2,688	2008/03	[購入]
978-4-87311-349-4	Head Firstオブジェクト指向分析設計	3,360	2007/12	[購入]
978-4-87311-350-0	Web 2.0ストラテジー	1,680	2008/11	[購入]
978-4-87311-352-4	初めてのFlash Video	2,688	2007/12	[購入]
978-4-87311-353-1	RESTful Webサービス	3,192	2007/12	[購入]
978-4-87311-354-8	ネットワークウォリア	4,032	2007/12	[購入]
978-4-87311-355-5	インテル スレッディング・ビルディング・ブロック	2,940	2008/02	[購入]
978-4-87311-356-2	Rubyスクリプティングテクニック	2,100	2008/02	[購入]
978-4-87311-358-6	Ajaxアプリケーション & Webセキュリティ	2,184	2008/02	[購入]
978-4-87311-359-3	詳説 正規表現 第3版	4,032	2008/04	[購入]
978-4-87311-361-6	ハイパフォーマンスWebサイト	1,512	2008/04	[購入]
978-4-87311-362-3	Linuxシステムプログラミング	3,024	2008/04	[購入]
978-4-87311-363-0	ビューティフルコード	3,192	2008/04	[購入]
978-4-87311-365-4	初めてのPHP & MySQL 第2版	2,856	2008/05	[購入]
978-4-87311-366-1	インターフェイス指向設計	2,184	2008/05	[購入]
978-4-87311-367-8	初めてのRuby	1,848	2008/06	[購入]
978-4-87311-369-2	Head First SQL	3,528	2008/06	[購入]
978-4-87311-370-8	JavaScript & DHTMLクックブック 第2版	3,528	2008/06	[購入]
978-4-87311-371-5	初めてのActionScript 3.0 	2,856	2008/08	[購入]
978-4-87311-372-2	Prototype & script.aculo.us	2,688	2008/07	[購入]
978-4-87311-373-9	Head First JavaScript	3,360	2008/08	[購入]
978-4-87311-374-6	C#クックブック 第3版	3,864	2008/08	[購入]
978-4-87311-376-0	bashクックブック	3,528	2008/09	[購入]
978-4-87311-381-4	Apacheクックブック 第2版	2,688	2008/09	[購入]
978-4-87311-382-1	Windows PowerShellクックブック	3,360	2008/10	[購入]
978-4-87311-383-8	Head First C#	3,528	2008/10	[購入]
978-4-87311-384-5	Making Things Talk	3,192	2008/11	[購入]
978-4-87311-385-2	Subject To Change	1,512	2008/10	[購入]
978-4-87311-386-9	実践 Rails 	2,520	2008/10	[購入]
978-4-87311-387-6	詳説 ActionScript 3.0	4,872	2008/11	[購入]
978-4-87311-388-3	Tomcatハンドブック 第2版	3,948	2008/11	[購入]
978-4-87311-389-0	ThoughtWorksアンソロジー	2,184	2008/12	[購入]
978-4-87311-390-6	DNS & BIND 第5版	4,032	2008/12	[購入]
978-4-87311-391-3	JavaScript: The Good Parts	1,512	2008/12	[購入]
978-4-87311-392-0	Head Firstソフトウェア開発	3,024	2009/01	[購入]
978-4-87311-393-7	初めてのPython 第3版	3,864	2009/02	[購入]
978-4-87311-394-4	プログラミング言語 Ruby	3,192	2009/01	[購入]
978-4-87311-395-1	アート・オブ・アジャイル デベロップメント	3,024	2009/02	[購入]
978-4-87311-396-8	プログラミングC# 第5版	4,032	2009/02	[購入]
978-4-87311-397-5	マスタリングPerl	3,024	2009/03	[購入]
978-4-87311-398-2	Arduinoをはじめよう	1,680	2009/03	[購入]
978-4-87311-399-9	キャパシティプランニング	2,016	2009/03	[購入]
978-4-87311-400-2	Railsデプロイ	2,352	2009/03	[購入]
978-4-87311-402-6	プロダクティブ・プログラマ 	2,184	2009/04	[購入]
978-4-87311-403-3	リファクタリング・ウェットウェア	2,352	2009/04	[購入]
978-4-87311-410-1	デザイニング・ウェブナビゲーション	3,360	2009/05	[購入]
978-4-87311-412-5	オープンソースソフトウェアの育て方 	2,352	2009/07	[購入]
978-4-87311-413-2	詳解 OpenCV	3,864	2009/08	[購入]
978-4-87311-415-6	Adobe AIR クックブック	3,192	2009/08	[購入]
978-4-87311-416-3	エンタープライズ Rails	2,688	2009/07	[購入]
978-4-87311-417-0	iPhone SDK アプリケーション開発ガイド	2,856	2009/09	[購入]
978-4-87311-419-4	Silverlightで開発するデータ駆動アプリケーション	2,856	2009/09	[購入]
978-4-87311-420-0	Head First Statistics	2,688	2009/08	[購入]
978-4-87311-422-4	組み込みLinuxシステム構築 第2版	3,696	2009/10	[購入]
978-4-87311-423-1	Real World Haskell	3,192	2009/10	[購入]
978-4-87311-424-8	アート・オブ・アプリケーション パフォーマンステスト	1,848	2009/09	[購入]
978-4-87311-425-5	初めてのJavaScript 第2版	2,352	2009/11	[購入]
978-4-87311-426-2	実践ハイパフォーマンスMySQL 第2版	3,864	2009/12	[購入]
978-4-87311-427-9	初めてのPerl 第5版	3,024	2009/10	[購入]
978-4-87311-428-6	アルゴリズムクイックリファレンス	2,688	2010/04	[購入]
978-4-87311-429-3	ソフトウェアアーキテクトが知るべき97のこと	1,596	2009/10	[購入]
978-4-87311-430-9	ビューティフルアーキテクチャ	2,520	2009/11	[購入]
978-4-87311-431-6	オプティマイジングWebサイト	3,024	2009/12	[購入]
978-4-87311-432-3	ウェブアプリケーションのためのユニバーサルデザイン	2,184	2009/12	[購入]
978-4-87311-434-7	デザイニング・ウェブインターフェース	3,192	2009/12	[購入]
978-4-87311-435-4	並行コンピューティング技法	2,688	2009/12	[購入]
978-4-87311-438-5	Head First Rails	3,192	2010/01	[購入]
978-4-87311-440-8	実用Git	2,352	2010/02	[購入]
978-4-87311-443-9	Head Firstネットワーク	2,688	2010/02	[購入]
978-4-87311-444-6	Head First PHP & MySQL	3,528	2010/03	[購入]
978-4-87311-445-3	Rubyベストプラクティス	2,688	2010/03	[購入]
978-4-87311-446-0	続・ハイパフォーマンスWebサイト	2,352	2010/04	[購入]
978-4-87311-447-7	マスタリングXMPP	2,688	2010/04	[購入]
978-4-87311-450-7	正規表現クックブック	3,528	2010/04	[購入]
978-4-87311-451-4	セキュリティの神話	1,848	2010/04	[購入]
978-4-87311-452-1	セマンティックWeb プログラミング	2,688	2010/06	[購入]
978-4-87311-453-8	Prototyping Lab	3,192	2010/05	[購入]
978-4-87311-456-9	Android Hacks	3,192	2010/09	[購入]
978-4-87311-458-3	クラウド セキュリティ & プライバシー	2,856	2010/06	[購入]
978-4-87311-459-0	ビューティフルセキュリティ	2,352	2010/06	[購入]
978-4-87311-460-6	アプレンティスシップ・パターン	1,848	2010/07	[購入]
978-4-87311-462-0	iPhone/iPadゲーム開発ガイド	2,352	2010/09	[購入]
978-4-87311-464-4	Head Firstデータ解析	2,688	2010/07	[購入]
978-4-87311-465-1	Erlangプログラミング	3,024	2010/07	[購入]
978-4-87311-466-8	プログラミングF#	3,024	2010/08	[購入]
978-4-87311-467-5	JavaによるRESTfulシステム構築	2,688	2010/08	[購入]
978-4-87311-468-2	jQueryクックブック	3,024	2010/08	[購入]
978-4-87311-469-9	初めてのプログラミング 第2版	1,680	2010/09	[購入]
978-4-87311-471-2	言語設計者たちが考えること	3,024	2010/09	[購入]
978-4-87311-472-9	iOS SDK Hacks	2,016	2010/10	[購入]
978-4-87311-476-7	検索と発見のためのデザイン	2,016	2010/11	[購入]
978-4-87311-477-4	Make: Electronics	2,520	2010/11	[購入]
978-4-87311-479-8	プログラマが知るべき97のこと	1,596	2010/12	[購入]