作者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