文章/答案/技术大牛

发布

社区首页 >问答首页 >我可以在Perl包中压缩我的导出例程吗？

问我可以在Perl包中压缩我的导出例程吗？
EN

Stack Overflow用户

提问于 2018-11-22 23:33:36

回答 2查看 55关注 0票数 1

我当前的Perl包导出感觉很长(下面的代码片段)。是的，最好在一个地方只输入一次，这样我的许多Perl脚本就可以通过以下命令访问所有内容：

use Funx;

尽管如此，我还是希望有一种简单的方法可以用更少的输入输出所有的东西。

package Funx;
#use strict;
use warnings;
use DBI;

use Exporter;
our @ISA    = 'Exporter';
our @EXPORT = qw(pdone dbstart dbstop dbc dbcdata numnums $SUCCESS $NOFILE 
$COPYFAIL $SOXFAIL $CURLFAIL $OPENFAIL $APPRUNNING $RAWDBEXIISTS $DBCREATEERR $DBCONNECTERR $TMPFILEERR $DBWRITEERR $INVALIDUSER $DBLOCKERR $DBUNLOCKERR WERR);

our $SUCCESS        =   0;
our $NOFILE         =   1;
our $COPYFAIL       =   2;
our $SOXFAIL        =   3;
our $CURLFAIL       =   4;
our $OPENFAIL       =   5;
our $APPRUNNING     =   6;
our $RAWDBEXIISTS   =   7;
our $DBCREATEERR    =   8;
our $DBCONNECTERR   =   9;
our $TMPFILEERR     =   10;
our $DBWRITEERR     =   11;
our $INVALIDUSER    =   12;
our $DBLOCKERR      =   13;
our $DBUNLOCKERR    =   14;
use constant WERR => 100;

perl

回答 2

Stack Overflow用户

发布于 2018-11-23 13:42:34

如果使用常量而不是变量，

package Funx;

use strict;
use warnings;

use constant qw( );
use Exporter qw( import );

BEGIN {
    my %error_codes = (
        FUNX_SUCCESS      =>   0,
        FUNX_NOFILE       =>   1,
        FUNX_COPYFAIL     =>   2,
        FUNX_SOXFAIL      =>   3,
        FUNX_CURLFAIL     =>   4,
        FUNX_OPENFAIL     =>   5,
        FUNX_APPRUNNING   =>   6,
        FUNX_RAWDBEXIISTS =>   7,
        FUNX_DBCREATEERR  =>   8,
        FUNX_DBCONNECTERR =>   9,
        FUNX_TMPFILEERR   =>  10,
        FUNX_DBWRITEERR   =>  11,
        FUNX_INVALIDUSER  =>  12,
        FUNX_DBLOCKERR    =>  13,
        FUNX_DBUNLOCKERR  =>  14,
        FUNX_WERR         => 100,
    );

    constant->import(\%error_codes);

    my @syms = keys(%error_codes);
    our @EXPORT_OK = \@syms;
    our %EXPORT_TAGS = ( ALL => \@syms, ERROR_CODES => \@syms );
}

除了解决您提出的问题之外，上面的

修复了用户命名空间的污染。默认情况下，不要将一堆符号转储到其他名称空间中！
修复了可能与其他模块冲突的糟糕名称。您认为您是唯一一个具有SUCCESS
Fixes代码的模块，即污染您模块的@ISA的模块。Funx不是Exporter的子类。

用法：

use Funx;                                 # Imports nothing.
use Funx qw( );                           # Imports nothing.
use Funx qw( :ERROR_CODES );              # Imports error codes.
use Funx qw( :ALL );                      # Imports error codes.
use Funx qw( FUNX_SUCCESS FUNX_NOFILE );  # Imports specific error codes.

票数 5

Stack Overflow用户

发布于 2018-11-23 01:03:20

您可以使用source filter添加一些自定义预处理。

示例：

package MyExport;

use Filter::Util::Call;

sub import {
    my ($type) = @_;
    my ($ref) = [];
    filter_add(bless $ref);
}

sub filter {
    my ($self) = @_;
    my ($status);

    if (($status = filter_read()) > 0) {
        s/^(.*)\s+export\s+(\S+)(.*)$/push \@EXPORT, '$2'; $1 $2 $3/;
    }

    $status;
}

1;

用法：

...
use MyExport;
use Exporter;
our @ISA    = 'Exporter';
our @EXPORT;
...
our export $SUCCESS = 0;
...

请注意，此实现可能存在错误。基本上，s/^(.*)\s+export\s+(\S+)(.*)$/push \@EXPORT, '$2'; $1 $2 $3/;正则表达式将如下代码行

our export $SUCCESS = 0;

转到

push @EXPORT, '$SUCCESS'; our $SUCCESS = 0;

票数 1

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/53434203

复制

相似问题

问我可以在Perl包中压缩我的导出例程吗？
EN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问我可以在Perl包中压缩我的导出例程吗？EN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问我可以在Perl包中压缩我的导出例程吗？
EN