如何调用子哈希（$）函数

Question

以下是短程序的源代码：

http://info.fenster.name/misc/task_hash.pm.txt

有评论

用法：$hashref = hash($sourcecode);

但我没有使用Perl的经验。

请写一个例子，如何调用这些函数，例如，使用字符串«#include <iostream> int main(){return 0;}»

UPD。代码：

子哈希（$） { ... } 如何调用它？

Answer 1

perl中的子程序是使用sub定义并使用子程序名称调用。

因此，将定义一个名为hash的子程序（这是一个非常糟糕的名称选择，因为哈希是Perl中的其他东西）：

sub hash($) { 
    my ( $first_arg ) = @_; 

    my $some_result = $first_arg;  

    return $some_result;
}

子例程定义中的($)是一个原型，它表示'此哈希需要单个标量'。

要调用此子例程：

 my $subroutine_output = hash("some test text");

就这么简单。 （但严重的是 - 不要调用子程序hash - 这只是要求悲伤）。