Question

我有一个perl脚本，当我用perl2exe编译它时，它会给出以下消息：

Can't locate unicore/Heavy.pl in @INC (@INC contains: PERL2EXE_STORAGE c:\tools\hunalign\scripts\sentence_splitter C:\Users\EURIDE~1\AppData\Local\Temp/p2xtmp-5936) at PERL2EXE_STORAGE/utf8_heavy.pl line 176.

我在unicore模块中有文件，所以我不知道问题是什么。但是，我可以通过插入这一行暂时克服这一点：

#perl2exe_include "unicore/Heavy.pl";

现在它编译没有错误，但exe的工作方式与程序制造商编译的原始exe有点不同。（它是一个分段句子的解析器，我的exe不会完全分段）。可能是由于perl2exe的免费版本的限制？有什么想法吗？

CODE （原创版本和我自己的版本）

#!/usr/bin/perl -w

use Encode::Unicode;
use utf8;
#perl2exe_include "unicore/Heavy.pl";

# Based on Preprocessor written by Philipp Koehn

binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");
binmode(STDERR, ":utf8");

use FindBin qw($Bin);
use strict;

my $mydir = "$Bin/nonbreaking_prefixes";

my %NONBREAKING_PREFIX = ();
my $language = "en";
my $QUIET = 0;
my $HELP = 0;

while (@ARGV) {
    $_ = shift;
    /^-l$/ && ($language = shift, next);
    /^-q$/ && ($QUIET = 1, next);
    /^-h$/ && ($HELP = 1, next);
}

if ($HELP) {
    print "Usage ./split-sentences.perl (-l [en|de|...]) < textfile > splitfile\n";
    exit;
}
if (!$QUIET) {
    print STDERR "Sentence Splitter v3\n";
    print STDERR "Language: $language\n";
}

my $prefixfile = "$mydir/nonbreaking_prefix.$language";

#default back to English if we don't have a language-specific prefix file
if (!(-e $prefixfile)) {
    $prefixfile = "$mydir/nonbreaking_prefix.en";
    print STDERR "WARNING: No known abbreviations for language '$language', attempting fall-back to English version...\n";
    die ("ERROR: No abbreviations files found in $mydir\n") unless (-e $prefixfile);
}

if (-e "$prefixfile") {
    open(PREFIX, "<:utf8", "$prefixfile");
    while (<PREFIX>) {
        my $item = $_;
        chomp($item);
        if (($item) && (substr($item,0,1) ne "#")) {
            if ($item =~ /(.*)[\s]+(\#NUMERIC_ONLY\#)/) {
                $NONBREAKING_PREFIX{$1} = 2;
            } else {
                $NONBREAKING_PREFIX{$item} = 1;
            }
        }
    }
    close(PREFIX);
}

##loop text, add lines together until we get a blank line or a <p>
my $text = "";
while(<STDIN>) {
    chop;
    if (/^<.+>$/ || /^\s*$/) {
        #time to process this block, we've hit a blank or <p>
        &do_it_for($text,$_);
        print "<P>\n" if (/^\s*$/ && $text); ##if we have text followed by <P>
        $text = "";
    }
    else {
        #append the text, with a space
        $text .= $_. " ";
    }
}
#do the leftover text
&do_it_for($text,"") if $text;


sub do_it_for {
    my($text,$markup) = @_;
    print &preprocess($text) if $text;
    print "$markup\n" if ($markup =~ /^<.+>$/);
    #chop($text);
}

sub preprocess {
    # clean up spaces at head and tail of each line as well as any double-spacing
    $text =~ s/ +/ /g;
    $text =~ s/\n /\n/g;
    $text =~ s/ \n/\n/g;
    $text =~ s/^ //g;
    $text =~ s/ $//g;

    #this is one paragraph
    my($text) = @_;

    #####add sentence breaks as needed#####

    #non-period end of sentence markers (?!) followed by sentence starters.
    $text =~ s/([?!]) +([\'\"\(\[\¿\¡\p{IsPi}]*[\p{IsUpper}])/$1\n$2/g;

    #multi-dots followed by sentence starters
    $text =~ s/(\.[\.]+) +([\'\"\(\[\¿\¡\p{IsPi}]*[\p{IsUpper}])/$1\n$2/g;

    # add breaks for sentences that end with some sort of punctuation inside a quote or parenthetical and are followed by a possible sentence starter punctuation and upper case
    $text =~ s/([?!\.][\ ]*[\'\"\)\]\p{IsPf}]+) +([\'\"\(\[\¿\¡\p{IsPi}]*[\ ]*[\p{IsUpper}])/$1\n$2/g;

    # add breaks for sentences that end with some sort of punctuation are followed by a sentence starter punctuation and upper case
    $text =~ s/([?!\.]) +([\'\"\(\[\¿\¡\p{IsPi}]+[\ ]*[\p{IsUpper}])/$1\n$2/g;

    # special punctuation cases are covered. Check all remaining periods.
    my $word;
    my $i;
    my @words = split(/ /,$text);
    $text = "";
    for ($i=0;$i<(scalar(@words)-1);$i++) {
        if ($words[$i] =~ /([\p{IsAlnum}\.\-]*)([\'\"\)\]\%\p{IsPf}]*)(\.+)$/) {
            #check if $1 is a known honorific and $2 is empty, never break
            my $prefix = $1;
            my $starting_punct = $2;
            if($prefix && $NONBREAKING_PREFIX{$prefix} && $NONBREAKING_PREFIX{$prefix} == 1 && !$starting_punct) {
                #not breaking;
            } elsif ($words[$i] =~ /(\.)[\p{IsUpper}\-]+(\.+)$/) {
                #not breaking - upper case acronym  
            } elsif($words[$i+1] =~ /^([ ]*[\'\"\(\[\¿\¡\p{IsPi}]*[ ]*[\p{IsUpper}0-9])/) {
                #the next word has a bunch of initial quotes, maybe a space, then either upper case or a number
                $words[$i] = $words[$i]."\n" unless ($prefix && $NONBREAKING_PREFIX{$prefix} && $NONBREAKING_PREFIX{$prefix} == 2 && !$starting_punct && ($words[$i+1] =~ /^[0-9]+/));
                #we always add a return for these unless we have a numeric non-breaker and a number start
            }

        }
        $text = $text.$words[$i]." ";
    }

    #we stopped one token from the end to allow for easy look-ahead. Append it now.
    $text = $text.$words[$i];

    # clean up spaces at head and tail of each line as well as any double-spacing
    $text =~ s/ +/ /g;
    $text =~ s/\n /\n/g;
    $text =~ s/ \n/\n/g;
    $text =~ s/^ //g;
    $text =~ s/ $//g;

    #add trailing break
    $text .= "\n" unless $text =~ /\n$/;

    return $text;

}

Answer 1

无法在@INC中找到XYZ意味着Perl无法在@INC中找到XYZ模块。这意味着未安装模块或其路径无法搜索，您需要将模块的路径添加到@INC。

见以下主题：

How is Perl's @INC constructed? (aka What are all the ways of affecting where Perl modules are searched for?)
How to change @INC to find Perl modules in non-standard locations

使用#perl2exe_include "unicore/Heavy.pl";解决了这个问题，因为它指定了模块的路径，因此Perl知道要查找的位置。（perl2exe将模块添加到可执行文件中。）

exe与原始exe有点不同

你应该分享你的代码，我们怎么知道什么是原始的，什么是最新的？

编译perl脚本时出现错误和奇怪的行为

1 个答案: