Perl CPAN::Modulelist的解决办法

<?php
 require_once showErrMsg.php;
 $_action = (isset($_REQUEST[action])?$_REQUEST[action]:"");
 if($_action!=null&&$_action!=){
  if(function_exists($_action)){
   eval("$_action();");
  }else{
   die(showErrMsg ( "<br>当前php文件中不存在方法[<b>".$_action."()</b>]。"));
  }
 }
?>

<?php
function showErrMsg($strMsg){
  return "<font color=red>".$strMsg."</font>";
 }
?>

<?php
class A
{
      function foo()
      {
          if (isset($this)) {
              echo '$this is defined (';
              echo get_class($this);
              echo ")n";
          } else {
              echo "$this is not defined.n";
          }
      }
}

class B
{
      function bar()
      {
        A::foo();
         //parent::foo();
      }
}

$a = new A();
$a->foo();//动态调用，因为new了对象
A::foo();//静态调用，直接用类名去调用，没有new对象
$b = new B();
$b->bar();//在对象$b中，A::foo();进行静态调用
B::bar();
?>

POST /目的程序 HTTP/1.1
Accept: */*
Referer: http://www.111cn.net
Accept-Language: zh-cn,en-us;q=0.5
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows NT; .NET CLR 1.0.3705; .NET CLR 1.1.4322)
Host: 要发送到的主机地址
Content-Length: 发送数据的长度
Pragma: no-cache
Cache-Control: no-cache
username=php&password=iask   //post发送的数据

$port = $url['port'] ? $url['port'] : 80;
$fp = fsockopen($url['host'], $port, $errno, $errstr,10);
if (!$fp) return "在主机： $url[host] $port 打开socket失败，失败原因是: $errno - $errstr";
fputs($fp, sprintf("POST %s%s%s HTTP/1.0rn", $url['path'], $url['query'] ? "?" : "", $url['query']));
fputs($fp, "Host:".$url['host']."rn");
fputs($fp, "Content-type: application/x-www-form-urlencodedrn");
fputs($fp, "Content-length: " . strlen($encoded) . "rn");
fputs($fp, "Connection: closernrn");
fputs($fp, "$encoded\n");

<?php

//模拟get post请求函数
/*
函数说明：
功能：请求方式可以get，post，可以发送的cookie，保存的cookiefile文件
参数：$url-----请求url    $referer---来源url    $postdata----------用于post请求的数据，''为get请求
$cookie---------发送的cookie     $cookiefile-----保存的cookiefile文件
返回值：返回获取的源码
*/
function request($url,$referer='',$postdata='',$cookie='',$cookiefile=''){
//header设置
$header='';
$header.="Content-Type: application/x-www-form-urlencodedrn";//内容请求类型
$header.="User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0)rn";//浏览器字段
$header.="Referer:".$referer."rn";//设置来源地址
$header .= "Cookie:".$cookie ; //设置cookie，默认空
//请求方法get post，通过$postdata空---get,非空----post
if($postdata=='')$method='GET';
else $method='POST';
//定义用于创建流的数组
$opts=array();
$opts['http']=array('method'=>$method,'header'=>$header,'content'=>$postdata);
//生成流
$context=stream_context_create($opts);
//发送请求,获取源码
$yuanma=file_get_contents($url,false,$context);
//是否需要保存cookie到文件，$cookiefile不空时
if($cookiefile!=''){
echo '需要保存cookie<br>';
//判断保存文件存在,不存在创建
if(!file_exists($cookiefile)){
file_put_contents($cookiefile,'');
}
//获取cookie，保存起来
$response=implode("rn",$http_response_header);
//用正则匹配cookie
$zengze="/Set-Cookie:(.*?)rn/";
preg_match_all($zengze,$response,$cookie_arr);
//存在匹配，保存
if(!empty($cookie_arr[1])){
$cookiestr=implode(';',$cookie_arr[1]);
file_put_contents($cookiefile,$cookiestr);
echo '成功保存cookie<br>';
}
else echo '没有匹配到cookie<br>';
}//end if($cookiefile!='')
//返回源码
return $yuanma;
}//end function request($url,$referer,$postdata,$cookie,$cookiefile)

//获得当前的脚本网址
function GetCurUrl()
{
if(!empty($_SERVER["REQUEST_URI"]))
{
$scriptName = $_SERVER["REQUEST_URI"];
$nowurl = $scriptName;
}
else
{
$scriptName = $_SERVER["PHP_SELF"];
if(empty($_SERVER["QUERY_STRING"]))
{
$nowurl = $scriptName;
}
else
{
$nowurl = $scriptName."?".$_SERVER["QUERY_STRING"];
}
}
return $nowurl;
}

