笔记2007-03-02 -> 2007-04-25

gudai

perl 利用CGI模块上传:取得上传的临时文件名以及文件的MD5
2007-04-25
bailing
use CGI;
use CGI qw/:standard/;
use Digest::MD5 qw(md5_hex);
my $query = CGI->new(\&hook,$PREF_logfh);
my $filename = $query->param('uploadname');
($filename,$file_ext) = ($filename =~ /(.*)\.(.+)$/);
my $upload_filehandle = $query->upload('uploadname');
my $tmpFileName = $query->tmpFileName( $upload_filehandle );
print( $tmpFileName );
#取得MD5
my $ctx = Digest::MD5->new;  
$ctx->addfile( $upload_filehandle );
print( $ctx->hexdigest );
perl中抓http页面的方法
2007-04-24
bailing
use HTTP::Request;
use LWP::UserAgent;
my $url = "http://".$PREF{webServer}."/index.php?act=upload&task=checkMd5&md5=".$md5."&id=".$PREF{uploadid};
my $ua = LWP::UserAgent->new;
my $req = new HTTP::Request(GET => $url);
my $resp = $ua->request($req);
my $result = $resp->content();
if ($result eq 'wrong' )
{
  unlock_log_file();
  fatal_error( "不能重复上传同一个文件" );
}
php 运算中变量类型错误提示
2007-04-19
bailing
Cannot use a scalar value as an array
Unsupported operand types
比如你将一个数组放到一个除法表达式里
session过期时间的相关设定
2007-04-16
bailing
session.auto_start 注意这个不要设为1，否则你在程序里就控制不了session的相关参数啦。
session.gc_maxlifetime = 1440;  #默认after this number of seconds, stored ， 24分钟
session.cache_expire = 180;   #這是網頁過期時間設置；
session.gc_probability = 1
session.gc_divisor     = 1000
garbage collection 有个概率的，1/1000就是session 1000次才有一次被回收。
可以设置cookie的生命周期
session.cookie_lifetime = 0  ;默认0是关闭浏览器无效，单位是秒
max_execution_time = 600
max_input_time , 似乎是php从接收到处理数据的时间
While uploading large files, you should also increase the values for max_execution_time  
and max_input_time directives. Else your script will timeout or timeout before being able to
parse the entire input/uploaded data.
给apache2.2加上mod_encoding模块後 php5.2.0 处理url出现bug
2007-04-12
bailing
■ 这个问题是mod_encoding已经先一步处理了url ，而PHP又解了一次
■ 例如
x.php?s=%252B%2F%2B%2F
那么$_GET['s']得到的是
+/ /
urlencode("+") = %2B
urlencode("%2B") = %252B
所以，这个url被decode了两次
第一次是
urldecode( "%252B%2F%2B%2F") = %2B/+/
urldecode( "%2B/+/")   = +/ /
■ 解决办法
修改httpd.conf 将
EncodingEngine    on  
这一段配置移到需要的vitualHost里去，这个不能和php脚本并存。
perl对应php的urlencode和urldecode的函数
2007-04-12
bailing
这样
use URI::Escape;
print "Content-type: text/html;charset=gbk\n\n";
$str = "+ \ /";
$url = uri_escape($str);
print $url;
mysql数据迁移要诀 【Got error 134 from storage engine】
2007-04-12
bailing
■ 将4.0的数据库直接拷贝到4.1的数据目录下
发现在执行sql时有这个错误
Got error 134 from storage engine
改用PMA将数据导出来，再导进4.1，问题解决了。
■ 如果是命令行执行sql来迁移数据那么需要先用 \s查看当前链接的编码
如果是 latin1
那么执行下面的语句
set character_set_client=gbk;
set character_set_connection=gbk;
如果库是utf8的，把gbk换为utf8
linux下安装mod_perl
2007-04-06
bailing
下载mod_perl2.0
解开，进入源目录
#perl Makefile.PL \
USE_APXS=1 \
WITH_APXS=/path/apache2/bin/apxs \
EVERYTHING=1
#make
#make install
如果发现这个错误
请更换你的 CGI.pm
set character_set_client=gbk;
set character_set_connection=gbk;
mod_perl输出的奇怪的http响应头
2007-04-05
bailing
S: xp + apache 2.0.59 + mod_perl2
因为我在代码里连续
print "Cache-Control: no-store, no-cache\n";
print "Content-type: text/html;charset=gbk\n\n";
最终发现是在这之前有这一句， $| = 1; 这是说立刻输出给客户的浏览器，所以2个头部就不能并存啦。
HTTP/1.1 200 OK
Date: Thu, 05 Apr 2007 01:41:33 GMT
Server: Apache/2.0.59 (Win32) PHP/5.2.0 SVN/1.4.2 DAV/2 mod_perl/2.0.3 Perl/v5.8.8
Cache-Control: no-store, no-cache
_1_2eduote_2enet_script_perl_upload_2ecgi;sub handler {local $0 = 'F:
/web/1.duote.net/script/perl/upload.cgi';use warnings;
Keep-Alive: timeout=15, max=95
Connection: Keep-Alive
Transfer-Encoding: chunked
Content-Type: text/plain
1a
Content-type: text/plain
10
328293|3188306|1
0
局域网mysql连接缓慢 skip-name-resolve
2007-04-04
bailing
在[mysqld]下增加一行
skip-name-resolve
发现原来是vmware的虚拟网卡造成的问题，在网络链接里禁用，一切OK.
配置apache 让某目录下所有文件点开都是下载
2007-04-03
bailing
打开mod_headers模块.
    DocumentRoot F:/web/1.duote.net/stored
    ServerName down1.duote.net
    Header append Content-Disposition "attachment;"
AllowOverride All
ForceType application/octet-stream
apache的一个死循环配置问题 [apache 2.0.59]
2007-04-02
bailing
如果你配置虚拟主机指向 f:/a目录 , perl是a的子目录.
并且设定 Alias /perl f:/a/perl , 那么apache会陷入死循环中,迟迟不能返回信息.错误日志中可能会出现
slurp_filename('F:/.........这样的信息
解析url中的get参数为一个对象
2007-04-02
bailing
function parseParams()
{
locationHref = document.location.href;
arr = locationHref.split("?");
if ( typeof(arr[1]) != 'undefined' && arr[1]!='' )
{
  arr[1] = "'"+arr[1]+"'";
  ostr = arr[1].replace(/=/g,"':'");
  ostr = ostr.replace(/&/g,"','");  //alert(ostr);
  eval ( "var po={"+ ostr +"};" );
  return po;
}
return {};
}
ajax document.domain不能用于xmlhttp对象
2007-03-30
bailing
http://johnvey.com/features/deliciousdirector/web-service-broker.html
找到的解释是
document.domain property that is set, but is considered null by the security model until it is set
explicitly.
Unfortunately, XmlHTTPRequest objects are not affected by the document.domain property.
XmlHTTPRequest will only
fetch documents from the originating server. In fact, you have to specify a relative URL, since it
completely ignores
any URL's with a fully-qualified domain name.
我还是死了这条心吧.
winxp下, apache2.0 + mod_perl
2007-03-29
bailing
照着这个来做
http://blog.csdn.net/fzjw/archive/2004/11/03/165856.aspx
apache2.0的用着句
ppm install http://theoryx5.uwinnipeg.ca/ppms/mod_perl-2.0.ppd
OK
如果你有问题,那么继续往下看.
按照mod_perl官方网站说明用它那个自动编译mod_perl.so的脚本编译好mod_perl.so放
入模块的目录
并在apache的配置文件中编辑好配置文件加入：
LoadFile "D:/Perl/bin/perl58.dll"
LoadModule perl_module modules/mod_perl.so
然后发现服务器死活启动不了了
原因是,官方默认的是apache2.2的.
在这里,我们需要用ppm install http://theoryx5.uwinnipeg.ca/ppms/mod_perl-2.0.ppd
由于事先已经装了mod_perl,所以先要卸载它. 否则会报错(
Installing to site area...failed
ppm install failed: File conflict; package mod_perl already provide F:/www/Perl/
site/lib/auto/APR/APR.bs)
执行
ppm uninstall mod_perl
ppm install http://theoryx5.uwinnipeg.ca/ppms/mod_perl-2.0.ppd
上传的疑问,cgi程序退出后apache的cpu为什么还是100% [waiting]
2007-03-27
bailing
【转】PHP 上传文件 进度问题解决(cgi方式下的php)经验证,不可行
2007-03-22
bailing
http://blog.sina.com.cn/u/559964d1010005gh
经验证,不可行,因为无法从stdin获取enctype=multiform-data的数据
需求: web上传文件,想显示精确的上传进度
解决方法:由于php模块会在处理的时候优先获得上传数据,导致代码执行的时候,数据其实已经到了服务端,所以不
能获得精确进度,
所以可以采用,cgi的方式,通过读取原始http数据流,来进行相关处理.
>> CODE
#!c:/php5/php
可以将 totalByte,uploadedByte放到session或者其他方式,
进度条定时刷新获得最新的session值,显示进度
swf的开源项目
2007-03-21
bailing
QPdf2Swf
fla2swf
swf2exe
SHPtoSWFConvertor
SWF2SVG Converter
phpStrobe SWF Generator phpStrobe is an object-oriented PHP library for creating Macromedia Flash
(SWF) movies.
SvgSwf is a PHP-class for converting SVG to SWF.
http://cn.handyarchive.com/free/ppt2swf-sdk/
删除discuz90天未活动会员的sql
2007-03-21
bailing
delete cdb_members , cdb_memberfields  from cdb_members , cdb_memberfields  
where cdb_members.lastvisit+90*86400
[名词解释] Amazon S3 是什么
bailing
http://www.programmableweb.com/api/AmazonS3
Amazon Simple Storage Service (Amazon S3)
Summary Online storage services   
Category Storage   
Tags storage   
Date Reviewed 2006-03-14   
API Home Page http://www.amazon.com/gp/browse.html/103-7232 ...   
Description Amazon S3, the Simple Storage Service is used to store objects using the Amazon online
storage infrastructure. The API is uses Buckets, Objects, Keys and Operations. An object has four
parts: value, key, metadata, and an access control policy. Objects are stored in buckets.   
Pricing
Pay only for what you use. There is no minimum fee, and no start-up cost.
$0.15 per GB-Month of storage used.
$0.20 per GB of data transferred.
GB截屏插件（调EPSnap截屏）
2007-03-18
bailing
解到plugin目录下
打开GreenBrowser 打开菜单里的 工具(T)---扩展工具栏(E)---设置扩展工具栏...
在名称后面写：截屏
在命令后面写：".\Plugin\EPSnap\callSnap.exe"
OK
注意，不要修改默认截屏的快捷键WIN+4的那个。。。
callSnap是我用c++写的，因为我的水平十分之低，搞了半天，接受用户键盘输入还是搞不定，所以，就这样了。
它只会调EPSnap捕捉指定区域，这已经满足了我的要求，因为我的本意就是这样的，鼠标在GB上点一下。
出来捕捉指定区域的画面，然后手工保存到目录。当然，如果你事先设置了EPSnap，也可以默认就保存到一个目
录
。。。。。。
EPSnap是最新的版本 ， 哦也， 2.0.0.1078 。
我用vc开发的，主函数名字是WinMain ， 不知道怎么搞的cin.get()，也出不来接受用户输入的框，getchar也不
行。:L
这是我用vc写的第一个应用程序，读大学的时候我用汇编写过一个工具破解还原卡的，哈哈，现在想起来还是很
得意。
哈哈。。。。其实程序没啥，就是我想起来的时候，就得意啊，唉，得意的笑啊。呵呵，哈哈。这个程序从昨天
上午开始
VC初步，到现在终于完工了。哦也，老夫也要睡去了也。
c++错误详解
2007-03-18
bailing
E: nexpected end of file while looking for precompiled header directive
A: 这通常是因为类的实现文件没有包含stdafx.h，而MFC工程的默认配置在文件不包含这一行的时候报错   
  解决的方法是在工程选项不使用或者自动使用预编译头文件，或者修改类的实现文件以包含stdafx.h  
vc sp6 中英文和补丁下载地址
2007-03-18
bailing
按BuildStop都没反应了
[SP6的补丁打了没 一般打了都没事了]
vc sp6 中英文和补丁下载地址
下载 VC6 SP6，
下载 VC6 SP6，
英文版地址：
http://download.microsoft.com/download/1/9/f/19fe4660-5792-4683-99e0-8d48c22eed74/Vs6sp6.exe
简体中文版地址：
http://download.microsoft.com/download/e/c/9/ec94a5d4-d0cf-4484-8b7a-21802f497309/Vs6sp6.exe
这还有个“Visual.C++.6.0.with.SP6.大企龙卷风集成安装版”
下载地址：
http://5.51ct.cn/uuauth/VC++.6.0.with.SP6.rar  
【转】c++ 如何在一个进程中判断另一个进程是否运行？
2007-03-17
bailing
原帖讨论
http://topic.csdn.net/t/20020530/12/764600.html
#include  
DWORD   GetProcessIdFromName(LPCTSTR   name)   
  {   
      PROCESSENTRY32   pe;   
  DWORD   id   =   0;   
  HANDLE   hSnapshot   =   CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);   
  pe.dwSize   =   sizeof(PROCESSENTRY32);   
  if(   !Process32First(hSnapshot,&pe)   )   
  return   0;   
  while(1)   
  {   
  pe.dwSize   =   sizeof(PROCESSENTRY32);   
  if(   Process32Next(hSnapshot,&pe)==FALSE   )   
  break;   
  if(strcmp(pe.szExeFile,name)   ==   0)   
  {   
  id   =   pe.th32ProcessID;   
  break;   
  }   
   
  };   
  CloseHandle(hSnapshot);   
  return   id;   
  }   
  GetProcessIdFromName("agent.exe") //如果不为0就存在
正好我刚碰到这个问题，也是用::FindWindow解决的。   
FindWindow有2个参数，前面一个是类名，后面一个是窗口title，如果你的agent.exe的窗口title确定不变的话
，
可以使用第二个参数，类名给NULL。如果窗口title是随机变化的（比如记事本就可能是“无标题－记事本”，
“编辑1－记事本”),可以通过类名来判断，窗口tilte给NULL好了。类名可以运行spy++，里面有个FindWindow的
工具
，把里面的图标拖到你的agent.exe的窗口上就可以知道类名了,希望能够帮助到你。
下面这个适用于EPSnap.exe是自己写的程序，并且也要加上CreateMutex的代码。
int test_epsnap()
{
  HANDLE   m_handle   =   CreateMutex(NULL,   FALSE,   "EPSnap.exe");   
  if(GetLastError()   ==   ERROR_ALREADY_EXISTS)   
  {   
cout   
可以用GetModuleHandle()如无你找的进程，返回为空，如果有返回一个地址。
HMODULE   GetModuleHandle(PCTSTR   pszModule)函数处理。   
pszModule就是可执行文件或dll文件的名字，返回就是加载到进程的基地址。如果设定此参数为NULL,   
返回的就是可执行文件的基地址了。   
注意:可执行文件映像的基地址与可执行文件的基地址的区别.   
GetModuleHandle函数的两个重要特性   
1.如果调用进程不使用常用的对话框函数,那么调用GetModuleHandle并为它传递:ComDlg32”后,就会返回NULL,  
尽管ComDlg32.dll可能加载到了其它进程的地址空间.   
2．如果GetModuleHandle(NULL)在dll中调用，返回的也是可执行文件的基地址，而不是DLL文件的基地址.
下面是得到一个进程的所有模块的全路径的代码。
  BOOL   EnumProcess(DWORD   dwPID,   LPCSTR   ExeName)   
  {   
          BOOL   bRet;   
          char   *File;   
          char   buf[512];   
          HANDLE   hModuleSnap;   
          MODULEENTRY32   me32;   
   
          bRet   =   FALSE;   
          hModuleSnap   =   CreateToolhelp32Snapshot(   
                    TH32CS_SNAPMODULE,   dwPID);   
          if   (hModuleSnap   ==   (HANDLE)-1)   
                  return   FALSE;   
          memset(&me32,   0,   sizeof(me32));   
          me32.dwSize   =   sizeof(MODULEENTRY32);   
          if   (Module32First(hModuleSnap,&me32))   {   
                  do   {   
                          GetFullPathName(me32.szExePath,   
                                  sizeof(buf),   buf,   &File);   
                          if   (strcmpi(ExeName,buf)==0)   {   
                                  bRet   =   TRUE;     break;   
                          }   
                  }   
                  while(Module32Next(hModuleSnap,   &me32));   
          }   
          CloseHandle(hModuleSnap);     return   bRet;   
  }  
配置tortoiseSVN的merg工具
2007-03-16
bailing
settings
d:\p\KDiff3\kdiff3.exe %base %mine %theirs -o %merged --L1 Base --L2 Mine --L3 Theirs
d:\p\KDiff3\kdiff3.exe %base %mine  --L1 Base --L2 Mine
D:\p\IDM Computer Solutions\UltraCompare\uc.exe -3 -o %base %mine %theirs %merged
D:\p\IDM Computer Solutions\UltraCompare\uc.exe -qc %base %mine
ie不正常,于是用超级兔子IE修复专家重装了下IE
2007-03-15
bailing
RT
于是好了,哦也
SVN仓库搬位置了，本地的working copy怎么办
2007-03-13
bailing
使用relocate命令即可，tortoiseSVN的relocate。
authz中Option和option的具体定义之间必须有空行,如
[/]
chenchao = rw
一个慢sql
2007-03-08
bailing
mysql> update new_song,new_album set new_song.albumId = new_album.id
    -> where new_song.album=new_album.title
    -> ;
Query OK, 84392 rows affected (3 hours 53 min 13.53 sec)
Rows matched: 84392  Changed: 84392  Warnings: 0
Windows2003 , 2G内存。CPU占用始终在25%，这大概是系统默认给每个程序分配的最高限额了。
弥补php上传的缺陷，这么多 perl upload程序，我们选哪个？
2007-03-08
bailing
最早的似乎是mega upload，2004年停止了开发，它的最新版有一个致命bug，不过我修补了它。
最无耻的是tesupload，同样是开源项目，直接照抄mega upload , 重新组织修改了外围的界面
它照搬mega upload， 所以和mega upload有一个同样致命的bug.
最简单是？呵呵，网上找到一段不带进度条的程序，只是它直接上传，没有进行限制cpu时间的处理
所以局域网传大文件时，服务器CPU占用100%从上传开始直到上传结束.
最好的是ajaxupload.cgi? http://encodable.com/tech/ajaxupload/，带进度条，虽然没有
限制cpu时间，可是改起来也很简单。
还有在sourceforge.net下载量也比较大的XUpload，同样没有限制cpu时间的处理，改起来比较麻烦。
(perl不是咱的专业啊！)，还有Uber-Uploader，这个看起来代码比较的复杂。就不看了。
总结
ajaxupload从界面上，代码质量上都令我十分满意，虽然perl不是咱的专业，但是如果有用到，就难免
会有修改的需求，呵呵，挑个好的免费的东东，不容易啊。
修改下ajaxupload,限制上传速度
ajaxupload不限制上传速度，所以高速上传时cpu占用会狂高，必须加上限制，不然多用户就没法用了。
修改hook函数，大概在270行附近(由于我调试源码，做了很多删删改改，所以位置不能精确)
在 flock $logfh, 8; # release the lock 下增加一行        
select( undef, undef, undef , 0.001 ); #sleep to reduce the cpu's usage
我本地测试，这样速度就限制为0.2MB/S了。这是借鉴megaupload的，mega的最后一个参数是0.35，太大了
实际本地测试时，这样的速度就太慢了。不过0.001不能再小了，再小就等于没限制了。我也可能扩充下mega
,毕竟ajax进度条对我而言，没啥难的。
megaupload的补丁
很简单，你打开upload.cgi找到open(STDIN.....在上面加上一行，close(STDIN);
简单吧，老夫在CGI.pm(250K)里追，把perl语言入门以及其他几本手册差不多翻了个遍，每天在google,baidu
海搜，最终柳暗花明，得到了这个结果。
不带进度条，不带速度限制，单纯上传大文件的
http://blog.hxxsh.com/user1/fjlh/archives/2006/10841.shtml
mysql_escape_string的bug 運
2007-03-07
bailing
mysql_escape_string('運');
会被转义为末尾多一个 \
[perl初级技巧]如何捕捉perl程序exception,将perl错误输出到浏览器,以及其他经验
2007-03-07
bailing
将perl的错误输出到浏览器，添加如下代码即可：
use CGI::Carp qw(fatalsToBrowser);
print CGI::header(); #注意这句，必须有，否则输出500，你就看不到错误拉
那不用Carp包呢
来自[http://www.extmail.com.cn/blog/arch/perl/]
Perl 提供了%SIG 这个特殊的HASH，通过定义信号响应函数，可以捕捉die及一些warning的信息，
并将这些信息打印到web页上。但为了尽可能早的加载这些代码，最好将信号捕捉代码放到BEGIN块中
，这样就能保证程序一执行就先执行异常捕捉这段代码了。
BEGIN {
# fatal handler setting.
$SIG{__DIE__} = $SIG{__WARN__} = \&some_func;
}
sub handler_fatal {
print "Content-type: text/html\n\n";
print "@_";
}
=========安装perl模块
cmd下键入 ppm , 会打开perl package manager
perl -MCPAN -e "install CGI"，直接安装CGI模块
=========tempfile()函数的用法
#!F:/www/Perl/bin/perl.exe -w
use File::Temp qw/ tempfile tempdir /;
my %options = (
"DIR"    => "F:\\web\\www.duote.net\\tmp",  # Directory prefix
"SUFFIX" => '___upload.tmp',     # Template suffix
"UNLINK" => 0,      # Do not unlink file on exit
"OPEN"   => 1,      # Open file
);
($tmp_fh, $tmp_filename) = tempfile( %options );
print "$tmp_filename";
#默认的临时文件位置对于windowsXP是C:\Documents and Settings\用户名\Local Settings\Temp
#SUFFIX是放置后面的如上例一个可能的文件名为 yrGrs0klWk___upload.tmp
===============创建多级目录
use File::Path;
print "Error: 创建目录失败" unless mkpath "F:/web/tmp/".$folder;
=========perl创建文件 /文件名 ,文件被放在了哪?[windowsXP]
在你的脚本所在的分区根目录下.
============为什么http头部会出来这个东西
GLOB(0x27512c)xxx
如果你 print $ab{fh} , "xxx";
那么就会出现类似的这个东西...
===========Global symbol "$PREF_logfh" requires explicit package name
使用了use strict;后,如果你没定义就使用变量,那么会出这个错.
=========== Can't find string terminator '"' anywhere before EOF
=========== Unmatched right curly bracket at /opt/case/duote.net/script/perl/t_upload.cgi line 345,
在脚本的最后加上 __END__;  就好了
=========== Can't locate Apache/RequestRec.pm in @INC
我已经把其他目录下的Apache2拷贝到了Lib目录下，还是不行，最后把CGI.pm换到了最新的版本，这个错误就没了。
对比发现是包含Apache处理模块时，两个CGI.pm不同，一个是包含Apache::RequestRec.pm 一个是包含Apache2::RequestRec.pm
=========== Global symbol "$ctx" requires explicit package name
因为$ctx定义在一个 unless {}覆盖的范围里，所以，在unless覆盖的范围之外，就会提示这个错误
错误的脚本类似于
unless()
{
$ctx = ...;
}
print $ctx;
perl错误详解 [unfinished]
2007-03-04
bailing
E,代表Error, A, 代表正确Answer , OA, 代表其他回答 , S , 代表Source，发生的环境
E: Bareword found where operator expected at ...
A: 在脚本输出前加上 print "Content-type: text/html; charset=gbk\n\n";
E: Premature end of script headers
A: 1）perl 解释器路径不对
2）文件的权限不对
3）CGI中有语法错误
E: syntax error
A: 1)perl是大小写敏感的， 把print写成Print，会报这个错。
E: Undefined subroutine CGI::Print
A: 把print写成了Print报此错误
E: 把php放到cgi所在的目录中，通过web访问，则会出现500 internal server errors
A: 此种问题在于apache已经把cgi-bin作为ScriptAlias来处理了，那么如果要运行，只有在要运行
的脚本前加上php的解释路径
E: CGI.pm: Server closed socket during multipart read (client aborted?).
S: 发生在用MegaUpload上传文件时,但是传小文件（小于等于3706bytes，大概4KB附近）时，却正常执行下去了
。
A: 原因从这里开始[upload.cgi]

open( STDIN , "$post_data_file" ) or die "can't open temp file";
my $cg = new CGI();
  
这里，将post_data_file作为默认的输入，CGI的read_from_client函数会从STDIN读取提交的http包，
然而对于      这里读到的，凡是\n均被复制了，所以包的长度不正确，结构数据也不正确，所以就会返回
malformed multipart POST      这个错误，因为STDIN默认是文本模式？我尝试用binmode STDIN;
无效。在open STDIN前加上 close( STDIN );天下太平

close( STDIN );
open( STDIN , "$post_data_file" ) or die "can't open temp file";
my $cg = new CGI();


以下代码保留，尽管解决方法错了，代码还是有留存的价值的。

print TMP "POST $ENV{'REQUEST_URI'} $ENV{'SERVER_PROTOCOL'}\r\n";
print TMP "Accept-Language: $ENV{'HTTP_ACCEPT_LANGUAGE'}\r\n";
print TMP "Content-Type: $ENV{'CONTENT_TYPE'}\r\n";
print TMP "User-Agent: $ENV{'HTTP_USER_AGENT'}\r\n";
print TMP "Host: $ENV{'HTTP_HOST'}\r\n";
print TMP "Content-Length: $ENV{'CONTENT_LENGTH'}\r\n";
print TMP "Connection: $ENV{'HTTP_CONNECTION'}\r\n";
print TMP "\r\n";

OA: http://www.globalmoxie.com/cgi-bin/forums/ultimatebb.cgi?ubb=get_topic;f=1;t=000451 这里说去掉
perl的-w参数就好了。 (呵呵，搞笑)
it means:
*CGI.pm and Perl v5.6.0 could not read a POSTed multipart stream satisfactorily producing the
error "CGI.pm: Server closed socket during multipart read (client aborted?)". This is
apparently
a known problem fixed by migrating to Perl 5.6.1 (or later) and it's CGI.pm. *
这个人说5.6.1或更高版本的perl已经解决了这个问题，但是，我的是v5.8.8的[perl -version],CGI.pm也是
最新的。

E: encrypt.cgi did not return a true value at upload.cgi line 63.
S: 发生在upload.cgi中require("encrypt.cgi")时.
A: 在encrypt.cgi的开头加上这一句 $|=1; #意为句柄不缓冲
E: malformed header from script. Bad header=
S: print "Cache-Control: no-store, no-cache\n"; #mod_perl下运行异常
    print "Content-type: text/html;charset=gbk\n\n"; #环境,winxp+apache2.0.59+mod_perl2.0
A:
一句话技巧 [unfinished]
2007-03-02
bailing
－ 我一直在editplus中使用默认的courier new 9号字体，但是里面的汉字为了和英文字符等宽
，被拉宽至两个英文字符宽度，看起来非常别扭,后来发现只要在字体设置中把language选项设成
非Western中的任意一个，中文字体就不会拉宽了。
－ 将perl的错误输出到浏览器，在脚本开头添加如下代码即可：
use CGI::Carp qw(fatalsToBrowser);
print CGI::header(); #注意这句，必须有，否则输出500，你就看不到错误拉
--  获取mysql表结构的sql
mysql
-- 调试Perl脚本时，在print 输出utf-8字符时，日志里会产生大量的
"Wide character in print at line ..." 警告信息，比较烦。
binmode(STDOUT, ':encoding(utf8)');将这句加到所有代码之前即可
-- 测试cgi方式运行php的脚本时出错, 打开apache的error日志,Security Alert! The PHP CGI cannot
be accessed directly.
解决方法,修改php.ini, cgi.force_redirect = 0
-- 以cgi方式运行php程序,很简单,如果你已经能以cgi方式运行perl,程序,那么只需要将如下代码保存为
test.cgi,丢入你的cgi目录就可以了.
#!F:/www/php/php-cgi.exe -q
-- cuteftp错误 226 Output truncated to 10000 matches
ftp服务器对目录列表的最大数目做了限制。
-- secureCRT和secureFX集成使用时， connect按钮灰色。
Options->Connection->Protocol
Terminal,选SSH2
File , 选SFTP
[subversion] 不能打开文件“.svn\entries”: 系统找不到指定的路径。
2007-03-02
bailing
-m 选项单引号中不可有空格，双引号则无所谓
正确的
svn commit -m "day day update" f:\web\unionduote.com
svn commit -m 'day' f:\web\unionduote.com
svn commit -m "day" f:\web\unionduote.com
错误的
svn commit -m 'day day update' f:\web\unionduote.com
错误提示：
svn: “.”不是工作拷贝
svn: 不能打开文件“.svn\entries”: 系统找不到指定的路径。
[tortoise error]please get a newer Subversion client
2007-03-02
bailing
今天用命令行更新版本库，结果，发现本地的拷贝上的Tortoise覆盖图标全部消失了。
进入此拷贝下一个空目录，尝试checkout，出来这个错误
Error: This client is too old to work with working copy
'F:\web\www.duote.com\log'; please get a newer Subversion client
查了下有如下一段解释。
rocksun
你的情况很特殊，我在TortoiseSVN网站看到这个问题的说明，不过你的情况可能说明1.4之后工作拷贝的格式又
发生了变化，你最好再下载最新的SVN看看，我想TSVN总不会比SVN还要早吧。
Subversion 1.4 uses a new format for the working copy. The update is done automatically, you won't
even notice it. But once the working copy has been updated, you won't be able to access it with
clients linked to older versions of the Subversion library.
Due to the upgrade process to the new working copy format, you might run into slight problems with
the overlays not showing up or not showing the correct status. Just run update or cleanup on your
working copy to get the overlay icons back to normal.
Older clients and servers interoperate transparently with 1.4 servers and clients. Of course, some
of the new 1.4 features may not be available unless both client and server are the latest version.
There is no need to upgrade your repositories;
If you access a BDB repository using file:// access you will need to update that repository to BDB
4.3 format. But this is only necessary if you're upgrading from a TortoiseSVN version before 1.2.
Instructions on how to do that can be found on the Subversion FAQ page
原因是subversion版本是1.4而tortoise的版本是1.3
下载最新的tortoise，安装了下，OK了。
小图标不见了，我的心慌慌的啊，呵呵。overlay
tortoise,error,newer,Subversion,client

本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/14107/showart_309334.html