comparison: bin/kv
bin/kv
- changeset 1142
- dd4f69be5e32
- parent 1115
- 15ca9da8cd59
equal
deleted
inserted
replaced
| 1141:00240c15eca5 | 1142:dd4f69be5e32 |
|---|---|
| 2 use v5.32; | 2 use v5.32; |
| 3 use Fcntl; | 3 use Fcntl; |
| 4 use AnyDBM_File; | 4 use AnyDBM_File; |
| 5 | 5 |
| 6 my ($filename, $method, @args) = @ARGV; | 6 my ($filename, $method, @args) = @ARGV; |
| 7 | |
| 8 $filename .= ".$]"; | |
| 7 | 9 |
| 8 tie my %h, 'AnyDBM_File', $filename, O_RDWR|O_CREAT, 0660 | 10 tie my %h, 'AnyDBM_File', $filename, O_RDWR|O_CREAT, 0660 |
| 9 or die "tie $filename: $!"; | 11 or die "tie $filename: $!"; |
| 10 | 12 |
| 11 $, = "\n"; | 13 $, = "\n"; |
