Leser: 1
5 Einträge, 1 Seite |
1
2
3
4
5
6
foo = [2, 3]
bar = [4, 5]
sum = Hash.new { |hash, key| hash[key] = key.first + key.last }
p sum[foo]
p sum[bar]
p sum
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use warnings;
use Tie::Hash::DarmstadtPM;
tie my %hash,'Tie::Hash::DarmstadtPM',sub{$_[0] + $_[-1]};
my $foo = [2,3];
my $bar = [4,5];
print $hash{$foo},"\n";
print $hash{$bar},"\n";
5 Einträge, 1 Seite |