perl LWP
http://www.molecular-networks.com/online_demos/corina_demo.html 这个网址是提交小分子的化学式（N[C@@H](C)C(=O)O）后能生成 3D 结构，因需要生成很多的小分子3D结构，想写程序生成，望高手指点！ 提交后会跳转到页面 http://www.molecular-networks.com/cgi-bin/corina/gen3dmolnet.tcl?smiles=N%5BC@@H%5D%28C%29C%28%3DO%29O&resultname=L-alanine 然后到页面 http://www.molecular-networks.com/tmp/corina000AnNYWn.h...
怎樣可得分開他...抓出來 #!/usr/bin/perl -w use lwp::Simple; $url = 'http://genware.com.tw/bbs/viewtopic.php?p=2399&sid=800638bd024f058a9fd8951c53c33cad'; my $info = get $url; if ($info =~ /(_info.php.*flash=8)/s) {$out = $1 ;} ##^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ print "$out\n"; 如output 是這樣. _info.php?id=6889&flash=8" target="_blank">http://www.flurl.com/flvplayer2.s wf...
代码如下: #!/usr/bin/perl use lwp::Simple; use HTML::Parse; use HTML::Element; use URI::URL; print "Content-type: text/html; charset=GB2312\n\n"; $ARGV[0]="http://www.sun126.com"; $html = get $ARGV[0]; $parsed_html = HTML::Parse::parse_html($html); for (@{ $parsed_html->extract_links((a)) }) {$i++; $link = $_->[0]; $url = new URI::URL $link; $full_url = $url->abs($ARGV...
好像我要实现自动登陆了phpMyAdmin之类的？我看到有$ua->requests_redirectable与$ua->redirect_ok就不知道如何使用？ phpMyAdmin是先进setcookie再redirect本身，最后才进行登陆校正！用curl就比较差，用wget就可以自动处理。如何用perl实现 wget中的302处理功能了？
自己没事做个抓天气预报的东西，似乎用perl可以，用python返回不对，本来就是想着那个能完成用那个完成，自己用的，以前做linux其他的东西的时候简单看了点perl，感觉不如python舒服，太乱，准备以后用python。结果似乎perl实现的更好点，不清楚原因在那里 perl的 #!/usr/bin/perl -w # use lwp::Simple; use lwp::UserAgent; use strict; my $ua = new lwp::UserAgent; $ua->timeout(120); my $url='http://www.t7online.com/cgi...
