subroutine

12熱度

3回答

所以我必須在短期有這個問題，一個文件... #!/usr/bin/perl -w package Foo; use strict; use POSIX; ... sub remove { ... } ... ，我得到一個得到一個錯誤說子程序remove已經被重新定義。我知道這個問題，在POSIX中有一個叫做remove的子程序。但是，我不知道如何處理它。這個問題通

4熱度

2回答

什麼是Perl分析中的CORE：match（opcode）子例程？

我以前在Perl中編寫過一些實用程序，現在我正在改寫它們以提供一些新的/更好的功能。但是，事情似乎比原來的工具慢得多，所以我決定用NYTProf分析器運行一個。偉大的配置文件順便說一句，仍然試圖找出其所有有用的功能。因此，無論如何，事實證明，我的程序的93％的時間正在用於撥打GeneModel::CORE:match (opcode)子程序，我有沒有想法是什麼。大多數Google點擊指向其他人發

4熱度

3回答

（）在Perl的子程序定義中完成了什麼？

以下代碼直接從Tie :: File模塊的源代碼中提取。在這種情況下，空括號在O_ACCMODE的定義中完成了什麼？我知道使用了哪些子程序原型，但這種用法似乎與此無關。 use Fcntl 'O_CREAT', 'O_RDWR', 'LOCK_EX', 'LOCK_SH', 'O_WRONLY', 'O_RDONLY'; sub O_ACCMODE() { O_RDONLY | O_RDWR |

1熱度

4回答

爲什麼在一個子程序中調用print會在字符串中追加1？

我已經創建了以下子例程性別，以隨機打印字符串MALE或FEMALE。調用子例程時，print命令在字符串末尾加上「1」。查看示例代碼和輸出如下： sub gender { if ((int rand(100)) >50) { print "MALE "; } else { print "FEMALE"; } } foreach

1熱度

2回答

封裝遞歸函數在Perl

我有那麼這裏工作的代碼： #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %graph =( F => ['B','C','E'], A => ['B','C'], D => ['B'], C => ['A','E','F'],

3熱度

2回答

爲什麼這行Perl本身只包含一個變量？

我喜歡perl，我越來越喜歡它，但是我有一個關於在我正在瀏覽的模塊的子例程中看到的一行的問題。 my $var = 1; .... .... .... .... $var; 什麼引起我只看到$var本身在一條線上。那只是回到1的迂迴路線嗎？非常感謝！簡

0熱度

4回答

在Perl中匹配n個圓括號正則表達式

我有一些數據，我在Perl中解析，並且將在不久的將來添加更多不同格式的數據。我想要做的是編寫一個易於使用的函數，我可以傳遞一個字符串和一個正則表達式，並且它會在圓括號中返回任何東西。它的工作是這樣的（僞）： sub parse { $data = shift; $regex = shift; $data =~ eval ("m/$regex/") fore

0熱度

3回答

我應該在Perl中使用嵌套子例程嗎？

我有5個Perl文件，它們是我的環境的5種不同狀態的驗證腳本。他們每個人都至少有幾個子程序。到目前爲止，州的數量限制爲5個，這些工作正常。但是現在，根據當前的設計，我還有20多個環境狀態，因此還有20多個Perl腳本。我想將所有五個腳本移動到只有一個腳本，該腳本將狀態作爲參數，並具有5個不同狀態的5個不同子例程。這樣，當我需要爲另一個狀態添加驗證時，我只需要定義一個新的子例程而不是全新

6熱度

2回答

如何在Perl中調用名稱爲散列值的子例程？

$ cat test.pl use strict; use warnings; sub route { print "hello, world!"; } my %h; $h{'a'} = 'route'; print "1\n"; $h{a}; print "2\n"; $h{a}(); print "3\n"; "$h{a}".(); $ perl

5熱度

1回答

如何判斷我在哪個子程序？

有沒有辦法獲得一段Perl代碼的封閉子例程的名稱？例如： sub foo { print where_am_i(); } 將輸出'foo'。