-
Notifications
You must be signed in to change notification settings - Fork 6
/
xdm.pl
27 lines (20 loc) · 732 Bytes
/
xdm.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#!/usr/bin/perl -w
use strict;
use warnings;
use WWW::Mechanize;
use Net::INET6Glue::INET_is_INET6; #ipv6 支持
my $mech = WWW::Mechanize->new( autocheck => 1 );
my $lzt_file;
open(lzt_file,">cache/maillist.html");
# first, we should login
$mech->get('https://accounts.google.com/ServiceLogin');
$mech->submit_form(
fields => {
Email => '[email protected]', # your email, google account
Passwd => 'passwd', # your password, please not be 'yyy'
}
);
$mech->get('http://groups.google.com/group/xidian_linux/topics?gvc=1');
$mech->follow_link( n => 1); #如果ipv6 的话 这个就不需要了。
print lzt_file ($mech->content);
close(lzt_file);