//获得当前文件名
$nowurl=GetCurUrl();
//echo $nowurl;

//表单输出，没有提交时
if(!isset($_POST['qq'])){
echo '<form method="post" action="'.$nowurl.'">
qq号码:<input type="text" name="qq"><br>
g_tk:<input type="text" name="g_tk"><br>
标题：<input type="text" name="title"><br>
内容:<input type="text" name="content"><br>
<input type="submit" value="发表文章">
</form>';
die();
}

/*
提交参数说明：
$_POST['qq']---用户QQ
$_POST['g_tk']--这个参数很关键，获得这个参数，需要抓下发表时提交的post地址后面调用的g_tk=1276354485，
路POST http://b1.qzone.qq.com/cgi-bin/blognew/blog_add?g_tk=1276354485里的g_tk=1276354485
$_POST['title']---文章标题，不得空
$_POST['content']---文章内容，不得空
*/

header('Content-Type:text/html;charset=gb2312');
set_time_limit(0);
//ob_end_clean();
//ob_start();

//获取cookie文件，不存在创建，并退出程序
$cookiefile=dirname(__FILE__).'\qq_cookie.txt';
if(!file_exists($cookiefile)){
echo 'qq_cookie.txt不存在，自动创建，请填写抓包的cookie<br>';
file_put_contents($cookiefile,'');
die('程序退出');
}
//存在，读取cookie
else{
$cookie=file_get_contents($cookiefile);//登录cookie
//$cookie=urlencode($cookie);
}
//echo 'cookie:'.$cookie.'<br>';

//构成发表页，post数据等的重要信息
//qq号码
if(empty($_POST['qq'])||preg_match('/[^0-9]/is',$_POST['qq']))die('qq号码有误，必须数字');
else $qq=$_POST['qq'];//qq号
if(empty($_POST['g_tk'])||preg_match('/[^0-9]/is',$_POST['g_tk']))die('post重要参数g_tk不合法，必须数字，请使用抓包的值');
$g_tk=$_POST['g_tk'];

$title=empty($_POST['title'])?die('标题不得空'):$_POST['title'];//文章标题
$content=empty($_POST['content'])?die('内容不得空'):$_POST['content'];//内容

$category='个人日记';//分类
$fabiao='http://b1.qzone.qq.com/cgi-bin/blognew/blog_add?g_tk='.$g_tk;//发表处理页
$referer='http://ctc.qzs.qq.com/qzone/v5/toolpages/fp_gbk.html';//来源页
$r1='http://user.qzone.qq.com/'.$qq.'/infocenter';//列表访问来源页
$postdata='uin='.$qq.'&category='.urlencode($category).'&title='.urlencode($title).'&content='.urlencode($content).'&html='.urlencode('<div class="blog_details_20110920">'.$content.'</div>').'&tweetflag=0&cb_autograph=1&topflag=0&needfeed=0&g_tk='.$g_tk.'&_fp_refer=http%3A%2F%2Fctc.qzs.qq.com%2Fqzone%2Fnewblog%2Fv5%2Feditor.html%3Fsource%3D1%7Chttp%3A%2F%2Fctc.qzs.qq.com%2Fqzone%2Fnewblog%2Fv5%2Feditor.html%3Fsource%3D1%3Chttp%3A%2F%2Fuser.qzone.qq.com%2F'.$qq.'%2Fmain';//post数据
//$postdata=urlencode($postdata);
//echo $postdata;
//发送请求，获取源码
$yuanma=request($fabiao,$r1,$postdata,$cookie,'');
if(strpos($yuanma,'发表成功'))echo $title.'  发表成功<br>';
else echo '发表失败：右键查看源码，可以看到具体错误'.$yuanma;

?>

php脚本：注意需要保存命名随意已经自动识别，我是命名为qq_fabiao.php，然后设置提交地址，cookie文件qq_cookie.txt需要填写抓包获取的空间登录cookie，以通过登录验证，qq_cookie.txt与php文件同目录

/*
提交参数说明：
$_POST['qq']---用户QQ
$_POST['g_tk']--这个参数很关键，获得这个参数，需要抓下发表时提交的post地址后面调用的g_tk=1276354485，
路POST http://b1.qzone.qq.com/cgi-bin/blognew/blog_add?g_tk=1276354485里的g_tk=1276354485

$_POST['title']---文章标题，不得空
$_POST['content']---文章内容，不得空