電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

ThunderbirdのInboxファイルをPerlで読み込む

Perlを使用して、ThunderbirdのInboxファイルを読み込んで出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
 
print "Content-type: text/plan; charset=iso-2022-jp\n\n";
 
open(Thunderbird_Inbox, "<:utf8", "./Inbox");
while(my $Thunderbird_Inbox = <Thunderbird_Inbox>) {
	print $Thunderbird_Inbox;
}
close(Thunderbird_Inbox);
 
exit;

サンプルコードです。破損したThunderbirdのInboxファイルをPerlで読み込み、ブラウザでメールの内容を確認出来ました。

スポンサードリンク
スポンサードリンク