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起動時の日時を名前としたディレクトリが作成されてその中にファイルが収集されます。
　「Successful!」と表示されれば全ファイル収集済み。
　「Done! but can't collected files : xx files」と表示されればxxファイル分収集できなかったという意味です。
　後者の場合「"Can't copy from "コピー元のフルパス" to "コピー先のディレクトリ"」というエラーも表示されるので、必ず確認してください。

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

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