如何用perl写个查询下面网站并且得到信息?

xiaomm250

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

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

网址见下楼

xiaomm250

http://jzsc.mohurd.gov.cn/dataservice/query/staff/list

这个是需要被查询的网址

xiaomm250

1. http://jzsc.mohurd.gov.cn/dataservice/query/staff/list

复制代码

这个是需要被查询的网址

xiaomm250

1. jzsc.mohurd.gov.cn/dataservice/query/staff/list

复制代码

这个是需要被查询的网址

zhouzhen1

这种用Mojo::DOM来做会比较简单。结合Mojo::DOM可以用Mojo::UserAgent而非LWP。

xiaomm250

回复 5# zhouzhen1

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

asthman

练练手

1. use Mojo::UserAgent;
   
2. 
   
3. my $ua = Mojo::UserAgent->new();
   
4. $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');
   
5. 
   
6. my $url = "http://jzsc.mohurd.gov.cn/dataservice/query/staff/list";
   
7. 
   
8. my $dom = $ua->get($url)->result->dom;
   
9. 
   
10. my $table = $dom->find('div[class="mtop"] table')->first;
    
11. 
    
12. for my $tr ( @{$table->find('tr')} ) {
    
13.     if ( $tr->at('td:nth-child(5)') ) {
    
14.         my $num = $tr->at('td:nth-child(5)')->text;
    
15.         $num =~ s{^\s+|\s+$}{}g;
    
16.         print $num, "\n";
    
17.     }
    
18. }

复制代码

asthman

1. use Mojo::UserAgent;
   
2. 
   
3. my $ua = Mojo::UserAgent->new();
   
4. $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');
   
5. 
   
6. my $url = "http://jzsc.mohurd.gov.cn/dataservice/query/staff/list";
   
7. 
   
8. my $dom = $ua->get($url)->result->dom;
   
9. 
   
10. my $table = $dom->find('div[class="mtop"] table')->first;
    
11. 
    
12. for my $tr ( @{$table->find('tr')} ) {
    
13.     if ( $tr->at('td:nth-child(5)') ) {
    
14.         my $num = $tr->at('td:nth-child(5)')->text;
    
15.         $num =~ s{^\s+|\s+$}{}g;
    
16.         print $num, "\n";
    
17.     }
    
18. }

复制代码

523066680

回复 6# xiaomm250

Mojo::DOM 官网
https://mojolicious.org/perldoc/Mojo/DOM

Mojo::UserAgent 和 Mojo::DOM 示例
[Perl]批量爬取ZOL车模壁纸
Mojo::UserAgent 批量获取 nes 游戏资源