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 my $key ( keys %hash ){
my $value = $hash{$key};
print "$key : $value\n";
}
}
%hash = ('name' => 'W3xue', 'age' => 3);
# 传递哈希
PrintHash(%hash);
| Editor Settings | |
|---|---|
| Theme | |
| Key bindings | |
| Full width | |
| Lines |