作者starskgb (Metal)
看板perl
标题[问题] 不知从何debug起
时间Mon Jun 18 22:22:08 2007
这是一个接收cookie资料用的程式码
-----------------------------------------------------------------
#!c:\perl\bin\perl.exe
import os
import sys
import cgi
import datetime
if __name__ == "__main__":
log=[]
log.append(str(datetime.datetime.today()))
# get the cookie from url?c=asdf
form = cgi.FieldStorage()
if form.has_key("c"):
log.append(form["c"].value)
else:
log.append()
# get some request info
log.append(str(os.environ['REMOTE_ADDR']))
log.append(str(os.environ['HTTP_REFERER']))
log.append(str(os.environ['HTTP_USER_AGENT']))
# save the log array
f = os.open("cookielog.txt",os.O_APPEND|os.O_WRONLY)
os.write(f,",".join(log)+"\r\n")
os.close(f)
# write response
sys.stdout.write("Content-Type: image/gif\r\n\r\n")
pixel = os.open("../images/pixel.gif",os.O_RDONLY)
sys.stdout.write(os.read(pixel,1000))
os.close(pixel)
sys.stdout.flush()
-------------------------------------------------
因为我没学过perl,这是网路上找到的sample code
当我的cgi server要接受资料执行到这只程式时server的log档就出现一堆错误了
为了研究cookie资料可以被人用到何种程度而需要用到这程式
希望有人能帮我debug~~感激不尽
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.123.107.6
※ 编辑: starskgb 来自: 140.123.107.6 (06/18 22:23)
1F:→ DarkKiller:这明明是 python code... 06/18 23:44
2F:推 imce:我...怎麽觉得这个不是perl写的,有点像.....java 06/18 23:44
3F:→ jlovet:python...... 06/19 00:01
4F:推 LiloHuang:.py 06/19 02:02
5F:→ qrtt1:python, perl 傻傻分不清楚 :P 06/19 02:14
6F:推 starskgb:囧兴,因为档名是cgi,我对这类语言完全外行=.=" 06/19 03:12
7F:→ starskgb:那要让它在网页上跑,还是用perl.exe吗??code第一行 06/19 03:16
8F:→ starskgb:我是用appserv+activeperl 06/19 03:17
9F:推 LiloHuang:你需要装ActivePython 然後副档名改.py 06/19 03:51
10F:→ starskgb:可以work了,感谢 06/19 17:41