トップ «前の日記(2002-03-03) 最新 次の日記(2002-03-05)» 編集

ヨタの日々

2001|08|09|10|11|12|
2002|01|02|03|04|05|06|07|08|09|10|11|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|09|10|11|12|
2011|01|02|03|04|05|06|07|08|09|10|11|12|
2012|01|02|03|04|05|06|07|08|09|10|11|12|
2013|01|02|03|04|05|06|07|08|09|10|11|12|
2014|01|02|03|04|05|06|07|08|09|10|11|12|
2015|01|02|03|04|05|06|07|08|09|10|11|12|
2016|01|02|03|04|05|06|07|08|09|10|11|12|
2017|01|02|03|04|05|06|07|08|09|10|11|12|
2018|01|02|03|04|05|06|07|08|09|10|11|12|
2019|01|02|03|04|05|06|07|08|09|10|11|12|
2020|01|02|03|04|05|06|07|08|09|10|11|12|
2021|01|02|03|04|05|06|07|08|09|10|11|12|
2022|01|02|03|04|05|06|07|08|09|10|11|12|
2023|01|02|03|04|05|06|07|08|12|
2024|01|02|03|

2002-03-04

_ 場所

神奈川



_ 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()