never4get 的記事本: php

顯示具有 php 標籤的文章。顯示所有文章

2009年9月6日星期日

PLURK BOT 範例

這是一個以自由時報即時新聞為基礎建立的 php plurk bot 範例
會貼出最新的10條新聞

2009年4月18日星期六

[PHP 筆記] 發個私噗給自己

沒事發私噗給自己?

雖然 PLURK 有假期模式
但想保卡馬又沒時間噗浪
也不想造成他人的困擾
就想寫個程式
搭配 Windows xp '排定的工作'
成為定時發私噗的噗浪機器人
而這個私噗的內容只有自己可看到。

plurk_limit.php

<?
header('Content-type:text/html; charset=utf-8');
define('NICKNAME', ''); //輸入 PLURK 的 NICKNAME
define('PASSWORD', ''); //輸入 PLURK 的密碼
$user_id = getid(NICKNAME);
define('USER_ID', "$user_id"); 
set_time_limit(240);

// login
 $ch = curl_init();
 curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
   curl_setopt($ch, CURLOPT_COOKIEJAR, '\plurk_cookie_n.txt');
   curl_setopt($ch, CURLOPT_URL, 'http://www.plurk.com/Users/login');
   curl_setopt($ch, CURLOPT_POSTFIELDS, 'nick_name='.NICKNAME.'&password='.PASSWORD);
   curl_exec($ch);
        curl_close($ch);
  
//
 
date_default_timezone_set("Asia/Taipei");
$out = date("Y-m-d H:i:s");
echo $out;
post($out);

  
function post($message){
  // post
 $ch3 = curl_init();
   curl_setopt($ch3, CURLOPT_COOKIEFILE, '\plurk_cookie_n.txt');
   curl_setopt($ch3, CURLOPT_URL, 'http://www.plurk.com/TimeLine/addPlurk');
   curl_setopt($ch3, CURLOPT_POSTFIELDS, 'qualifier=gives&limited_to=%5B'.USER_ID.'%5D&lang=tr_ch&uid='.USER_ID.'&no_comments=0&content='.$message);
   curl_exec($ch3);
     curl_close($ch3);
}


function getid($name){
 $ourl= 'http://plurk.com/'.NICKNAME;
 $fid = file_get_contents($ourl);
 preg_match('/user_id\": (.*?)\,/s',$fid,$matches);
 $u_id = $matches[1];
 return($u_id);
}

?>

上面

define ('NICKNAME', '1234'); 1234 改為你 PLURK 的 NICKNAME
define ('PASSWORD','5678'); 5678 改為你 PLURK 的密碼
如果噗同樣的內容
可能會被 Plurk 的防洪機制所阻擋
所以我把它設定為報時噗
排程的方式

以 AppServ 為例

首先要讓 php 支援 cURL 模組

我的排程是執行
D:\AppServ\php5\php.exe D:\AppServ\www\plurk\test\plurk_limit.php

切記!
每日超過 30 噗主題是會扣卡馬的
所以重複執行時間可不能設定太短喔。

順便打個小廣告
歡迎加入我的機器人噗浪

[PHP 筆記]查詢某 PLURK NICKNAME 的 user id

首先要定義程式中的 NICKNAME

如我的 NICKNAME

define('NICKNAME', 'never4get');

<?
define('NICKNAME', ''); // 在 '' 中輸入要查詢的 NICKNAME
$user_id = getid(NICKNAME);
echo $user_id;
   
function getid($name){
	$ourl= 'http://plurk.com/'.NICKNAME;
	$fid = file_get_contents($ourl);
	preg_match('/user_id\": (.*?)\,/s',$fid,$matches);
	$u_id = $matches[1];
	return($u_id);
}

?>

2009年2月17日星期二

[學習筆記] PHP tinyurl 短縮網址的 function

忘了之前在哪裡找到的
先記下來當做日後查詢的筆記。

tinyurl 可把冗長的網址簡化為較短的網址
下面為好用的 php function



function tinyurl($url){
   return(trim(file_get_contents('http://tinyurl.com/api-create.php?url='.$url)));
}

其中:
$url 為欲轉換的網址
代入 function 後
返回值為轉換後的簡化網址

2008年12月1日星期一

