perl

0熱度

1回答

這行在Perl中有什麼作用？

這行在Perl中有什麼作用？ s/\s//g; 我看，用於在輸入文件中搜索和計數某些字符的劇本，我理解的代碼一切，除了這一行。我想知道這行代碼爲腳本做了什麼？

perl 2017-10-20

---

0熱度

2回答

使用Shell腳本菜單用Perl對文件進行排序

我有一個文件數量爲10個隨機單詞。我能夠讓我的Perl腳本排序文件，但我不知道爲什麼，因爲它排序和覆蓋主文件。 例如file.txt有：「a，c，d，b」我把它讀入文件名然後把它排序到另一個文件名sorted.txt「a，b，c，d」但是我不想讓我的file.txt原始文件進行更改。 這是調用我的殼菜單perl的排序功能： if [ "$choice" = 2 ] then

bash perl 2017-10-20

---

1熱度

2回答

在Perl中從DateTime獲取兩位數的月份和日期

你好我正在使用Perl的DateTime來解析一個字符串並將其轉換爲日期格式。這裏 我的代碼如下所示： my $parser = DateTime::Format::Strptime->new(pattern => "%Y-%m-%dT%H:%M:%SZ", time_zone => 'UTC', on_error => 'croak'); my $startDate = $parser->pa

perl datetime 2017-10-21

---

0熱度

1回答

Perl - 按照x維度轉置CSV數據

我在尋找一些幫助來實現以下任務，我需要使用Perl才能在每個維度上轉換CSV數據。 我解析器產生以下： metric_timestamp,metric_name,logical_cpus,virtual_cpus,PID,pct_CPU,pct_Usr,pct_Sys,Size,ResSet,ResText,ResData,ShdLib,MinorFault,MajorFault,Command,

perl csv transpose 2017-10-21

---

-1熱度

1回答

有沒有更好的方法通過perl匹配這個正則表達式？

只是一個關於這個Perl代碼的簡單問題;我的任務是獲取STDIN標量，並將其與包含引號之間的至少3至15個字符的行（匹配引號內沒有另外的引號）進行匹配。如果是這樣，我的程序應該打印出「是」，如果不是，「否」我只是想知道，是否有更雄辯的方式來實現這一目標？我使用這段代碼： #!/usr/bin/perl use strict; use warnings; use 5.26.0; #2. M

regex perl 2017-10-21

---

0熱度

1回答

「Net :: Netconf :: Manager」將RPC請求中的下劃線轉換爲連字符

我正在使用 Net::Netconf::Manager 來使用RPC命令查詢設備。在RPC命令中，我應該發送一個參數列表，所以我在一個哈希中添加了查詢參數。其中一種說法是verbosity_level 請注意我在這個參數中使用了下劃線_。當我打印散列時，它仍然是下劃線。 但是，當我打印發送到設備的XML RPC請求，參數更改爲verbosity-level <verbosity-level>abc

perl ietf-netconf 2017-10-21

---

1熱度

1回答

如何在發生異常時訪問數據庫數據？

我有下面的代碼： my $savepoint = $c->db->txn_scope_guard; return $self->render('subnet/create', error => [ create => [email protected] ], servers => $self->rows('Server')->lookup, ) unless $subnet = ev

perl dbi dbix-class 2017-10-21

---

0熱度

1回答

爲什麼這個if/else總是正確的？

任何顏色的輸入返回「綠色」 :( sub next_traffic_lights { my ($x) = @_; if ($x == "red") { return "green"; } elsif ($x == "green") { return "yellow"; } else { return "red";

perl 2017-10-21

---

0熱度

3回答

如何使用變量名稱引用散列？

我有一組預定義的散列表，我想使用變量名稱引用其中一個散列並訪問鍵值。即使散列填充，下面的代碼也會返回null。我在這裏做錯了什麼，還是有更好的方法來實現這一目標？ my %TEXT1 = (1 => 'Hello World',); my %TEXT2 = (1 => 'Hello Mars',); my %TEXT3 = (1 => 'Hello Venus',); my $hash_n

perl hash hashref 2017-10-21

---

1熱度

2回答

「子程序外不能轉到子程序」

我在子程序的頂部創建了一個名爲「MENU」的子程序，名稱爲「INIT_MENU」，但當我打電話給該標籤時出現錯誤：Can的子程序以外「噸轉到子程序在program.pl線15 下面是一個例子： sub MENU {INIT_MENU: print "blah blah";} 和這裏是線15： goto &MENU, INIT_MENU; 很抱歉，如果它是一個重複的問題，我搜索在所有可能的地

perl label subroutine goto 2017-10-22

---