サーバーPC内でファイルの移動

質問

POP3サーバーにて取得したメールに添付されたファイルを題名、件名等によって指定された保存先アドレスへ保存する方法が分かりません。
下記は作成途中のソースです。

use File::Basename;
use Net::POP3;
use Net::FTP;

#POPサーバに接続
my $pop = Net::POP3->new('.jp', Timeout=> 120) || die "Cound\'t Connect to POP server\n";
$pop->login('1', '1') || die "Authentication failed\n";

#メールのリストを取得（メッセージ番号 => サイズ からなるハッシュリファレンス）
my $list_href = $pop->list;

#メールを一通づつ取得
foreach my $msg_id (keys %$list_href){
my $message = $pop->get($msg_id); #メールを取得
print @$message;
$pop->delete($msg_id); #メールを削除
}

my $parser = MIME::Parser->new;

#ファイルの一時保存場所を指定
$parser->output_dir('d:/Root/pub/mail/');

#標準入力からメールを取得
my $entity = $parser->parse(*STDIN);

#FromとSubjectのみ取り出し
$entity->head;
my $from = $header->get('From');
my $subject = $header->get('Subject');

#添付ファイルがある場合のみ処理
if($entity->is_multipart){

#パートの数（本文と添付ファイルの合計数）
$count = $entity->parts;

#メール本文以外（添付のみ）を取り出し（本文は0番目のため、一番目から取り出し）
for($i = 1; $i < $count; $i++){

#ファイル名を含むパスを取り出し
$path = $entity->parts($i)->bodyhandle->path;

#ファイル名を取り出し
$filename = (fileparse($path))[0];

#添付ファイルを書き出し
open(FILE, "> d:/Root/pub/temp/$filename");
print FILE $entity->parts($i)->bodyhandle->as_string;
close(FILE);
}
}
添付ファイルを書き出しした後、件名を分析しそこで指定された保存先へ保存する動作がいまいち分からないので教えて下さい。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.1

kyotokyo · ベストアンサー

ちょっと時間がないので
細かいプログラムは書けませんが

my $from = $header->get('From');
my $subject = $header->get('Subject');

で題名は取得できているので
あとは以下のように、if構文で題名によって処理を分ければよいと思いますが？

if($subject eq "その1"){}
elseif($subject eq "その2"){}
else{}