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	dpavlin	87	#!/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	dpavlin	91	tie %br_zakona, 'GDBM_File', $gdbm_file, &GDBM_READER, 0640;
10	dpavlin	87	foreach (sort keys %br_zakona) {
11	dpavlin	97	# printf("%-8s %3d %s\n",$_,$br_zakona{$_},"#" x $br_zakona{$_});
12			printf("%-8s %3d %s\n",$_,$br_zakona{$_},'');
13	dpavlin	87	}
14			untie %br_zakona;