Re: [舉手] 找有外幣即期價格達到設定值就用emailꄠ…

[sophialiege (with friends)]

※ 引述《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
→ bitlife:這個要在Unix/Linux上執行,一般人沒這個環境吧? XD
推 HatasonJa:大家好像很需要
→ bitlife:有人出錢,我可以儘快弄出來. XD
推 HatasonJa:PTT都是佛心來的 XDD
→ bitlife:對到價通知有興趣的人,請推文回覆每月願意付多少錢.
→ bitlife:加總起來能cover租用VPS的費用,就可以著手弄.
推 HuangJS:把rm跟wget用perl內建函數取代掉, windows就能跑了
→ bitlife:樓上,不只,還有mail.
推 troylee:不要用 wget, 改用 LWP::UserAgent
推 troylee:我來寫啦..要什麼功能?
推 jgwihi:先以有簡訊和Email通知，然後讀入玉山銀或永豐銀的即期賣價
→ jgwihi:每個幣別後面有個按鈕或是輸入框可以有判斷小於,界於,大於
推 jgwihi:當條件成立就以Email或簡訊通知
推 jgwihi:想要找南非幣定存利率高的銀行，比較26間銀行的匯差和利率
→ jgwihi:永豐銀(讓分)和玉山銀(讓分,利率+0.2%)，永豐銀最高
→ jgwihi:所以希望判斷永豐銀的南非幣來到低價位時買進放長期定存