« Perlで日の出・日の入(日没)のモジュール Astro::Sunrise (とDateTime::Event::Sunrise) (1/13) | トップページ | Perlで日の出・日の入(日没)の時刻と天気予報をメールでRemember The Milkに登録 (1/13) »

2007.01.14

Perlで日の出・日の入(日没)の時刻をメールでRemember The Milkに登録 (1/13)

「Perlで日の出・日の入(日没)のモジュール Astro::Sunrise (とDateTime::Event::Sunrise) (1/13)」の続き。

M.C.P.C.: 日没時刻のタスクをRemember The Milkに設定することによってカーテン閉め忘れてお母さんに怒られなくて済むスクリプト
http://blog.dtpwiki.jp/dtp/2006/08/remember_the_mi_fa34.html
を使わせて頂き、以下のPerlスクリプトをDebian GNU/Linux 3.1 Sargeの/etc/cron.daiy/配下に置きました。

#!/usr/local/bin/perl
use strict;
use warnings;
use Astro::Sunrise;
use Net::SMTP;
use Date::Simple;

my $keido    = 139.5;
my $ido      =  35.5;
my $sunrise  = sun_rise( $keido, $ido );
my $sunset   = sun_set( $keido, $ido);

my  $today = Date::Simple->new;
my $day_of_week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$today->day_of_wee
k];
my $today_week = "$today $day_of_week";

my $smtp = Net::SMTP->new('smtp.nifty.com');
my $from     = '***@nifty.com';
my $to       = '***@rmilk.com';
my $cc = '***@nifty.com';
my $subject  = "$today_week Sunrise: $sunrise, Sunset: $sunset";

$smtp -> mail($from);
$smtp -> to($to);
$smtp -> cc($cc);

my $mailbody = <<_MAIL_BODY_;
List: Calendar
Due: $today $sunrise
---
$today_week
Sunrise: $sunrise
Sunset: $sunset
-end-
_MAIL_BODY_

$smtp -> data();
$smtp -> datasend("From:$from\n");
$smtp -> datasend("To:$to\n");
$smtp -> datasend("Cc:$cc\n");
$smtp -> datasend("Subject:$subject\n");
$smtp -> datasend("\n");
$smtp -> datasend("$mailbody\n");
$smtp -> dataend();
$smtp -> quit;

exit 1;

以上です。Debian SargeにはAstro::Sunriseのパッケージはなかったので、CPANからinstall. 他のDate::SimpleなどはDebianのパッケージにあったのでパッケージをインストール。

これで日の短い冬のアウトドアの計画が立てやすくなるかも。

P.S.
あとは天気予報も埋め込めたら便利かも。

1/14 作りました。

Perlで日の出・日の入(日没)の時刻と天気予報をメールでRemember The Milkに登録 (1/13)
http://d-k.cocolog-nifty.com/blog/2007/01/perlremember_th_d3bd.html

参考
Remember The Milkへメールでの投稿のテンプレート (11/23)
http://d-k.cocolog-nifty.com/blog/2006/11/remember_the_mi_d730.html


|

« Perlで日の出・日の入(日没)のモジュール Astro::Sunrise (とDateTime::Event::Sunrise) (1/13) | トップページ | Perlで日の出・日の入(日没)の時刻と天気予報をメールでRemember The Milkに登録 (1/13) »

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/49099/13483366

この記事へのトラックバック一覧です: Perlで日の出・日の入(日没)の時刻をメールでRemember The Milkに登録 (1/13):

» Perlで日の出・日の入(日没)の時刻と天気予報をメールでRemember The Milkに登録 (1/13) [雑木林とコンピュータ]
「Perlで日の出・日の入(日没)の時刻をメールでRemember The Mi [続きを読む]

受信: 2007.01.14 07:24

« Perlで日の出・日の入(日没)のモジュール Astro::Sunrise (とDateTime::Event::Sunrise) (1/13) | トップページ | Perlで日の出・日の入(日没)の時刻と天気予報をメールでRemember The Milkに登録 (1/13) »