Untitled
| Run Settings | |
|---|---|
| Language | Perl |
| Language Version | |
| Run Command |
| Snippet Metadata | |
|---|---|
| Owner | w3xue |
| Created | |
| Modified | |
| Visibility | Public |
#!/usr/bin/perl
# 函数定义
sub PrintHash{
my (%hash) = @_;
foreach $item (%hash){
print "元素 : $item\n";
}
}
%hash = ('name' => 'W3xue', 'age' => 3);
# 创建函数的引用
$cref = \&PrintHash;
# 使用引用调用函数
&$cref(%hash);
| Editor Settings | |
|---|---|
| Theme | |
| Key bindings | |
| Full width | |
| Lines |