AppleScript + Rubyで作成した「IllustratorPackage」のPerl版。
Perlの勉強のために一連の処理をPerlのみでコーディング。
Windowsでしか動きません。
Macの方はhttp://macneko.blog77.fc2.com/blog-entry-191.htmlにAppleScript + Rubyで作成した「IllustratorPackage」があるのでそちらをご使用ください。

＜IllustratorPackageの概要＞
Illustratorファイルに配置されているファイルをIllustratorを起動せずに収集することを目的としたスクリプト。
Illustratorファイル内のXMPタグを正規表現で検索し配置画像のパスを取得し、AppleScriptでファイルのコピーを行う。

＜IllustratorPackage_perl.plの使い方＞
※ActivePerlなどでPerlをインストールしてあることが絶対条件です。
　インストールなどはhttp://macneko.blog77.fc2.com/blog-entry-198.htmlを参照。

1.コマンドプロンプトを起動する。
2.perl IllustratorPackage_perl.plのパス Illustratorファイルのパス 
　と入力。
　ファイルをコマンドプロンプトにドラッグ＆ドロップすればそのファイルへのフルパスが自動的に記入されます。
　複数ファイルの処理を行う場合は複数ファイルをドロップしてください。
3.enterを押す。
4.デスクトップにPerl起動時の日時を名前としたディレクトリが作成されてその中にファイルが収集されます。
　「（Illustratorのドキュメント名）successful!!!」と表示された場合は全ファイル収集済み。
　「（Illustratorのドキュメント名） error!!! Look collected directory. This programs maked error log.」と表示された場合は収集できなかったファイルがあります。
　後者の場合デスクトップに作成されたディレクトリの中の「log」ディレクトリの中に「log.txt」が作成されます。
　「log.txt」には収集できなかったファイル名が記載されていますので、確認してください。

＜今後の予定＞
●サブルーチン化 ←　2012.10.16完了
●複数のIllustratorファイルに対応 ←　2012.10.16完了
●エラーログをUTF-8形式のファイルで収集先のディレクトリ内に作成 ←　2012.10.21完了
●すべて一つのフォルダ内に収集できる仕様も加える

＜謝罪＞
いろんなところで表示される英文が残念な感じですみません。