快讯：PDK9.2发布了，支持perl5.16打包生成EXE文件！！！

minirain

PDK9.2发布了，支持perl5.16打包生成EXE文件！！！
下载地址：http://downloads.activestate.com ... .296171-windows.msi
minirain
20120913

iamlimeng

太好了，支持一下！

nixiaoweihunter

是破解版吗？

minirain

早就是破解版了，Key文件如下：

只是一个红薯

生成exe的遇到这个问题，有解决的办法吗？

minirain 发表于 2012-09-13 15:29
PDK9.2发布了，支持perl5.16打包生成EXE文件！！！
下载地址：http://downloads.activestate.com/PDK/Wind ...

minirain

只是一个红薯 发表于 2012-09-14 16:11
生成exe的遇到这个问题，有解决的办法吗？

程序源码及相关文件<DATA>贴上来，我看看能否解决，好像是 decode问题。

只是一个红薯

没发现要用到encode的地方...能运行，但是不能生成exe

1. #!perl64/bin/perl;
   
2. use 5.014;
   
3. use autodie;
   
4. use strict;
   
5. use LWP::Simple qw(get getstore);
   
6. my $content;
   
7. while(1){
   
8. print "Please input website ：";
   
9. chomp(my $soure=<STDIN>);
   
10. my $url="http://$soure";
    
11. #my $url =  "http://www.qq.com";
    
12. $content = get($url) or die "Couldn't get it!\n";#get source code
    
13. #print $content;
    
14. my @a = split /\r?\n/, $content;
    
15. chomp @a;
    
16. #open CONFIG,'>>:utf8','code.txt';
    
17. #print CONFIG $content;
    
18. #close CONFIG;
    
19. my @img;
    
20. foreach(@a){             #find the url(gif/jpg) from @img
    
21.     if(/<img .*?src=\"(.*?(?:(\.gif)|(\.jpg)))\".*?>/){
    
22.        push  @img,$1;#
    
23.    }
    
24. }
    
25. foreach(1..$#img){
    
26.   my $url=  pop @img;
    
27. state  $i++;
    
28. getstore($url,"$i.jpg" ) or die "get picture failed!";  #download picture
    
29. $url=0;
    
30. }
    
31. #print "@img";
    
32. 
    
33. print "Success！GO on?(yes/no):";
    
34. chomp(my $n=<STDIN>);
    
35. if($n=~/yes/i){
    
36.    next;
    
37. }else{
    
38.     last;
    
39. }
    
40. }

复制代码

minirain 发表于 2012-09-14 16:18
程序源码及相关文件贴上来，我看看能否解决，好像是 decode问题。

minirain

只是一个红薯 发表于 2012-09-14 16:21
没发现要用到encode的地方...能运行，但是不能生成exe

问题已解决，请看附图：

只是一个红薯

多谢啊，试试看

minirain 发表于 2012-09-14 21:25
问题已解决，请看附图：

scrit

这个破解key，应该怎么用啊？