PAR::Packer 打包可执行文件

txh_zyy

用 pp 打包可执行文件命令如下：

1. pp -a -d -o t1.exe t1.pl

复制代码

执行t1.exe

1. ./t1.exe

复制代码

报错信息：

1. Use of uninitialized value $myname in concatenation (.) or string at script/t1.pl line 16.
   
2. DBI connect('dbname=script/../db/a.sqlite','',...) failed: unable to open database file at script/t1.pl line 21

复制代码

问题感觉就是pp打包完了，无法执行abs_path来动态获取路径，还有一个就是无法打开a.sqlite文件，不知哪位有对这方面有经验的帮帮忙？

测试代码如下：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use DBI;
   
5. use DBD::SQLite;
   
6. use File::Basename qw(dirname);
   
7. use Cwd 'abs_path';
   
8. 
   
9. my $conf_filename = '/etc/t1.pl.conf';
   
10. unless ( $conf_filename and -s $conf_filename ) {
    
11.     print "Usage: t1.pl /etc/t1.pl.conf\n";
    
12.     exit;
    
13. }
    
14. chdir dirname(__FILE__);
    
15. my $myname = abs_path(__FILE__);
    
16. $0 = "$myname $conf_filename";
    
17. print $0, "\n";
    
18. 
    
19. my $dbname = dirname(__FILE__) . "/../db/a.sqlite";
    
20. my $dsn    = "DBI:SQLite:dbname=$dbname";
    
21. my $dbh    = DBI->connect( $dsn, "", "", { 'RaiseError' => 1 } );

复制代码

gyjys

应该是Cwd这个模块没有被正确打包，试试参数 -M Cwd

另外，可以先用-B -p打包成PAR，然后查看包里面缺少了哪些文件，添加后再打包成EXE