perl 添付ファイルの拡張子を調べる方法を教えてください。 メールを受信した際標準入力からperlが受け取りMIME::Perserでファイルを取得保存するところまでは出来ました。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
No.1
10pt
URLに詳しく載ってます。
ファイル名を取り出した後は、正規表現で拡張子を取得すればOKです。
No.2
120pt
ファイルを保存できているのでしたら、後は正規表現で抜き出せば良いと思います。
$filename = ”abc.ini”;
($file_ext = $filename) =~ s!.*¥.([^.]+)$!$1!;
print $file_ext;
話が違う場合は、申し少し詳細を教えて下さい。
「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。
これ以上回答リクエストを送信することはできません。制限について
ありがとうございます。