nn/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_WRCREAT, 0640;
foreach (sort keys %br_zakona) {
        printf("%-8s %3d %s\n",$_,$br_zakona{$_},"#" x $br_zakona{$_});
}
untie %br_zakona;
1	dpavlin	1.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_WRCREAT, 0640;
10			foreach (sort keys %br_zakona) {
11			printf("%-8s %3d %s\n",$_,$br_zakona{$_},"#" x $br_zakona{$_});
12			}
13			untie %br_zakona;