#!/usr/bin/perl #Yahooより現在の円・ドル取引レートを取得し、閾値を超えた場合にメールを送信します。 #$mailtoと$mailfromは適宜変更してください。 use Jcode; use MIME::Lite; $max = 112.00; #max閾値 $min = 109.00; #min閾値 #YAHOOより円/ドルの為替相場を取得 @result = `lwp-request 'http://quote.yahoo.co.jp/m5?a=1&s=USD&t=JPY'`; foreach (@result){ chomp $_; $_ = jcode($_)->euc; if($_ =~ /(\d\d\d)\.(\d\d)/g){ $rate = "$1\.$2"; } } #現在の為替が閾値の範囲外ならメールを送信 if($rate > $max || $