while +next 循环回到循环顶端

my $show_tip = 1;

sub login {

    while (1) {

        my $api ="https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=$uuid&tip=$show_tip&r=-$now&_=$now";

        my $response = $ua->get($api);

		print "1--\$show_tip is $show_tip\n";

		print "2--\$api is $api\n";

		sleep (2);

        $ua->default_headers;

        if ( $response->is_success ) {

            $r = $response->decoded_content;

            print "\$r is $r\n";

            next unless defined $r;

            my %data = $r =~ /window\.(.+?)=(.+?);/g;

            if ( $data{code} == 201 ) {

                print"手机微信扫码成功，请在手机微信上点击 [登录] 按钮...\n";

                $show_tip = 0;

				##回到循环顶部,此时请求的url是"https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=$uuid&tip=$show_tip&r=-$now&_=$now";

                next;

            }

            elsif ( $data{code} == 200 ) {

                print "正在进行登录...\n";

                foreach ($r) {

                    if ( $_ =~ /window.redirect_uri="(.*?)"/ )

					   {

                        $api = $1;

                        print "\$api is $api\n";

                        my $response = $ua->get($api);

                        $ua->default_headers;

                      }

                }

				};

                    if ( $api =~ /https\:\/\/wx\.qq\.com\/cgi\-bin\/mmwebwx-bin\/webwxnewloginpage\?ticket=(.*?)\&uuid=(.*?)\&lang=(.*?)\&scan=(.*)/

                      )

                    {

                        print "\$1 is $1\n";

                        print "\$2 is $2\n";

                        print "\$3 is $3\n";

                        print "\$4 is $4\n";

                        $ticket=$1;

                        $user = $4;

                        print "\$user is $user\n";

                        return 1;

                    }

					}

            else {

                die $response->status_line;

            }

        }

	};

centos6.5:/root/mojo#perl scan.pl

window.QRLogin.code = 200; window.QRLogin.uuid = "gduih3Nyww==";

$uuid is gduih3Nyww==

登录二维码已经下载到本地 [ /tmp/weixin_qrcode_bYwp.jpg ]

1--$show_tip is 1

2--$api is https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=gduih3Nyww==&tip=1&r=-1479440494&_=1479440494

