/[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

Contents of /swish/brzak.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Sun Sep 28 02:19:59 2003 UTC (20 years, 6 months ago) by dpavlin
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +1 -1 lines
File MIME type: text/plain
full text search, move Lingua::Spelling::Alternative generation to cgi script
(to decrease size of index file), search by years

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 }
13 untie %br_zakona;

  ViewVC Help
Powered by ViewVC 1.1.26