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,我不確定如何潛水尋找它。這是一個非常模糊的術語。