perl

1熱度

2回答

的含義根據該文檔 \ W [3]匹配一個「字」的字符（字母數字加上「_」，加其他連接器標點字符加的Unicode引號）我不明白什麼是「加上其他連接器標點符號加上Unicode標記」，該文檔似乎沒有說。什麼是\w真的？

0熱度

2回答

我有這麼一小撮代碼，出於某種原因，從http://localhost/cgi-bin/sysinfo.sh運行時無法執行。我在CentOS 7的虛擬機上，我會盡我所能的幫助。我似乎無法得到這些指示，但是他們在Vi中是正確的。 #!/bin/bash echo -e "Content-type: text/html\r\n\n" echo " <html> <head> <titl

1熱度

1回答

僅在測試中報告失敗測試::更多

我對隨機生成的數據進行了大量檢查。我怎樣才能得到報告消息只爲失敗的測試，如果檢查是好的，什麼也不顯示？

3熱度

2回答

限制在Perl腳本中執行的程序的同時實例數（大於1）

我在Perl腳本中使用資源密集型程序[特別是將文件傳輸到Google Drive的rclone]。我還沒有搞清楚如何我想打電話給rclone，因爲我需要限制的rclone實例基於一些條件（什麼有關預防服務器超載，死機，崩潰等）的數量。我希望腳本在執行rclone之前等待apt系統的「條件」（這可能需要很長或無限的時間）。一些細節：腳本本身基本上是通過包含由另一個程序（可能很多）的文件的文件或

0熱度

1回答

Perl如何從另一個包中導入我的包？

這是我的文件夾結構： XFolder/ XFolder/YFolder/ XFolder/YFolder/package1.pl XFolder/package2.pl 在package2.pl，我有： package X::Pa2 在package1.p1，我有： package X::Y::Pa1 在package1.pl，當我這樣做： use X::Pa2; 我得到 C

0熱度

1回答

我不明白「push」返回的值

use strict; use warnings; sub maximum_value { my @array = @_; my @array1 = shift(@_); my @array2 = push(@_, 0); print "@array\n"; print "@array1\n"; print "@array2\n

5熱度

5回答

如何用多行搜索和替換多行

我查看了有關搜索和替換的其他答案，但我無法理解這些模式。我怎樣才能更改文件的這一部分（行號153 ... 156） let view = string.utf8 offset.pointee += string.substring(to: range.lowerBound).utf8.count length.pointee = Int32(view.distance(

2熱度

2回答

如何通過符號表來訪問子主::和子的名字在一個標量

假設我有一個功能foo（或::foo，或者main::foo如果你喜歡），我定義 use strict; my $sub_name = 'foo'; 我想間接調用foo，因爲「名稱存儲在$sub_name中的函數」。（對於這個例子來說，假設調用應通過列表1, 2, 3作爲參數。）我知道，有一種方法用符號表工作main::直接，對待它就像一個散列做到這一點像數據結構一樣。這個符號表的咒語

-1熱度

2回答

如何將數組推送到嵌套散列

有沒有人可以解釋如何將數組推入嵌套散列。假設我創建了一個嵌套散列，並且希望將一個數組推入另一個鍵的值中，以及如何訪問這些數組的值。對不起，如果我在解釋我的查詢時在技術上是錯誤的。這裏是我的代碼部分： if ($line !~ /#/) { @region = split /\t/, $line; @ancestor = split /:/, $region[

0熱度

1回答

如何訪問由此自卸車輸出表示的散列？

我正在破解一個git-svn Perl腳本。我有一個$paths變量，我認爲它包含一個單獨的路徑數組，但是我很難對它進行迭代。我的最終目標是向一條路徑添加一個附加屬性。這裏是自卸車輸出。 { "/dira" => { action => "A", copyfrom_path => undef, copyfrom_rev => -1 },