perl

0熱度

1回答

Perl正則表達式部分替換

我想要替換字符串中數字的所有實例，但前提是該數字是列中空格分隔的第n列。 這是我到目前爲止： $_ =~ s/\s+([^\s]+\s+){$numcols}$i(.*)\n/$rep/; 基本上，會有幾個空格，然後會出現：（非空間（列），然後空格）$數numCols倍。然後，會有$ i，其中$ i是我想要替換的數字，後面是一些我不關心的字符和一個換行符。但是，我不想用$ rep替換ALL W

regex string perl replace 2013-09-21

---

-1熱度

2回答

命令在命令行中運行，但在Perl腳本中運行

我有一個Unix命令，它接受一個input.dump文件並通過tshark進行分析。然後通過grep針對源和目標信息對該分析進行過濾，然後再次通過grep對Vmware進行過濾。最終的輸出放在一個名爲input.useful的文件中，以備後續處理。 這是問題所在。當我通過命令行運行它時，它完美運行。對於我的任務，我必須編寫一個運行該命令的Perl腳本。我試圖玩弄間距在我的腳本，使用單或雙引號，添加

perl unix 2013-09-22

---

0熱度

2回答

如何通過FTP（perl）獲取遠程服務器的最後修改時間和時區

我正在編寫一個perl腳本，該腳本可以使用FTP以增量方式與遠程目錄同步本地目錄。它會檢查每個文件的最後修改日期，並將其與一個遠程文件進行比較。我使用下面的代碼通過FTP獲取上次修改時間。 my $f = Net::FTP->new($config->{'host'}, Passive => 1, Debug => 0) || die "Couldn't ftp to $config->{'hos

linux perl ftp cgi sync 2013-09-22

---

2熱度

1回答

如何在Perl POD中使用Pod :: Weaver添加HTML部分

我使用Pod::Weaver和Dist::Zilla。它爲我做了幾件好事。它自動添加了POD版本VERSION，AUTHOR，LICENSE，並且在我的源代碼中我可以使用簡單的POD語法，我可以編寫「= method new」，它將被轉換爲正確的POD。 現在我想添加一個圖像到POD。要做到這一點，我需要添加一些HTML。所以我寫在我的source code： =begin HTML <p>

perl pod 2013-09-22

---

1熱度

1回答

在Perl中

線程哈希表我寫了下面簡短的腳本，我不斷收到錯誤： Invalid value for shared scalar at E:\Scripts\Threads.pl line 19. 我不知道爲什麼，因爲我在一個共享的陣列使用共同的價值觀。 use strict; use threads; use threads::shared; my $totalInstances = 0; my

perl 2013-09-22

---

0熱度

1回答

重新啓動後舞者不在sqlite中保存數據

sub connect_db { my $dbh = DBI->connect("dbi:SQLite:dbname=".setting('database')) or die $DBI::errstr; return $dbh; } sub init_db { my $db = connect_db(); my $schem

perl sqlite3 dbi dancer 2013-09-22

---

0熱度

1回答

在perl中運行並行http post請求

我需要使用perl對多個URL進行併發http POST請求。我需要在代碼中進行更改： use LWP::UserAgent; my $ua = LWP::UserAgent->new; @urls = ('http://url1.com:10001','http://url2.com:10002','http://url3.com:10003'); foreach (@urls)

perl 2013-09-22

---

0熱度

1回答

PERL腳本的輸出未使用Python加載到MySQL

我有一個Python script，它調用Perl script來解析文件。解析後，PERL腳本會生成一個輸出，該輸出將被加載到Python腳本中的MySQL數據庫中。 的Python腳本是這樣的： pipe = subprocess.Popen(["perl", "./parseGeneticCode.pl"], stdin=subprocess.PIPE) pipe.stdin.close(

python mysql perl 2013-09-22

---

1熱度

1回答

的Perl：如何訪問相同的兄弟姐妹

的價值觀，我想訪問我檢索到的NodeLists的每個單元格的值： $xc->registerNs('ns', 'urn:schemas-microsoft-com:office:spreadsheet'); foreach my $row ($xc->findnodes('/ns:Workbook/ns:Worksheet/ns:Table/ns:Row')) 它們具有以下格式： <Row>

xml perl 2013-09-22

---

0熱度

3回答

perl無法識別perforce命令

我正在嘗試編寫perl程序來對Perforce進行更改。 當我從命令行使用P4運行Perforce命令時，這些工作正常，但是當我在perl程序中編寫「使用P4」時，它無法識別P4類。 有沒有可能丟失的配置？ P.S> - 因爲它從命令行工作正常，我假設我的路徑設置正確。 這是我收到的錯誤： 無法找到對象的方法「新」經包裝「P4」（也許你忘了裝載「P4」？）在perlP4.pl線5 這是我的計劃：

perl perforce 2013-09-23

---