会python真的可以为所欲为0(回)
359天前
这里还有人吗1(回)
545天前这里还有人吗0(回)
545天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
769天前到处都是羊，不想上班0(回)
849天前
鸽子
0(回)
853天前#----------------------------- |
use DB_File; |
# specify the Perl sub to do key comparison using the |
# exported $DB_BTREE hash reference |
$DB_BTREE-> {'compare'} = sub |
{ |
my ( $key1, $key2 ) = @_ ; |
return "\L$key1" cmp "\L$key2"; |
}; |
tie ( %hash, "DB_File", $filename, O_RDWR|O_CREAT, 0666, $DB_BTREE ) |
or die "can't tie $filename: $!"; |
#----------------------------- |
# download the following standalone program |
#!/usr/bin/perl |
# sortdemo - show auto dbm sorting |
use strict; |
use DB_File; |
$DB_BTREE-> {'compare'} = sub |
{ |
my ( $key1, $key2 ) = @_ ; |
"\L$key1" |
cmp "\L$key2" ; |
}; |
my %hash; |
my $filename = '/tmp/sorthash.db'; |
tie ( %hash, "DB_File", $filename, O_RDWR|O_CREAT, 0666, $DB_BTREE ) |
or die "can't tie $filename: $!"; |
my $i = 0; |
for my $word ( qw ( Can't you go camp down by Gibraltar)) { |
$hash{$word} = ++$i; |
} |
while (my($word, $number) = each %hash) { |
printf "%-12s %d\n", $word, $number; |
} |
#----------------------------- |
#by 6 |
# |
#camp 4 |
# |
#Can't 1 |
# |
#down 5 |
# |
#Gibraltar 7 |
# |
#go 3 |
# |
#you 2 |
#----------------------------- |
tie ( %hash, "DB_File", undef, O_RDWR|O_CREAT, 0666, $DB_BTREE ) |
or die "can't tie: $!"; |
#----------------------------- |
