ヨタの日々

_ 場所

神奈川

_ the diary

♪ヘミソフィア

3 月になりました。学生生活もそろそろ終りと考えるとちょっと寂しいです。

学生のころに一番大変だったこと。語学の試験があったんです。中国語。当日はその試験の日じゃないと勘違いしてて、近所のバーゲンセール行ってました。ともだちからもケータイに連絡がバシバシかかってたんです。でも目当ての店に行ってたのでかなり殺気立ってたんです。ケータイは無視。

買物が終ってからケータイを見たら、着信履歴が 10 件。ともだちから試験だったことを聞きました。

あとで先生に頼んで追試を受けさせてもらい、無事に単位を取れたから良かったんですが。

_ ドリカンリクエスト

毎週手動でメール送信してると忘れるのでプログラム書いて cron に登録。かなりバータリー。もちろん住所はちゃんと書いてるぞ。

#!/usr/bin/perl -w
require 'jcode.pl';
require 'mimew.pl';
$to = 'dream@joqr.net';
$from = 'rin@mari-off.gr.jp';
$subject = "ドリカンリクエスト";
send_mail_to();
sub send_mail_to {
    $header = <<"EOD";
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encodeing: 7bit
EOD
    $body = <<"EOD";
  坂本真綾「ヘミソフィア」に 1 票。
  郵便番号 xxx-xxxx
  住所だよ〜
  三輪晋
  
-- 
みわ
EOD
  
    $mimeencodedsubject = mimeencode( jcode'jis( $subject ) );
    $jisencodedbody = jcode'jis( $body );
    open( MAIL, "| /usr/sbin/sendmail -v -f $from -t $to") || die "can't execute : sendmail";
    print MAIL $header;
    print MAIL "To: $to\n";
    print MAIL "From: $from\n";
    print MAIL "Subject: $mimeencodedsubject\n";
    print MAIL "\n";
    print MAIL "$jisencodedbody\n";
    print MAIL "\n";
    close( MAIL );
} ## send_mail_to()