台灣蘋果壹周刊程式修改

最近一些免費空間(如 http://www.000webhost.com/ )為了安全的理由
禁止了 ini_set() 的指令
而台灣蘋果網站一些頁面的抓取需要設定 user agent
所以今日修改程式
由原來的


ini_set('user_agent', 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322)');

改為 cURL 的指令


curl_setopt($ch,CURLOPT_USERAGENT,'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; Maxthon; .NET CLR 1.1.4322; .NET CLR 2.0.50727)');

2008年11月23日星期日

1.
修改 WebAp\Program\php\php.ini
用文字編輯程式(UltraEdit or EmEdit)編輯
找到其中的 extension=php_curl.dll 這一行
去除前面的分號 ";"
然後儲存。

2.
下載 http://portablewebap.com/downloads/php5.1.6ext.zip
解壓縮後
找到 php_curl.dll copy 到 WebAp\Program\php\ext\ 下

3.
執行 portablewebap.exe 啟用 server.

在 AppServ 中啟用 cURL 模組的方法

在 WINDOWS 的目錄下
找到 php.ini 這個檔
用文字編輯程式(UltraEdit or EmEdit)編輯
找到其中的 extension=php_curl.dll 這一行
去除前面的分號 ";"
然後儲存，
若仍然無法啟動 cURL 可以按照下面步驟修正。

一、在 ..\AppServ\php5\ 下找到 libeay32.dll 及 ssleay32.dll。
二、在 ..\AppServ\php5\ext\ 下找到 php_curl.dll。
三、將上述三個檔案複製到 %windir%/system32 下。
四、重新啟動伺服器即可。

2008年9月9日星期二

關於香港壹傳媒報刊

今日香港壹傳媒報刊的來源 xml 檔有所變動
先是以為壹傳媒已經修補了漏洞
原來是換湯不換藥
ha ha
可以繼續看雜誌囉。

2008年8月18日星期一

Fiddler

今天介紹一個剖析網頁的工具~Fiddler

這個工具我覺得非常的好用而且它是免費的

程式可在這個網頁找到或是直接到這裡取得。

Fiddler 的用途非常的廣泛

我以查詢台灣自由時報週末版的圖片原始位置來做範例:

先執行 Fiddler 程式
用瀏覽器開啟 http://www.libertytimes.com.tw/Service/weekly.htm 這個網頁
點選網頁上方 "放大看"按鈕，如下圖所顯示。
查看 Fiddler 內的記錄。

由上圖就可查出原始圖及放大圖存放的位置。

根據上面查出的位置

我寫了個小程式方便瀏覽及用 iSiloX 製作電子書

<?
header('Content-type:text/html; charset=big5');
$issue = $_GET['issue'];
if($issue){
$year = substr($issue,0,4);
$m = (substr($issue,4,2)+1);
$d = substr($issue,6,2);
$day = date("j", mktime(0, 0, 0, 0,$d,0));
$month = date("M",mktime(0, 0, 0,$m,0,0));
$month = strtolower($month);
//echo $day.$month;
$content = 'http://www.libertytimes.com.tw/'.$year.'/new/'.$month.'/'.$day.'/';
}else{
$url = 'http://www.libertytimes.com.tw/menu2.js';
$content = file_get_contents($url);
$content = preg_replace('/(.*?)path = \"(.*?)\"(.*)/s',"http://www.libertytimes.com.tw$2",$content);
}
$weekly = @file_get_contents($content.'weekly.htm');
preg_match('/<td style=\"font-size:14px\">(.*?)<\/td>/s',$weekly,$matches);
$out = "<title>生活週報</title><img src=http://www.libertytimes.com.tw/2008/images/img_auto/005/Weekend.gif> $matches[1]<hr>\r\n";
if (!$weekly){
$out .= "今日週末版未出刊!\r\n";
}else{
for ($i=1;$i<=12;$i++){
if (($i == "4")||($i == "8")){$i = $i+1;}
$link = $content."images/w".$i.".jpg";
$blink = $content."images/w".$i."b.jpg";
$out .= "<a href=$blink><img src=$link border=0 ></a> \r\n";
}
}
$out .="<hr><img src=http://static.flickr.com/60/219160214_e6ed15d559_o.gif>";
echo $out;
?>

演示: http://never4get.net78.net/ltw/ltweekly.php?issue=20080817

至於其他如 MagV 網站的內容也可比照上法查詢。

2008年8月12日星期二

Time php v 1.1

Time 雜誌網頁格式有少許更動
昨晚我把原來的程式也更新了
內定 time.php 為 U.S. edition

time.php?edition=asia 為亞洲版
分兩個檔案:

time.php

<?
header('Content-type:text/html; charset=utf-8');
$edtion = $_GET['edition'];
$link = "http://www.time.com/time/magazine";
$dirlink = dirname($link);
$mylogo = "<img src=http://static.flickr.com/60/219160214_e6ed15d559_o.gif> \r\ntime.php v1.1";
$content = file_get_contents($link);
preg_match('/(.*?)<\/ul>/s',$content,$edt);
$edition = $edt[1];
preg_match_all('/img src=\"(.*?)jpg/s',$edition,$cv);
preg_match_all('/<a href=\"(.*?)\"/s',$edition,$el);
$uscover = $cv[1][0].'jpg';
$asiacover = $cv[1][2].'jpg';
$uslink = $link;
$asialink = $el[1][1];
$link = $uslink;
$cover = $uscover;
if ($edtion == 'asia'){
$link = $dirlink.'/..'.$asialink;
$cover = $asiacover;
}
$content = file_get_contents($link);
preg_match("/<title>(.*)<\/title>/is",$content,$head);
$line = $head[0];
$line .= "$head[1] <img src=$cover>\r\n<hr>\r\n";
preg_match_all("/<div class=\"toc_seched\">(.*?)<\/div></is",$content,$matches);
$z = count($matches[0]);
for ($i=0;$i<$z;$i++){
$area = $matches[0][$i];
preg_match("/<div class=\"toc_seched\">(.*?)<\/div>/is",$area,$h);
$line .= " \r\n$h[1] \r\n<ul>\r\n";
preg_match_all("/<a class=(.*?) /is",$area,$t);
for ($j=0;$j<count($t[0]);$j++){
$title = $t[0][$j];
$title = eregi_replace(" ","",$title);
$title = eregi_replace('/time/','time_view.php?link=http://www.time.com/time/',$title);
$line .= "<li>$title</li>\r\n";
}
$line .= "</ul> \r\n";
}
$line .= "<hr>\r\n$mylogo";
echo $line;
?>

time_view.php

<?
header('Content-type:text/html; charset=utf-8');
$link = $_GET['link'];
$mylogo = "<img src=http://static.flickr.com/60/219160214_e6ed15d559_o.gif> \ntime.php v1.1";
$content = file_get_contents($link);
preg_match("/<head>(.*?)<\/head>/is",$content,$css);
preg_match("/(.*)/is",$content,$pix);
preg_match("/<div class=\'print\'><a href=\'(.*?)\'/is",$content,$nl);
preg_match("/<div class=\"print\"><a href=\"(.*?)\"/is",$content,$nl2);
if ($nl[1]||$nl2[1]){
$newlink = $nl[1];
$newlink .= $nl2[1];
$newlink = 'http://www.time.com/'.$newlink;
$newlink = eregi_replace('"',"",$newlink);
$content = file_get_contents($newlink);
}
preg_match("/<title>(.*?)<\/title>/is",$content,$t);
$title = $t[0];
$title = eregi_replace("printout","",$title);
preg_match("/(.*?)/is",$content,$a);
$area = $a[1];
$line = $title."\r\n";
$line .= $area;
$allowed_tags = ",,<div>,<h1>,,<title>, ,<hr>,<img>,";
$line = strip_tags($line, $allowed_tags);
$line .=$pix[0];
$line = preg_replace('/<div id=\"copy\">(.*?)<\/span>/s','',$line);
$line = preg_replace('/<div class=\"enlarge\">(.*?)<\/div>/s','',$line);
$line = preg_replace('/<a id=\"enlargeImg\"(.*?)>/s','',$line);
$line = eregi_replace('a_','',$line);
$line = preg_replace('/width=(.*?)\//s','/',$line);
$line .= "<hr>\r\n$mylogo";
echo $line;
?>

Webmaster Tools - Advanced

U.S. edition 演示

Asia edition 演示

2008年7月7日星期一

SCMP php 原始檔公開

共分兩個檔
第一個檔為 scmp.php
用於顯示新聞標題

<?
header('Content-type:text/html; charset=utf-8');
$out = "<title>SCMP.com</title>\r\n";
$out .= "SCMP \r\n";
$main = file_get_contents('http://www.scmp.com/portal/site/SCMP/');
preg_match('/<td colspan=\"3\" style="padding-top: 3px; font-size:12px;font-family:Arial\;\" align=\"center\" valign=\"middle\">(.*?)<\/td>/s',$main,$issue);
$out .="$issue[1]<hr>\r\n";
$tt = array('Hong Kong','China','Asia','World','Education');
$l = array('hong_kong','china','asia','world','education');
$baseurl = 'http://www.scmp.com/rss/';
for($i=0;$i<5;$i++){
$url = "$baseurl"."$l[$i].xml";
$content = file_get_contents($url);
if (ereg('<item>',$content)){
$out .= "$tt[$i] \r\n";
$content = preg_replace('/(.*?)<item>(.*?)<\/item>/s',"$2",$content);
$content = preg_replace('/<pubDate>(.*?)<\/pubDate>/s','',$content);
$content = preg_replace('/<description>(.*?)<\/description>/s','',$content);
$content = preg_replace('/<title>(.*?)<\/title>(.*?)<link>(.*?)<\/link>/s',"<li><a href=scmp_view.php?link=$3>$1</a></li>\r\n",$content);
$content = eregi_replace('<!\[CDATA\[','',$content);
$content = eregi_replace('\]\]>','',$content);
$out .= $content;
}
}
$out .= "<hr><img src=http://static.flickr.com/60/219160214_e6ed15d559_o.gif>";
echo $out;
?>

第二個檔為 scmp_view.php (2009-3-15 更新)
用於顯示新聞內文

<?
header('Content-type:text/html; charset=utf-8');
ini_set('user_agent', 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322)');
$link = $_GET['link'];
$content = file_get_contents($link);
preg_match('/printform_target\">(.*?)<\/form>/s',$content,$match);
$content = $match[1];
preg_match('/artHeadline value=\"(.*?)\">/s',$content,$hl);
preg_match('/artSubHeadline value=\"(.*?)\">/s',$content,$shl);
preg_match('/artDate value=\"(.*?)\">/s',$content,$ad);
preg_match('/artByline value=\"(.*?)\">/s',$content,$bl);
preg_match('/artBody value=\"(.*?)\">/s',$content,$ab);
$headline = $hl[1];
$subheadline = $shl[1];
$art_date = $ad[1];
$by_line = $bl[1];
$body = $ab[1];
$out .= "<title>SCMP.com $headline</title>";
$out .= "$headline \r\n";
$out .= "$subheadline \r\n";
$out .= "$art_date \r\n";
$out .= "$by_line<hr>\r\n";
$out .= "$body<hr>\r\n";
$out = eregi_replace('<','<',$out);
$out = eregi_replace('>','>',$out);
$out = eregi_replace('&quot;','"',$out);
$out .= "<img src=http://static.flickr.com/60/219160214_e6ed15d559_o.gif>";
$allowed_tags = ",,<li>, ,<hr>,<img>,,,<title>";
$out = strip_tags($out, $allowed_tags);
echo $out;
?>

Enjoy!

2008年7月2日星期三

about SCMP 南華早報

自從 scmp.com 改版後
php 失效已經很久了
昨天瀏覽該網站
發現在每則新聞的原始 html 中
藏有除了圖片之外的完整新聞內容
不需訂戶登入即可截取其中的資料

今天花了點時間把程式寫出
新聞的標題由 rss 中抽取出
演示在下面網址

http://never4get.net78.net/scmp/scmp.php

訂閱：文章 (Atom)

2009年9月6日 星期日

2009年4月18日 星期六

2009年2月17日 星期二

2008年12月1日 星期一

2008年11月23日 星期日

2008年9月9日 星期二

2008年8月18日 星期一

2008年8月12日 星期二

2008年7月7日 星期一

2008年7月2日 星期三