会python真的可以为所欲为0(回)
359天前
这里还有人吗1(回)
544天前这里还有人吗0(回)
544天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
769天前到处都是羊，不想上班0(回)
849天前
鸽子
0(回)
853天前#----------------------------- |
use MLDBM 'DB_File'; |
tie ( %HASH, 'MLDBM', [... other DBM arguments] ) or die $!; |
#----------------------------- |
# %hash is a tied hash |
$hash {"Tom Christiansen"} = [ "book author", 'tchrist@perl.com' ]; |
$hash {"Tom Boutell"} = [ "shareware author", 'boutell@boutell.com' ]; |
# names to compare |
$name1 = "Tom Christiansen"; |
$name2 = "Tom Boutell"; |
$tom1 = $hash {$name1}; |
# snag local pointer |
$tom2 = $hash {$name2}; |
# and another |
print "Two Toming: $tom1 $tom2\n"; |
Tom Toming: |
ARRAY ( 0x73048 ) ARRAY ( 0x73e4c ) |
#----------------------------- |
if ( $tom1->[0] eq $tom2->[0] && |
$tom1->[1] eq $tom2->[1] ) |
{ |
print "You're having runtime fun with one Tom made two.\n"; |
} |
else |
{ |
print "No two Toms are ever alike.\n"; |
} |
#----------------------------- |
if ( $hash {$name1}->[0] eq $hash {$name2}->[0] && # INEFFICIENT |
$hash {$name1}->[1] eq $hash {$name2}->[1] ) |
{ |
print "You're having runtime fun with one Tom made two.\n"; |
} |
else |
{ |
print "No two Toms are ever alike.\n"; |
} |
#----------------------------- |
$hash {"Tom Boutell"}->[0] = "Poet Programmer"; |
# WRONG |
#----------------------------- |
$entry = $hash {"Tom Boutell"}; |
# RIGHT |
$entry->[0] = "Poet Programmer"; |
$hash {"Tom Boutell"} = $entry; |
#----------------------------- |
