wget.pl
2007-08-31 13:50
之前在 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
MSN log merger
新增留言
訂閱這則留言的 RSS Feed