#!/usr/bin/env ruby -Ks #------------------------------------------------------------------------ # kawase.rb 外為替情報 表示スクリプト version1.01 # # program by RR-Ri 2005-2008 # URL : http://www.runread.com/ # e-mail : info@runread.com # # [説明] # yahooファイナンスのページにある外為替情報のプログラムの実行結果を取得します。 # # [使用方法] # kawase.rb [数量] [通貨1] [通貨2] # 通貨1(数量)を通貨2に換算します。 # # (例) # 数量: 1 通貨1: 米ドル 通貨2: 日本円 # kawase.rb 1 USD JPY # # 数量: 10 通貨1: 欧州ユーロ 通貨2: 韓国ウォン # kawase.rb 10 EUR KRW #------------------------------------------------------------------------ STDOUT.sync=true require 'open-uri' KAWASE_URL = 'http://quote.yahoo.co.jp/m5?' CURRENCY = { 'USD'=>'ドル', #アメリカ(ドル) 'GBP'=>'ポンド', #イギリス(ポンド) 'INR'=>'ルピー', #インド(ルピー) 'IDR'=>'ルピア', #インドネシア(ルピア) 'ECS'=>'スクレ', #エクアドル(スクレ) 'EGP'=>'ポンド', #エジプト(ポンド) 'AUD'=>'AUドル', #オーストラリア(ドル) 'CAD'=>'CAドル', #カナダ(ドル) 'KRW'=>'ウォン', #韓国(ウォン) 'KWD'=>'ディナール', #クウェート(ディナール) 'COP'=>'ペソ', #コロンビア(ペソ) 'SAR'=>'リアル', #サウジ(リアル) 'SGD'=>'SGドル', #シンガポール(ドル) 'CHF'=>'フラン', #スイス(フラン) 'SEK'=>'クローナ', #スウェーデン(クローナ) 'THB'=>'バーツ', #タイ(バーツ) 'TWD'=>'TWドル', #台湾(ドル) 'CLP'=>'ペソ', #チリ(ペソ) 'DKK'=>'クローネ', #デンマーク(クローネ) 'TRL'=>'リラ', #トルコ(リラ) 'JPY'=>'円', #日本(円) 'NZD'=>'NZドル', #ニュージーランド(ドル) 'NOK'=>'クローネ', #ノルウェー(クローネ) 'PYG'=>'グァラニ', #パラグアイ(グァラニ) 'PHP'=>'ペソ', #フィリピン(ペソ) 'BRL'=>'リアル', #ブラジル(リアル) 'VEB'=>'ボリバー', #ベネズエラ(ボリバー) 'PEN'=>'ソル', #ペルー(ソル) 'HKD'=>'HKドル', #香港(ドル) 'MYR'=>'リンギ', #マレーシア(リンギ) 'ZAR'=>'ランド', #南アフリカ(ランド) 'MXN'=>'ペソ', #メキシコ(ペソ) 'AED'=>'ダーハム', #UAE(ダーハム) 'EUR'=>'ユーロ', #欧州(ユーロ) 'JOD'=>'ディナール', #ヨルダン(ディナール) 'ROL'=>'ルー', #ルーマニア(ルー) 'LBP'=>'ポンド', #レバノン(ポンド) 'RUB'=>'ルーブル', #ロシア(ルーブル) } URI.parse(KAWASE_URL + "a=" + ARGV[0] + "&s=" + ARGV[1] + "&t=" + ARGV[2]).read.match(/<\/td>(.*)<\/b><\/td><\/tr><\/table><\/div>/) print(ARGV[0], CURRENCY[ARGV[1]], " = ", $1, CURRENCY[ARGV[2]], "\n")