Question

我正在尝试在perl中创建.exe。它工作正常，直到我尝试将其编译为exe。我正在使用Komodo IDE 5.我已经发布了我的脚本和下面的错误。我添加了模块，LWP :: UserAgent，NET和Google :: Voice，它仍然无法正常工作。我使用perlapp来创建.exe

#!/usr/bin/perl -w
use strict;
use warnings;
use Google::Voice;
use Date::Calc qw(Delta_Days);
use Net::Twitter;

#Set Days
    my @today = (localtime)[5,4,3];
    $today[0] += 1900;
    $today[1]++;
    my @RT = (2012, 7, 7);
    my $days = Delta_Days(@today, @RT);

#Get Quotes and Phone Numbers
    open FILE, "c:/Countdown/countdownNumbers.txt" or die "Couldn't open file: $!"; 
    my $numbers = join("", <FILE>); 
    close FILE;
    open FILETWO, "c:/Countdown/Quotes.txt" or die "Couldn't open file: $!"; 
    my $quotes = join("", <FILETWO>); 
    close FILETWO;

#Create Arrays and Lengths
    my @numbersArray = split(/[\n\r\l]+/, $numbers);
    my @quotesArray = split(/[\n\r\l]+/, $quotes);
    my $length = @numbersArray;
    my $QuotesLength = @quotesArray;

#Send Text Message
    for(my $i = 0; $i < $length; $i++){
        my $g = Google::Voice->new->login('secret', 'secret'); 
        $g->send_sms($numbersArray[$i] => "      Countdown\nDays Left: " . $days . "\n Quote:\n" . $quotesArray[0]);
    }


#Send Twitter Message
    my $nt = Net::Twitter->new(
        traits   => [qw/OAuth API::REST/],
        consumer_key        => 'secret',
        consumer_secret     => 'secret',
        access_token        => 'secret',
        access_token_secret => 'secret'
    );
    my $result = $nt->update($days .' Days left!');
    $result = $nt->update('Quote: ' . $quotesArray[0]);

#Rewrite the file and close it
    open FILETWO, ">c:/Countdown/Quotes.txt";
    for(my $i = 1; $i < $QuotesLength; $i++){
        print FILETWO $quotesArray[$i] . "\n";
    }
    close FILETWO;

错误

Algorithm\Diff\XS.pm:
    error: Can't locate Algorithm\Diff\XS.pm
    refby: C:\Perl\site\lib\Array\Diff.pm line 7
Date\Calc\XS.pm:
    error: Can't locate Date\Calc\XS.pm
    refby: C:\Perl\lib\Date\Calc.pm line 26
I18N\Langinfo.pm:
    error: Can't locate I18N\Langinfo.pm
    refby: C:\Perl\lib\Encode\Locale.pm line 51
JSON\PP58.pm:
    error: Can't locate JSON\PP58.pm
    refby: C:\Perl\lib\JSON\PP.pm
Net.pm:
    error: Can't locate Net.pm
    refby: perlapp --add Net::

Can't locate Mojo/EventEmitter.pm in @INC (@INC contains:) at /<C:\Users\Chris\Desktop\Countdown\RT.exe>Mojo/Base.pm line 32.
BEGIN failed--compilation aborted at /<C:\Users\Chris\Desktop\Countdown\RT.exe>Mojo/UserAgent.pm line 2.
BEGIN failed--compilation aborted at /<C:\Users\Chris\Desktop\RTCountdown\RT.exe>Google/Voice.pm line 6.
BEGIN failed--compilation aborted at RT.pl line 4.

Answer 1

将perl脚本编译成exe文件并不是那么简单，我担心。）查看this discussion at Perlmonks了解详细信息。

从您所引用的内容看来，您可能会开始通过安装其他模块来解决这个问题：Algorithm :: Diff :: XS，Date :: Calc :: XS等。

Answer 2

如果您使用最新版本的perlapp，请将此错误发送给ActiveState支持。

暂时你可以使用PAR :: Packer而不是perlapp。使用cpan shell安装PAR :: Packer（ppm可能无效）。然后运行

pp -c t1.pl

它将创建一个.out。如果它不起作用，请从svn：http://svn.openfoundry.org/par/Module-ScanDeps/trunk/安装Module :: ScanDeps - 我为你的程序修复了一些可能的问题。

我从未使用过perlapp，但它可能有命令行开关来提供要包含的模块列表。

Answer 3

我已将Langinfo.pm从http://search.cpan.org/src/RJBS/perl-5.16.1/ext/I18N-Langinfo/Langinfo.pm下载到C:\Perl\lib\I18N，但它确实有效。

Komodo IDE，版本6.1.3
Perl Dev Kit Pro v9.1.1。
的ActivePerl-5.14.2.1402-MSWin32-x86-295342

Perl脚本编译成.exe错误

3 个答案: