Hash problem

LoL troede lige jeg kunne give en addresse til en meget dårlig ven der kunne få dig til at lave selvmord fordi du ikke gad at h0re på ham og dit Hash problem!

Dette her giver det resultat du efterlyser, men jeg er alt andet end overbevist om at det er det du er ude efter:

for ($index = 0; $index <= 10; $index++) {
  $HASH{$index} = $index+1;
  print($HASH{$index});
}

Du er forhåbentlig klar over at den hash du arbejder med, har 11 elementer?

hvad er hashhelt korekt

$key er en streng og $value er en integer.  Jeg vil gerne lægge en til $values nuværende værdi altså, $RESULTS{$key} = $RESULTS{$key}+1;  Dette virker ikke og jeg kan ikke forstå hvorfor.

Her er lidt af koden:

while (($key, $value) = each(%RESULTS))
{
  if ($key eq $word) {
    $RESULTS{$key} = $RESULTS{$key}+1;
  } else {
    $RESULTS{$word} = 0;
  }
}

Din løkke til at løbe hashen igennem ser rigtig nok ud, er du sikker på at $word indeholder det du forventer? Prøv at indsætte

print "key = $key, word = $word\n";

umiddelbart inden if-sætningen

Ah, det indeholder også tekst og ikke et tal..  Koden ser således ud:

sub scan()
{
  my (%RESULTS);
  my $flag;
   
  $RESULTS{"INIT"} = 0;
  foreach $file (@SPAM_FILES)
  {
    open(FILE, "<$file") || die($!);
    while (<FILE>)
    {
      @WORDS = split('\s+', $_);
      foreach $word (@WORDS)
      {
        while (($key, $value) = each(%RESULTS))
        {
          print "key = $key, word = $word\n";
          if ($key eq $word) {
      $RESULTS{$key} = ($RESULTS{$key} + 1);
        } else {
      #print("NOT\n");
          $RESULTS{$word} = 0;
        }
      }
    }
    while (@WORDS) { pop(@WORDS); }
  }
  close(FILE);
}
}

Du kommer til at give en lidt mere overordnet forklaring på hvad det er, du ønsker at opnå. Jeg kan ikke gætte det udfra den kode du har vist, især ikke, da jeg må gå ud fra, at det ikke virker som ønsket.

Du har desuden en list @SPAM_FILES, som ser ud til at indeholde filnavne. Der er også brug for, at du viser et par eksempler på indholdet af disse filer, helst med forklaring.

Det jeg gerne vil er at løbe en fil igennem og tælle hvor mange gange et ord findes i filen.  Jeg har valgt at placere resultaterne i en hash hvor nøglen ($key) indeholder ordet og det antal gange ordet forekommer i filen placeres i værdien ($value).

Så vidt jeg kan bedømme, må det kunne klares som vist herunder, hvor en af de vigtige ting er, at jeg har flyttet erklæringen af %RESULTS uden for scan, da den ellers ikke ville være tilgængelig udenfor scan. Jeg må nok bemærke, at det IKKE er testet.

my %RESULTS;

sub scan()
{
  foreach $file (@SPAM_FILES)
  {
    open(FILE, "<$file") || die($!);
    while (<FILE>)
    {
      foreach $word (split('\s+', $_))
      {
        $RESULTS{$word}++;
      }
    }
    close(FILE);
  }
}