perl

    0热度

    1回答

    我刚启动Perl Tk,我看了一些教程,但遇到了问题。当我点击一个按钮时,它会在条目窗口小部件上显示我想要的标量。它可以工作,但是当我点击其他时间时,它会保留条目上的内容。所以我有两个你好。我知道它来自插入(0,“你好”),但我不放什么,而不是0 #!/usr/local/bin/perl use Tk; my $mw = MainWindow->new; $mw->geometry("5

    0热度

    1回答

    我已经生成了一个看起来像这样的散列。 (印刷用自卸车) $VAR1 = { 'sufia:s4655g60k' => { 'curVer' => 0, 'version.0' => { 'checksum.new' => '44d88612fea8a8f36de82e1278abb02f',

    1热度

    3回答

    创建一个Perl模块另一个类中调用从一个类的方法呢? 例如getJobStatus存在于ElectricCommander中,我可以做类似下面的事情吗? use EC; $obj = EC->new("myserver"); $obj->getJobDetails("1234");

    0热度

    1回答

    我是一个Perl noob,我一直在试图开发一个简单的脚本来从正则表达式中捕获一些值。到目前为止,我已经建立了以下程序: #!/usr/bin/perl use strict; $/ = ''; my $PM = qr{\b[A-Z][\w-]*\w}; my $de = qr{d[aoe]s?}; my $s = qr{[\n ]}; my $np = qr{$PM (?: $s

    1热度

    1回答

    Perl通过@DynaLoader::dl_librefs的文件句柄保留外部动态加载库的数据库如何找出DynaLoader保留句柄的库? sub f { my $h = shift; # something that gives me a name, or caller or something useful? return $name; }; map f($_

    0热度

    1回答

    我是一名VOIP管理员,我有用于更新Perl中的目录数据库的脚本,这是在我受雇于此之前从供应商处购买的。 该脚本在除一个之外的所有服务器上都正常工作。 #!/usr/bin/perl use lib "/opt/asterisk/lib/"; use DBI; use Asterisk::config; sub trim($); # database information $db="

    0热度

    1回答

    我尝试在Excel工作表中插入公式=IF(D2="";"";COUNTIF(D:D;D2))。 这里是我想要的代码: $WorkSheet->Cells($Row2Use,'L')->{Formula} = "=IF(D".$Row2Use."=\"\",\"\",COUNTIF(D:D,D".$Row2Use.")"; # =IF(D2="";"";COUNTIF(D:D;D2)) 我也用{

    -1热度

    1回答

    我有一个程序,将提取一个名为“output.zip”的zip文件并为其创建一个目录。我想创建一个日志文件,如果某个单词在我提取的任何文件中,在这种情况下单词是Error。我收到的错误是说该文件不存在。我怎样才能解决这个问题? #!/usr/bin/perl use strict; use warnings; use Archive::Zip qw(:ERROR_CODES :CONSTA

    2热度

    2回答

    给定一个小Perl库: package P; use strict; use warnings; print("Loading P\n"); our $k1 = 'v1'; our $k2 = 'v2'; our $k3 = 'v2'; 我试着写一个程序加载,卸载和重装包装,以获得更好的理解包在Perl是如何工作的: # main.pl use strict; use w

    3热度

    2回答

    有没有人知道在源代码和编译阶段use中的确切位置?我没有看到它寻找CORE::GLOBAL::use,我不确定如何潜水寻找它。这是一个非常模糊的术语。