trunk/swish/brzak.pl

#!/usr/bin/perl -w

use strict;
use GDBM_File;

my $gdbm_file="./brzakona.gdbm";

my %br_zakona;
tie %br_zakona, 'GDBM_File', $gdbm_file, &GDBM_READER, 0640;
foreach (sort keys %br_zakona) {
#       printf("%-8s %3d %s\n",$_,$br_zakona{$_},"#" x $br_zakona{$_});
        printf("%-8s %3d %s\n",$_,$br_zakona{$_},'');
}
untie %br_zakona;
1	#!/usr/bin/perl -w
2
3	use strict;
4	use GDBM_File;
5
6	my $gdbm_file="./brzakona.gdbm";
7
8	my %br_zakona;
9	tie %br_zakona, 'GDBM_File', $gdbm_file, &GDBM_READER, 0640;
10	foreach (sort keys %br_zakona) {
11	# printf("%-8s %3d %s\n",$_,$br_zakona{$_},"#" x $br_zakona{$_});
12	printf("%-8s %3d %s\n",$_,$br_zakona{$_},'');
13	}
14	untie %br_zakona;