» 您尚未 登錄   註冊 | 幫助 | 社區 | 無圖版


腦友記廣場 -> perl -> Magazine 封面
 XML   RSS 2.0   WAP 

--> 本頁主題: Magazine 封面 加為IE收藏 | 收藏主題 | 上一主題 | 下一主題
pwyc





級別: 俠客
精華: 0
發帖: 100
威望: 101 點
金錢: 998 HKD
貢獻值: 0 點
註冊時間:2006-02-16
最後登錄:2013-12-13
查看作者資料 發送短消息 推薦此帖 引用回復這個帖子

Magazine 封面

Maninnet 兄

我有用 Perl Download Offline Magazine ( eat , face , me ........etc ) 但如果想好似 ADaily 可以Download 個封面?? Man兄可否提供正確封面link and 語法 Thx again !

新手上

$mydate = "";
if (!$mydate) {
$pagelist = geturl("http://appledaily.atnext.com/template/apple/sec_main.cfm?sec_id=".$page);  
$pagelist =~ /src=\"cache\/([0-9]+)\/sec_art_$page.js/is;
$mydate = $1;
}

[樓 主] | Posted: 2009-04-26 10:21 頂端
maninnet



級別: 管理員
精華: 0
發帖: 1903
威望: 1903 點
金錢: 19030 HKD
貢獻值: 0 點
註冊時間:2005-12-22
最後登錄:2017-10-26
查看作者資料 發送短消息 推薦此帖 引用回復這個帖子



以 fruit1k.plx 為例:

print MD $heading;
print MD "<img src=head_4104.jpg>";

print MD "<li><a href=4104.html>港聞</a></li>\n";
print MD "<li><a href=15335.html>國際</a></li>\n";
print MD "<li><a href=15307.html>財經</a></li>\n";
print MD "<li><a href=462.html>娛樂</a></li>\n";
print MD "<li><a href=25391.html>體育</a></li>\n";
print MD "<li><a href=12187363.html>副刊--飲食</a></li>\n";
print MD "<li><a href=12187369.html>副刊--旅遊</a></li>\n";
print MD "<li><a href=12187373.html>副刊--科技</a></li>\n";
print MD "<li><a href=12187376.html>副刊--消費</a></li>\n";
print MD "<li><a href=12187379.html>副刊--文化</a></li>\n";
print MD "<li><a href=12187383.html>副刊--汽車</a></li>\n";
print MD "<li><a href=12187386.html>副刊--親子</a></li>\n";
print MD "<li><a href=12187389.html>副刊--名彩</a></li>\n";
print MD "<li><a href=12187396.html>副刊--豪情</a></li>\n";
print MD $footer;
close MD;

$gfile = geturl("[http://appledaily.atnext.com/adoinfile/$mydate/head_4104.jpg");
open (GD,">head_4104");
binmode(GD);
print GD $gfile;
close GD;

[1 樓] | Posted: 2009-05-03 18:14 頂端

腦友記廣場 -> perl




Powered by PHPWind v4.0.1 Code © 2003-05 PHPWind
You can contact us