免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 6789 | 回复: 11
打印 上一主题 下一主题

如何实现perl和web交互 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2003-02-09 15:12 |只看该作者 |倒序浏览
一个小程序想实现当条件满足时登陆该WEB输入相应信息并提交,然后判断成功与否并发mail给相关人员,请问用perl如何做?

论坛徽章:
1
荣誉会员
日期:2011-11-23 16:44:17
2 [报告]
发表于 2003-02-09 20:06 |只看该作者

如何实现perl和web交互

1.取得GET或POST的參數...
2.從GET或POST的參數與環境變數或Cookie中,取得Client的一些資訊,
3.判斷這些條件是否符合,不符合就直接die..或看你要做什麼(寫Emai
  l通知管理員....)
4.條件符合的話,就繼續做你原本要做的事情。然後輸出html檔案..

论坛徽章:
0
3 [报告]
发表于 2003-02-10 08:46 |只看该作者

如何实现perl和web交互

如果知道使用CGI模块的话,连POST和GET方式的检测都可以省略。

论坛徽章:
0
4 [报告]
发表于 2003-02-11 01:18 |只看该作者

如何实现perl和web交互

感觉是要写一个 formmail 而不是自动提交信息给 web

论坛徽章:
1
荣誉会员
日期:2011-11-23 16:44:17
5 [报告]
发表于 2003-02-11 08:19 |只看该作者

如何实现perl和web交互

就算是form mail,其實也是一樣的寫法...只是form在submit的時候,
只用POST的方式,後端接個Smtp、Mail::Sender等等發信的module..
perl script一樣要判斷那些argument 是不是合理...在我們公司是跟LDAP
作身份的確認....通過的話,就發Email..沒通過的話,就告訴他input錯誤..

论坛徽章:
0
6 [报告]
发表于 2003-02-12 09:24 |只看该作者

如何实现perl和web交互

整个过程是自动的,就是说自动打开WEB,输出事先准备好的数据,然后根据WEB的返回结果决定是统治MAIL到相关人员还是退出.

论坛徽章:
0
7 [报告]
发表于 2003-02-12 09:38 |只看该作者

如何实现perl和web交互

[quote]原帖由 "liluo"]整个过程是自动的......[/quote 发表:


自动打开web?真的不明白你要做什么,如全自动那打开web有必要吗?

论坛徽章:
0
8 [报告]
发表于 2003-02-12 13:31 |只看该作者

如何实现perl和web交互

说的不清楚?
目的:
能有这样一个程序,每天早上8点打开www.test.com主页,在用户名/密码栏里输入相应信息,然后按submit提交,如果成功则发mail 到指定用户。

论坛徽章:
1
荣誉会员
日期:2011-11-23 16:44:17
9 [报告]
发表于 2003-02-12 14:11 |只看该作者

如何实现perl和web交互

所以你是要simulate整個Client輸入id/passwd的過程,
然後決定是否通過..???

如果是這樣的話,你直接找到www.test.com那個輸入id/passwd
的form...然後看一下他的action是哪裡...
例如:
<form name="form1" method="OST" action="/aaa/bbb/ccc.pl">;
<input type=text name="id">;
<input type=text name="passwd">;
</form>;

現在我們知道這個form實際上是用Post method將資料送至
/aaa/bbb/ccc.pl....
一般的CGI都可以同時接受POST與GET的方式..
以下說明以GET的方式送data給CGI程序...
所以,你用perl...開啟一個socket
首先連至www.test.com的port 80....

送出GET /aaa/bbb/ccc.pl?id=XXX&amp;passwd=YYYY
XXX、YYYY必須是合法的帳號密碼..因為會出現在apache的log中,
所以儘量用測試的帳號...不要用正式的..

抓取所有的回傳值(照理講會是一堆html格式的回傳值),
找出錯誤發生時,應該會有什麼樣的回傳值,
利用=~m去匹配結果,如果發現有錯誤的話,
就啟動發送Email的module..
通知root去處理....
over...
請自行測試...謝謝...

论坛徽章:
0
10 [报告]
发表于 2003-02-12 17:04 |只看该作者

如何实现perl和web交互

你的意思明白了,你可以使用Net::LWP模块实现,无须打开一个浏览器

就是 apile 的做法
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP