使用perl2exe编译后不能运行

n3tl04d

pl运行正常，编译没出错，但运行编译后的exe文件就出错。
google了一下：not allowed while "strict subs" in use
也没发现有好的解决方法

D:\web\soft\htool\perl2exe>22.pl
=============================================================================
                      Account scanner
                  Codz By N3tl04D  2009-08-17
Syntax: D:\web\soft\htool\perl2exe\22.pl openfile savefile

=============================================================================

D:\web\soft\htool\perl2exe>perl2exe -o 22.exe 22.pl
Perl2Exe V8.80 Copyright (c) 1997-2006 IndigoSTAR Software
Registered to n3t:n3t:20090718, ENT version
Converting '22.pl' to 22.exe

D:\web\soft\htool\perl2exe>22.exe
Bareword "Internals::inc_sub_generation" not allowed while "strict subs" in use
at PERL2EXE_STORAGE/constant.pm line 112.
Compilation failed in require at PERL2EXE_STORAGE/Time/Local.pm line 28.
BEGIN failed--compilation aborted at PERL2EXE_STORAGE/Time/Local.pm line 28.
Compilation failed in require at PERL2EXE_STORAGE/HTTP/Date.pm line 12.
Compilation failed in require at PERL2EXE_STORAGE/LWP/UserAgent.pm line 14.
BEGIN failed--compilation aborted at PERL2EXE_STORAGE/LWP/UserAgent.pm line 14.
Compilation failed in require at PERL2EXE_STORAGE/LWP.pm line 10.
Compilation failed in require at D:\web\soft\htool\perl2exe\22.exe line 4.
BEGIN failed--compilation aborted at D:\web\soft\htool\perl2exe\22.exe line 4.

D:\web\soft\htool\perl2exe>


代码如下：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use LWP;
   
5. use Crypt::SSLeay;
   
6. use HTTP::Cookies;
   
7. use HTTP::Request::Common qw(POST);
   
8. 
   
9. my $user;
   
10. my $pass;
    
11. my $count;
    
12. 
    
13. 
    
14. &usage if @ARGV!=2;
    
15. my $openfile=$ARGV[0];
    
16. my $savefile=$ARGV[1];
    
17. 
    
18. my $ua=new LWP::UserAgent;
    
19. $ua->agent('Mozilla/5.0');
    
20. $ua->cookie_jar(new HTTP::Cookies);
    
21. sub login{
    
22.     my $test1=$ua->request(POST 'https://logins.baidu.com/Mail-bin/login.cgi',
    
23.     [
    
24.     "url"=>"http%3A%2F%2F[url]www.baidu.com[/url]%2F%3Ft__nil_top%3Dlogin",
    
25.     "pw"=>"$pass",
    
26.     "id"=>"$user",
    
27.     "enpw"=>"$pass",
    
28.     "login"=>"%EB%A1%9C%EA%B7%B8%EC%9D%B8",
    
29.     "saved_id"=>"on",
    
30.     "Referer"=>" [url]http://www.baidu.com/?t__nil_top=logout[/url]",
    
31.     ]
    
32.     #)->as_string;
    
33.     );
    
34. #my $content=$test1->content;
    
35. #print "$content";
    
36. }
    
37. 
    
38. readfile();
    
39. 
    
40. sub readfile {
    
41.     open(FILE,$openfile);
    
42.     open(SAVEFILE,">>$savefile");
    
43.     while(<FILE>)
    
44.     {
    
45.         chomp;
    
46.         $_ =~ m{(.+?)\s(.+)}gi;
    
47.         $user=$1;
    
48.         $pass=$2;
    
49.         print "Trying user:$user    ";        
    
50.         login($user,$pass);
    
51.         gethtml();
    
52.     }
    
53.     close(FILE);
    
54.     close(SAVEFILE);
    
55. }
    
56. 
    
57. 
    
58. sub gethtml {
    
59.     my $url="http://www.baidu.com/?t__nil_top=login";
    
60.     my $getpost=POST($url);
    
61.     my $html=$ua->request($getpost)->as_string;
    
62.     if ($html =~ m{<span>(\d+\,?\d+\,?\d+)<\/span>}gi) {
    
63.                 $count=$1;
    
64.     } else {
    
65.                 $count="Unknow";
    
66.         }       
    
67.         print "get count $count\n";
    
68.     print SAVEFILE "user:$user    pass:$pass    count:$count\n";
    
69. }
    
70. 
    
71. 
    
72. sub usage {
    
73.         print <<"USAGE";
    
74. =============================================================================
    
75.                       Account scanner
    
76.                   Codz By N3tl04D  2009-08-17
    
77. Syntax: $0 openfile savefile
    
78. 
    
79. =============================================================================
    
80. USAGE
    
81.         exit 0
    
82. }
    

复制代码

hitsubunnu

改用 pp 或者 pdk（需注册）

perl2exe不是很好用

lokchungk

去掉所有用到的模組中的
use strict;試試

[ 本帖最后由 lokchungk 于 2009-8-18 17:10 编辑 ]

n3tl04d

去掉use strict也不行

lokchungk

原帖由 n3tl04d 于 2009-8-18 22:11 发表
去掉use strict也不行

連這幾個包中的 use strict; 也去掉了嗎?
constant.pm
Time/Local.pm
HTTP/Date.pm
LWP/UserAgent.pm
LWP.pm

n3tl04d

原帖由 lokchungk 于 2009-8-19 00:10 发表


連這幾個包中的 use strict; 也去掉了嗎?
constant.pm
Time/Local.pm
HTTP/Date.pm
LWP/UserAgent.pm
LWP.pm

去掉了，也不行。

n3tl04d

原帖由 hitsubunnu 于 2009-8-18 16:57 发表
改用 pp 或者 pdk（需注册）

perl2exe不是很好用

PP安装不成功。

C:\Perl\bin>ppm-shell
ppm 4.01
Copyright (C) 2007 ActiveState Software Inc.  All rights reserved.
ppm> install PAR
Downloading ActiveState Package Repository packlist...done
Updating ActiveState Package Repository database...done
Downloading PAR-0.994...done
Unpacking PAR-0.994...done
Generating HTML for PAR-0.994...done
Updating files in site area...done
  14 files installed

ppm> exit


C:\Perl\bin>pp
'pp' 不是内部或外部命令，也不是可运行的程序
或批处理文件。

C:\Perl\bin>

hitsubunnu

perl 5.10

1. 
   
2. ppm install PAR
   
3. 
   
4. ppm install PAR::Packer
   
5. 
   

复制代码

path

1. 
   
2. C:\Perl\site\bin\pp
   
3. 
   
4. pp -o t.exe t.pl
   

复制代码

sunbeat

装PDK，晚上google注册码，然后用perlapp  xxx.pl就行了，很好用。
我这面带ODBC，带mysql的DBI，都可以编译进去，只是.exe文件有5M多了。
否则，一般在800K左右