/[nn]/swish/brzak.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /swish/brzak.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by dpavlin, Wed Sep 3 15:34:58 2003 UTC revision 1.2 by dpavlin, Sun Sep 28 02:19:59 2003 UTC
# Line 6  use GDBM_File; Line 6  use GDBM_File;
6  my $gdbm_file="./brzakona.gdbm";  my $gdbm_file="./brzakona.gdbm";
7    
8  my %br_zakona;  my %br_zakona;
9  tie %br_zakona, 'GDBM_File', $gdbm_file, &GDBM_WRCREAT, 0640;  tie %br_zakona, 'GDBM_File', $gdbm_file, &GDBM_READER, 0640;
10  foreach (sort keys %br_zakona) {  foreach (sort keys %br_zakona) {
11          printf("%-8s %3d %s\n",$_,$br_zakona{$_},"#" x $br_zakona{$_});          printf("%-8s %3d %s\n",$_,$br_zakona{$_},"#" x $br_zakona{$_});
12  }  }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26