OuTian's 芭樂閣

wget.pl

之前在 PT 時隨手寫的 ...
遇到沒有裝 wget/fetch/curl ... 但有 perl 的機器時 , (solaris 常遇到)
貼四行指令下去 , 就生出一個簡易的 wget 了 ....


echo 'use IO::Socket;' > wget.pl
echo 'my $s=IO::Socket::INET->new(PeerAddr => "$ARGV[0]:80");' >> wget.pl
echo 'print $s "GET $ARGV[1] HTTP/1.0\nHost: $ARGV[0]\n\n";' >> wget.pl
echo 'print ((split(/\r\n\r\n/,join("",<$s>),2))[1]);' >> wget.pl


然後 perl wget.pl host filename > filename 就可以取檔案了

當然也可以寫成可以接完整網址的格式 , 不過會比較長一點 , 不太美觀 XDD

新增留言 2007-08-31 13:50

MSN log merger

好吧, 順利把一些 data 在一堆機器上 sync 後
又另外想搞個東西 ....
這就像 cclien 的 象牙筷子事件 一樣, 愈滾愈多洞　XD

兩台 windows 都有裝 MSN ,
因為一台家用一台公司用, 所以之前在兩台上面都會各有一份 log
現在既然要把資料都 sync 在一起了,
自然會想把兩台上的 log 先 merge , 以後留一份就好 ...

閱讀全文 1 則留言 2007-01-18 19:04

Re: CGI encrypt？

※ 引述《quincy (半調子程式殮骨師)》之銘言：
: 請問大師們....
: 目前有沒有能Encrypt在CGI程式上，像Zend一樣的程式呢？
: 因為我幫公司改的perl cgi moniter tool功能中，有能重新啟動apache服務的帳號，
: 目前我是把account/pass寫死在cgi裡面...雖說該monitor tool只有公司內網可以存取，
: 但總覺得好像還是太危險....= =”...CGI檔案一但一開就可以直接看到account/pass...
: 還是說有更Smart的方法...？
: 謝謝！

閱讀全文 新增留言 2006-03-21 21:31

Hinet Radio

Hinet 有個線上廣播網 , http://radio.hinet.net/

有朋友想用 script 去跑 , 把 mms:// 的 url 截出來 , 餵給 player 播放
本來的作法是手動去抓網頁上的電台 => radio_id
然後存在一個檔案裡

但是覺得這樣不夠漂亮 (好吧 , 我龜毛 XD)
且要手動抓上面的 radio_id 有點累 ...

於是寫了個 perl script 去 parse html ...

閱讀全文 新增留言 2006-03-16 03:15

filter control char

最近幫大度山的某板板主把一個以前被砍的板

從備份裡撈回來 然後寄給他

但是存放在 bbs 上的資料通常有一堆控制碼

直接由 editor 開出來可能會亂七八糟

於是跑個 reg 去過濾掉那些碼 就會乾淨多了

以後應該還用的到 先記下來 :p

perl -pi -e ‘s/\c[\[[;\d]*m//g' *

新增留言 2006-03-15 11:59