Lesen einer tab-getrennte Datei in den hash in perl und Suche

Erstens, ich interpretiere deine Frage zu spezifisch sein, um Duplikate auf Schlüssel/Werte Paare. Dies ist etwas umständlich, -- die normale Frage ist nur zum testen für den Schlüssel, aber wir können Schlüssel-Wert, indem Sie beide den Schlüssel und den Wert der Eingabe einer Funktion verwenden, erzeugt von neuem Schlüssel.

Wenn Sie nur mit einem tab-deliminated CSV, verwenden Sie Text::CSV und seien Sie versichert, dass es richtig gemacht ist und die komplexesten Fälle sind abgedeckt! Installieren Text::CSV_XS, um es sehr schnell zu.

use strict;
use warnings;
use Data::Dumper;
use Text::CSV;
use IO::Handle;

my $csv = Text::CSV->new({sep_char=>"\t"});
my $fh = IO::Handle->new_from_fd( *DATA, 'r' );

while ( not $fh->eof ) {
  my $row = $csv->getline( $fh );
  warn Dumper $row;
}

__DATA__
aa1 aaa2
aaa1  bbb2
aaa1  ccc2 
ccc1  ddd2
eee2  aaa2

Nachdem Sie verstehen, dass der rest der übung ist auch einfach. Ich verwende einen sehr einfachen algo, dass sha1 ' ed key und Wert verkettet die beiden und indiziert ein hash ist. Dies eliminiert die listigen versuche, Kollisionen, aber möglicherweise nicht notwendig für Ihre Aufgabe. Fühlen Sie sich frei, Fragen zu stellen.

use feature ':5.10';
use strict;
use warnings;
use Data::Dumper;
use Text::CSV;
use IO::Handle;
use Digest::SHA qw(sha1_hex);

my $csv = Text::CSV->new({sep_char=>"\t"});
my $fh = IO::Handle->new_from_fd( *DATA, 'r' );

my ( %kv, %sha1_kv );
while ( not $fh->eof ) {
  my $row = $csv->getline( $fh );
  my ($k, $v) = @$row;

  my $sha1 = sha1_hex($k) . sha1_hex($v);

  if ( exists $sha1_kv{ $sha1 } ) {
    say "We have a hit (key/value dupe) for $sha1 [key: $k]";
  }
  else {
    $kv{ $k } = $v;
    $sha1_kv{ $sha1 } = $v;
  }

  warn Dumper $row;
}

__DATA__
aa1 aaa2
aa1 aaa2
aaa1  bbb2
aaa1  ccc2 
ccc1  ddd2
eee2  aaa2

Ihre input-Datei wird das Ergebnis in nur drei hash-element, weil die Tasten dupliziert werden. Im wirklichen Leben Sie haben, um mit dieser Art von situation, aber ich in diesem Fall ändern Sie Ihre Eingabe-Datei:

aaa1    aaa2
bbb1    bbb2
ccc1    ccc2
ccc1    ddd2
eee2    aaa2

Hier einige Verbesserungs-code:

#!/usr/local/bin/perl

#always use strict and warnings
use strict;
use warnings;
use Data::Dumper;

hash_test();
#Try to put your code in separate subs if possible 
sub hash_test {
   my %hashname = ();
   read_into_hash( \%hashname );
   print Dumper( \%hashname );    # Test your hash
   search_hash( \%hashname, "eee2", "aaa2" );
}

sub read_into_hash {

   #Always declare variables
   my $list1;
   my $tmpvar1;
   my $tmpvar2;
   my $hash_ref = shift;
   my $lineno = 0;
   open( $list1, "<", "/inpFile.txt" ) or die "File not found\n";
   while (<$list1>) {
       $lineno++;
       chomp;    #delete new line character
       ( $tmpvar1, $tmpvar2 ) = split( /\t/, $_ );
       if (defined $hash_ref->{$tmpvar1})
       {
         # adding lineno from file to avoid overwriting. I use '~' just in case
         # if your keys could include such character, use something else
         $tmpvar1 .= "~" . $lineno;
       }
       $hash_ref->{$tmpvar1} = $tmpvar2;

   }

   close($list1);
}

sub search_hash {
   my $hash_ref = shift;
   my $key      = shift;
   my $value    = shift;

   if (defined $hash_ref->{$key} && $hash_ref->{$key} =~ /^$value(\~\d+)*$/)
   {
           print "Found.\n";
       }
}