作者sophialiege (with friends)
看板ForeignEX
標題Re: [舉手] 找有外幣即期價格達到設定值就用emailꄠ…
時間Thu Sep 15 10:36:57 2011
※ 引述《jgwihi ( )》之銘言：
: 請問一下，我想找有外幣即期價格達到自己設定的價位
: 就會自動用email、即時通或是簡訊通知，就是在達到設定值就立刻
: 通知價位已達到設定值，請問有這種網站、工具或是有人會用excel
: 寫程式之類的嗎？例如想要設定在低價買進或高價賣出，但是又不想
: 要一直盯盤，謝謝。
以下是我google來的, 會120秒執行一次, 設太短把銀行網頁load太重 -> 殺雞取卵
#!/usr/bin/env perl
$besta = 31.80;
$bestb = 31.70;
$testing = 1;
while(1){
`rm personal_info07.asp`;
`wget --no-check-certificate 連著下面那行
https://www.cathaybk.com.tw/cathaybk/personal_info07.asp >/dev/null 2>&1`;
@str = `cat personal_info07.asp`;
$first = 1;
foreach (0 .. @str){
if($first == 1 && $str[$_] =~ m/US/){
$first = 0;
@a = split(/[<>]/, $str[$_+1]);
@b = split(/[<>]/, $str[$_+2]);
$a[2] += 0.03;
$b[2] -= 0.03;
if($a[2] >= $besta){
printf "^[[31;1m%.2lf^[[0m ", $a[2];
}else{
printf "%.2lf ", $a[2];
}
if($b[2] <= $bestb){
printf "^[[31;1m%.2lf^[[0m\n", $b[2];
}else{
printf "%.2lf\n", $b[2];
}
}
}
if($testing == 1 || $a[2] >= $besta || $b[2] <= $bestb){
$testing = 0;
`mail -s $a[2]\" \"$b[2] alibuda\@gmail.com < /dev/null`;
if($a[2] >= $besta){
$besta = $a[2]+0.02;
}
if($b[2] <= $bestb){
$bestb = $b[2]-0.02;
}
}
sleep(120);
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.36.55.33
1F：→ bitlife:這個要在Unix/Linux上執行,一般人沒這個環境吧? XD 09/15 10:41
2F：推 HatasonJa:大家好像很需要 09/15 10:47
3F：→ bitlife:有人出錢,我可以儘快弄出來. XD 09/15 10:48
4F：推 HatasonJa:PTT都是佛心來的 XDD 09/15 10:51
5F：→ bitlife:對到價通知有興趣的人,請推文回覆每月願意付多少錢. 09/15 10:58
6F：→ bitlife:加總起來能cover租用VPS的費用,就可以著手弄. 09/15 10:59
7F：推 HuangJS:把rm跟wget用perl內建函數取代掉, windows就能跑了 09/15 11:47
8F：→ bitlife:樓上,不只,還有mail. 09/15 11:54
9F：推 troylee:不要用 wget, 改用 LWP::UserAgent 09/15 22:35
10F：推 troylee:我來寫啦..要什麼功能? 09/15 22:42
11F：推 jgwihi:先以有簡訊和Email通知，然後讀入玉山銀或永豐銀的即期賣價 09/15 23:37
12F：→ jgwihi:每個幣別後面有個按鈕或是輸入框可以有判斷小於,界於,大於 09/15 23:40
13F：推 jgwihi:當條件成立就以Email或簡訊通知 09/15 23:42
14F：推 jgwihi:想要找南非幣定存利率高的銀行，比較26間銀行的匯差和利率 09/15 23:46
15F：→ jgwihi:永豐銀(讓分)和玉山銀(讓分,利率+0.2%)，永豐銀最高 09/15 23:49
16F：→ jgwihi:所以希望判斷永豐銀的南非幣來到低價位時買進放長期定存 09/15 23:51