#700 Now YenExchangeRate! - Weblog に円相場を表示し隊 Pt.1

Genre: App
Date: 2004-10-31T23:59:08+09:00

ブロギに円相場を表示しよう! という、超自分にしか役に立た無いであろう企画。

そんな俺企画の為に #順列都市の方々はあっと言う間にプログラみって下さったのでありました。ぅぉー有難うございまするした先生さま方ー。と言う名の自分用メモ。

以下、けんたろさん作 Perl バージョン。

#!/usr/bin/perl

use strict;
use warnings;
use SOAP::Lite;

my @countries = ('us', 'uk', 'korea', 'hong kong', 'russia');
my $wsdl = 'http://www.xmethods.net/sd/2001/CurrencyExchangeService.wsdl';

my $soap = SOAP::Lite->service($wsdl);

print "Content-Type: text/plain;\n\n";
print "1 $_: ".$soap->getRate($_, 'japan')." Yen\n" for @countries;

exit;

以下、まゆきさん作 PHP バージョン。

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<title>Current Exchange (SOAP)</title>

<?php
require_once('nusoap.php');

$client = new soapclient("CurrencyExchangeService.wsdl", true);
$proxy = $client->getproxy();
//$rate = $proxy->getRate("us", "japan");

?>

<h1>現在の何か。</h1>

<dl>
	<dt>1 USドル</dt>
		<dd><?php echo htmlspecialchars($proxy->getRate("us", "japan"));?> 円</dd>
</dl>

そしてこれらを元に色々ごにょって実装する訳なんですが、いかんせん肝心な金額の出所（この言い回しの時点で私の知識がアヤシイ事を嗅ぎ取って頂きたく）が、今日はずーっと落ちっ放し。で、作業が前に進ま無かった日曜日。ぁぅぁぅぁー。

まあそれ以前に PHP 環境なんぞ当たり前に無い私はそこから始まった訳ですけど。しかも Apache からやり始めたもんだから。なんだかんだで 1 週間経過。そして家マッスィンにもようやく人並みな環境が揃ったようですパパスさん・・・。

ふぉんでもってこの Now YenExchangeRate を思い付いたきっかけはと言うと、

CD は海外オンラインショッピングや海外レーベル直買いが日課になってしまってる今日この頃。
そこで気になるのが円相場。
で、普段殆どテレビ見ないクセに、円相場だけはいつも NHK のニュースでチェキってた。
おいおい何やってんだよ自分。年がら年中パすコンの前に座ってるクセに、ネットでチェキりゃーいいだろうよおまいさん。
いやいやまてよ。世間様がやってらっさる、自分の Weblog に表示する Now Playing。アレ、殆ど自分しか見てねーし閲覧者はフツーにスルーしてるよな。（暴言?
つ事はだ。それと同じで自分も Now Playing ならぬ Now YenExchangeRate とかゆって自分にしか役に立たない円相場なるモノを表示するようにしとけば、いちいちエネッチケー見に行かなくても他サイトにアクセスしなくても、常に限り無く最新な円相場が確認出来るんじゃねーのか?

とゆー感じだったのでした。

そして次回、実装編へと続くのである・・・。た、多分・・・。

参考サイト : SWITCH.ing :: blog
- nusoap を使って為替レートを表示

あえーとその円相場を表示しようと思ったきっかけ以前の説明についても補足しておきました。

#700 Now YenExchangeRate! - Weblog に円相場を表示し隊 Pt.1

Utilities