perl/phash.pl

   1 #! /usr/bin/env perl
   2
   3
   4 # not completed, possibly not needed
   5
   6 use strict;
   7 use warnings;
   8
   9 use lib 'lib';
  10
  11 use phash;
  12
  13 my %data = read_input;
  14 my($n, $sv, $g) = gen_perfect_hash(%data);
  15
  16 use Data::Dump 'dump';
  17 use 5.010;
  18 say STDERR dump \%data;
  19 say STDERR dump $n,$sv,$g;
  20
  21
  22   print "static int HASHNAME_fg1[$n] =\n{\n";
  23
  24   for( my $i = 0; $i < $n; $i++ ){
  25     no warnings 'uninitialized';
  26     my $h = ${$g}[$i*2+0] || 'UNUSED';
  27     say $h;
  28     #print "\t", ${$g}[${$f1}[$i]], "\n";
  29   }
  30
  31   print "};\n\n";
  32
  33
  34
  35   print "static int HASHNAME_fg2[$n] =\n{\n";
  36
  37   for( my  $i = 0; $i < $n; $i++ ){
  38     no warnings 'uninitialized';
  39     no warnings 'uninitialized';
  40     my $h = ${$g}[$i*2+1] || 'UNUSED';
  41     say $h;
  42     #print "\t", ${$g}[${$f2}[$i]], "\n";
  43   }
  44
  45   print "};\n\n";
  46
  47
  48   print <<END;
  49 struct p_hash HASHNAME =
  50 {
  51 \t$n
  52 \t$sv->[0],$sv->[1]
  53 \tHASHNAME_fg1,
  54 \tHASHNAME_fg2,
  55 };
  56 END