#!/usr/bin/perl # # 読んだよ！ボタンスクリプト # # ↓カスタマイズ可能な変数↓ $title = "読んだよボタン"; # 変数定義 # ↓あなたのメイルアドレスに変更して下さい↓ $email = "mitsuhara@miraclearts.co.jp"; # 画面への挨拶表示 print <$title

いつもありがとう！

END_OF_HTML # メイル内容の準備＆メイル転送 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $mon++; $date = sprintf("$year年$mon月$mday日 $hour時$min分$sec秒\n"); open(EMAIL, "| mail $email"); print EMAIL "読んでくれました♪\n\n"; print EMAIL "$date$ENV{'REMOTE_HOST'}\n$ENV{'HTTP_USER_AGENT'}\n"; close(EMAIL); # -----