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

看板ForeignEX作者sophialiege (with friends)時間12年前 (2011/09/15 10:37)推噓8(8推 0噓 8→)

留言16則, 5人參與討論串1/2 (看更多)

※ 引述《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

09/15 10:41, , 1^F

09/15 10:41, 1^F

推

HatasonJa

09/15 10:47, , 2^F

09/15 10:47, 2^F

→

bitlife

09/15 10:48, , 3^F

09/15 10:48, 3^F