免费注册
查看新帖 |

Chinaunix

  平台 黑桃棋牌官方网下载 博客 文库
最近访问板块 发新帖
查看: 8208 | 回复: 8

黑桃棋牌官方网下载徽章:
0
发表于 2019-04-22 13:44 |显示全部楼层
本帖最后由 xiaomm250 于 2019-04-22 13:51 编辑

网址是jzsc.mohurd.gov.cn/dataservice/query/staff/list

比如查询“张三”,
然后得到
“B06120001146”,总之是这列的就可以了。
请问用perl应该如何写?

网址见下楼




QQ截图20190420113807.png

黑桃棋牌官方网下载徽章:
0
发表于 2019-04-22 13:45 |显示全部楼层
  1. http://jzsc.mohurd.gov.cn/dataservice/query/staff/list
复制代码

这个是需要被查询的网址

黑桃棋牌官方网下载徽章:
0
发表于 2019-04-22 13:46 |显示全部楼层
  1. jzsc.mohurd.gov.cn/dataservice/query/staff/list
复制代码

这个是需要被查询的网址

黑桃棋牌官方网下载徽章:
0
发表于 2019-05-05 23:53 |显示全部楼层
这种用Mojo::DOM来做会比较简单。结合Mojo::DOM可以用Mojo::UserAgent而非LWP。

黑桃棋牌官方网下载徽章:
0
发表于 2019-05-06 15:14 |显示全部楼层
回复 5# zhouzhen1

代码?或者参考代码有吗?

黑桃棋牌官方网下载徽章:
0
发表于 2019-05-15 14:01 |显示全部楼层
练练手

  1. use Mojo::UserAgent;

  2. my $ua = Mojo::UserAgent->new();
  3. $ua->transactor->name('Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.131 Safari/537.36');

  4. my $url = "http://jzsc.mohurd.gov.cn/dataservice/query/staff/list";

  5. my $dom = $ua->get($url)->result->dom;

  6. my $table = $dom->find('div[class="mtop"] table')->first;

  7. for my $tr ( @{$table->find('tr')} ) {
  8.     if ( $tr->at('td:nth-child(5)') ) {
  9.         my $num = $tr->at('td:nth-child(5)')->text;
  10.         $num =~ s{^\s+|\s+$}{}g;
  11.         print $num, "\n";
  12.     }
  13. }
复制代码

评分

参与人数 2信誉积分 +15 收起 理由
+ 10
很给力!
+ 5
Mojo好用

查看全部评分

黑桃棋牌官方网下载徽章:
0
发表于 2019-05-15 14:01 |显示全部楼层
  1. use Mojo::UserAgent;

  2. my $ua = Mojo::UserAgent->new();
  3. $ua->transactor->name('Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.131 Safari/537.36');

  4. my $url = "http://jzsc.mohurd.gov.cn/dataservice/query/staff/list";

  5. my $dom = $ua->get($url)->result->dom;

  6. my $table = $dom->find('div[class="mtop"] table')->first;

  7. for my $tr ( @{$table->find('tr')} ) {
  8.     if ( $tr->at('td:nth-child(5)') ) {
  9.         my $num = $tr->at('td:nth-child(5)')->text;
  10.         $num =~ s{^\s+|\s+$}{}g;
  11.         print $num, "\n";
  12.     }
  13. }
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

如何用perl写个查询下面网站并且得到信息? - Perl-Chinaunix
DTCC2020中国数据库技术大会 限时8.5折

【架构革新 高效可控】2020年6月4日~6日第十一届中国数据库技术大会将在北京隆重召开。

大会设置2大主会场,20+技术专场,将邀请超百位行业专家,重点围绕数据架构、AI与大数据、传统企业数据库实践和国产开源数据库等内容展开分享和探讨,为广大数据领域从业人士提供一场年度盛会和交流平台。

http://dtcc.it168.com


大会官网>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP