Perl でメールを１００通送る

Perl でメールを１００通送るプログラムを作りました。ただし、これは実験用なので　「自分から自分へメールを１００通おくる」　というプログラムです。

for ( my $i = 0; $i < 100; $i++ ) {

$body_text{subject} = $i . ":test";
&sub::mail_push( $cf{server}, $cf{account}, $cf{password}, $cf{port}, $cf{form_mail}, $mail_add , $body_text{subject}, $body_text{body_text} );

}

&sub::mail_pushというサブルーチンはメールを送信するために自分が作ったものです。

うまく１００通おくれたので良かったのですが、ここでメールサーバーに溜まっているメールをみて疑問が２点浮かびました。

１）このプログラムでメールタイトルは　0 ～ 99 までの連番が頭につき、その順にメールが送られ（るハズ？）ます。しかしメールサーバー上では連番どおりにメールは届いておらずバラバラになって並んでいます。これはなぜでしょうか？

２）単純になにかのミスだと思うのですが、これは本日（6/17）動かしているのですが、メールの日付は（6/18）になっています。なにかサーバー上のミスでしょうか？ちなみにサーバーはXREAを利用しています。

No.2 ベストアンサー 回答者： t_ohta 回答日時： 2013/06/17 18:51

１）についてはNo1の方の回答の通り、全てが順番に同じ経路で配送される保証はありませんので、短時間に続けて送信したら、途中の経路やプログラムを実行したマシンのMTAのスプール状況次第で順番はバラバラになります。

２）はタイムゾーンの設定の問題じゃないでしょうか。
届いたメールのヘッダー情報を見てDateフィールドのタイムゾーンがどうなっているか確認しましょう。

この回答へのお礼

ありがとうございました。

パケットなどを調べて、バラバラになることを理解しました！

お礼日時：2013/07/01 14:18

No.1 回答者： ORUKA1951 回答日時： 2013/06/17 18:36

メールを含めてどのルートを通るかは保証されていません。

　インターネットの歴史を学ばれ経験があればご存知のように、元々軍事目的で開発が促進された技術です。
　従来の端末--中継局---中継局---端末では、一箇所遮断されたら通信不能になります。そこでクモの網の目のように張られたネットワークで、送信先が書かれたパケット(小包)を、ネットラーク上のルーターが、あいている経路に向かって送り出す。どこかが破壊されても迂回路を見つけて届けられる。
　ある経路が通信でふさがっていたら、あいている経路に送り出します。

　隣町の友人に送ったメールが地球の反対側を経由して届くなんてこともありえます。

　メールヘッダに、すべての経路が記録されていますから確認してみたら？？

この回答へのお礼

ありがとうございました。

メールヘッダーなどをみて、いろんなところを経路している事を確認しました。

お礼日時：2013/07/01 14:19