gosa-core/contrib/scripts/mkHash.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use DB_File;
   5
   6 my $db = "/var/spool/squid/domains.db";
   7 my %db;
   8
   9 tie(%db, 'DB_File', $db);
  10
  11 while(<>)
  12 {
  13         chomp;
  14         unless(exists($db{$_}))
  15         {
  16                 $db{$_} = 1;
  17         }
  18 }
  19
  20 untie %db;