perl5

1熱度

1回答

考慮下面的文字，可能是從JMeter的HTTP響應的一部分： <menu id="Alpha" name="alpha"> <option value="a">A</option> <option value="b">B</option> <option value="c" selected="selected">C</option> </menu> <menu

1熱度

3回答

Perl中的OO範式和封裝的實例變量

我需要一種方法來在Perl中創建真正的封裝變量，而不使用像Moose這樣的任何框架，以便您只能通過getter和setter訪問實例變量。應該有私人實例變量。子程序分別的方法不是問題，因爲你可以定義它們，以便它們只能通過實例和引用來使用。但是你總是可以通過包名來訪問變量，比如class-vars。有什麼辦法可以防止這種情況發生？

2熱度

1回答

什麼是Perl 5的可用編譯器/解釋器？

像C那裏gcc，borland和更多的編譯器可用，我想知道是否有任何其他編譯器/解釋器可用於Perl 5？從我的閱讀中，我瞭解到有perlcc將代碼編譯爲B：OP格式，然後使用解釋器將選項轉換爲機器可執行文件。

1熱度

2回答

不一致Perl 5中（傻？）的數據訪問（也困惑我關於使用印記的）

這個問題是關於要求在Perl的系統發生了什麼事情的一些解釋，因爲我不含蓄明白這一點，雖然我」現在編碼已經有25年多了。所以這裏的故事... 試圖在Perl5中與Cyrus::IMAP::Admin實例一起工作我試圖獲取並打印配額列表，導致返回的結構化數據有點奇怪。 my %quotas = $client->listquota(@list[0]); if ($client->error) {

0熱度

1回答

語言環境未在Perl工作在FreeBSD

下不工作（輸出在俄羅斯的消息對我試圖打開一個不存在的目錄），在Debian的Linux的perl5（修訂版本5 22顛覆2）（擊）： LANGUAGE=ru_RU.UTF-8 perl -Mstrict -Mwarnings -Mlocale -e 'opendir my $fh, "afdsfd"; print $!, "\n"' 但是在FreeBSD perl5（修訂版本5版本20 subve

1熱度

2回答

Perl open2（）與SIGCHLD一起死鎖？

從FreeBSD上我打開幾個子進程與IPC::Open2::open2()，傳遞給每一個進程中的「參數」，通過它的標準輸入一個Perl腳本（也許我應該關閉後，這個標準輸入），也是我做的事： sub handle_SIGCHLD { for(;;) { my $kid = waitpid(-1, WNOHANG); break if $kid == 0; my

1熱度

1回答

在匹配模式之前獲得單個匹配嗎？

我有一個像下面 {"id":9,"announcementName":"Test","announcementText":"<p>TestAssertion</p>\n","effectiveStartDate":"03/01/2016","effectiveEndDate":"03/02/2016","updatedDate":"02/29/2016","status":"Active","mo

8熱度

4回答

什麼是間接對象符號，它爲什麼不好，以及如何避免它？

標題幾乎總結了它，但這裏是長版本無論如何。在發佈了一小段Perl代碼後，我被告知避免間接對象符號，「因爲它有幾個副作用」。註釋引用這一行： my $some_object = new Some::Module(FIELD => 'value'); 由於這是我怎麼總是做了，在努力與時代獲得，因此我問：爲何如此糟糕呢？（具體地）潛在（可能是負面的）副作用是什麼？該行應該如何重寫？我要問

0熱度

2回答

無法通過包裝定位對象的方法，即使我沒有使用方法

我有代碼大致是這樣的：（！當然，這是一個簡化版本） sub define_pattern { push @Internal::patterns, $_[0]; } package Internal { our @patterns =(); sub func { define_pattern { pattern => '(.*)\.c$' }; } } Interna

0熱度

1回答

繼續命令忽略斷點

我收到錯誤使用CPAN和，因爲輸出是相當無益的，訴諸於調試此。 $ perl -d /usr/bin/cpan CPAN Loading DB routines from perl5db.pl version 1.33 <...> main::(/usr/bin/cpan:2): eval 'exec /usr/bin/perl -S $0 ${1+"[email protected]