$r is window.code=201;window.userAvatar = 'data:img/jpg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDABQODxIPDRQSEBIXFRQYHjIhHhwcHj0sLiQySUBMS0dARkVQWnNiUFVtVkVGZIhlbXd7gYKBTmCNl4x9lnN+gXz/2wBDARUXFx4aHjshITt8U0ZTfHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHz/wAARCACEAIQDASIAAhEBAxEB/8QAGgAAAgMBAQAAAAAAAAAAAAAAAAIBAwQFBv/EADMQAAICAQMCBQIEBQUBAAAAAAABAhEDBBIhMUEFIlFhcRORFDJCgVJiocHRFSMkQ7Hx/8QAGAEBAQEBAQAAAAAAAAAAAAAAAAECAwT/xAAeEQEBAQEBAAIDAQAAAAAAAAAAARECMQMSEyFBUf/aAAwDAQACEQMRAD8A8kutslK7pcHSXhuNK5Sbr3LI6HBG+vT1ZByLaVBa4OwtPp48uEfsSoYYpVjjfwQxx17cluPBLK6SkvejsQUX+XH/AEHcckIbvppJLmwY48sf0Pzvl8dCI5JRVRfHp2LtTeeVkQxKLScbDWM+TdLlxr3SL4QepxqSdNcND5JOS5/L6Fnhk1DWKDXlycfuEU/hskbprn3FemyRp7l145PTfh4fwoPw2N1cVwXGXno6fJkik5Rq2+eptxSljxKEE5U/Q66wQ9EMsUa6IuDz+XS59QmmmkyqHhMk/M2/g9N9FPsMsK9CDgf6fjX/AEN+7kB6D6KADirTZJLzT+yHjo0uspM0pP3GSf8A9NYiiOlxr9N/PJbHBFdIL7FqXuOl6BSRx12KfEItaPJt9OxrUX6iahqOJ3zZOrkXmbXnMKajC4tdSxySmrvlG6OljlhjknTVp89eSc2glvhtl8nHXbHK1CawbkirRT/5eJ/zI7XiGnjHRNLmTrk4+gwTyanbFcrk1zWeo9btRKiTFeVWuSa9LOjmjbXQlIlKiQiKrsWJUhUmPVAQAABz1Yy9yF7IlJ97KiU4jJrsQorsNToBkmyrWY92Bpda4ZYixwWSG1mO/HTj1z8mNxw43iSflXlff3KYZpXSxbPh2dXC5QSx0pONLp278+o0dNp4yTePc/WTfJmyOk2MWPBl1LUVjc0utrg1Y9Dh0kt0cWyUlfPU6OGeFcRSxza2qa5ooztPJSUltVeZ2zXMn8Z6uqqQUNwBpzL0BWw/NL2GoAQxCBhEX7ACXAAY0kibSESk+rJ29+pUM5ehMVa5ISa7DWAy4Ell2yq6Y1izxQypua5S4p0Z6mxvi5V0M8IxpMozaiK5ckjHDDNZNsnK3xsl5W/h9GaI6fG4r6sZWuN6XT2kuzM/Su9EM+6Mmm3S492dDI7ySfq2VYdJCGSMoR3qPmt8IdosmeuXaGyOWyG+eGMm0jTmZRQUCl7BuQBTB+5NoWTsCefQCVQBWJDJCrglWyodDpIROhgJ2pk7Nyp3T/k3L90Qhra/Lw/W6oLz+qWWLyVCDUPTbvh+zXKIq5w/2m30bTb4+epOOee1LLBTk/1Y07+64ZOXJdLJPPB96f8AlmnqnrV9JfT2XklKty3JpL79TLOX6UbMEljxtvfapJzfLX+OP3MUUpJSXfkzXD5PRFDoimiba6ojmAItMGwJtAuqEsE+QLUAlgBjU16jp33K4pLnuDim/couTGRTG13v5HU/VEFqY0ZNNNditSGTt8K37AZ4a7FknOLypSjJxqaW5f8An9DRi1EMEJTyNRX8X5b/AHbb+x5bxbyeI6iPpNmWMuOEbdPyXHoNf419WLxafo+HOq+y/uzo6KanpMT77Tx31JfB6PwPK5aGm72yaJfGLddWwsr3E3yZQzpitehJEuUBD+RU+WgukKnbYFgC2AGS2TYlk2VD8jL5K7J3AWWiY5tk+H5kvL8+pVZFJPd3JVee8Sbevy/P9jPHqdfU+HfVyyyLMo7ndNWZl4bmjqFBuLjf5kzWyRctZFDc6s7nguPLihkU4OMHTTao06fSw08ksS/Rb9y9Tfcz9tLMWdxl0K1JD2ENYNi2RYBJiRYSdISL45AtsBEwAy2CZUuWOmVD2TYlkOVAWOVcsR5N0vYplkbZEZrdUmWTTcPmTmqXUbF5IQTdujo6eOCWPJFbVOltbMU8kVPzJccE65tmPRz8eeq1rHHVONqkqps0qVoo2weaU49GWpoX/HG22rLDcIF0RDqbsbf6lNkoCybTi+exXYsgpoCywEtrsAGVdhkwAqBFeRsAATsJJWr7oAAR5Zvi39xoXKXLYAdOqztvrZBbUkixABybMnwRuYAAxHQAKgl2ITtJMAIqVygAAP/Z';

手机微信扫码成功，请在手机微信上点击 [登录] 按钮...

1--$show_tip is 0

2--$api is https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=gduih3Nyww==&tip=0&r=-1479440494&_=1479440494

$r is window.code=200;

window.redirect_uri="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxnewloginpage?ticket=AQV3nhqeStaayKkSthVOuQXu@qrticket_0&uuid=gduih3Nyww==&lang=zh_CN&scan=1479440653";

正在进行登录...

$api is https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxnewloginpage?ticket=AQV3nhqeStaayKkSthVOuQXu@qrticket_0&uuid=gduih3Nyww==&lang=zh_CN&scan=1479440653

$1 is AQV3nhqeStaayKkSthVOuQXu@qrticket_0

$2 is gduih3Nyww==

$3 is zh_CN

$4 is 1479440653

$user is 1479440653
巴特西

while +next 循环回到循环顶端

最新文章

热门文章

巴特西

while +next 循环 回到循环顶端

最新文章

热门文章

while +next 循环回到循环顶端
