Référence trouvé où même la taille de la liste prévue

Je suis en train d'écrire ce code en perl, où j'ai créer une clé unique, puis de lui affecter une valeur. 

  sub populate {
      my $file = shift;
      my %HoH = shift;

      open(INFILE,$file);
      .
      .
      .  
      $final_name = $prepend.$five;
      $HoH{$final_name} = $seven;
 }

Maintenant, je suis de passage dans les deux paramètres à un sous-programme dont l'id comme 

&populate(\%abc,$file_1);
&populate(\%xyz,$file_2);

Pourquoi il me donne une erreur comme ceci:

Reference found where even-sized list expected
  • Quelle que soit la documentation que vous êtes en train de lire qui vous dit d'utiliser les deux arguments de la forme "ouverte" est obsolète. Utilisez les trois-argument forme: open my $INFILE, '<', $file. (Et vérifier les erreurs.)
  • mais $fichier contient l'adresse de l'emplacement du fichier.
  • Je ne suis pas sûr de ce que vous voulez dire par là. $file doit contenir le nom du fichier. Les appels open(INFILE, $file) et open my $INFILE, '<', $file sont à peu près équivalent, mais celle-ci est mieux. perldoc -f open pour plus d'informations. (Et il vous manque un '$' dans votre code source; my file = shift; devrait être my $file = shift;.)
  • oh que c'était une faute de frappe.Dans le code que j'avais tapé que. De sorte qu'il imprime les choses pour le 1er fichier, mais pas pour le 2ème fichier.
  • Il n'y a pas de print déclaration dans votre code. Comment peut-il imprimer quoi que ce soit?
  • C'est pourquoi vous devez copier-coller votre code, de ne pas retaper.
  • je vais garder cela à l'esprit.Et concernant l'impression , ce que je voulais dire, c'est stocker les valeurs dans la table de hachage HoH.

InformationsquelleAutor kunal | 2011-08-08
  1. 11

    Parce que votre valeur de hachage est attribué à une référence, et non pas une table de hachage (même de la taille de la liste). Ce que vous devez faire:

    my $hashref = shift;

...

$hashref->{$final_name} = $seven;

    ETA: Vous devez appeler des sous-programmes sans &, par exemple populate(...), sauf si vous souhaitez remplacer le prototype de la sous. Si vous ne savez pas ce qu'est un prototype, il suffit de ne pas utiliser &.

    ETA2: Vous devriez vraiment utiliser un descripteur de fichier lexical et trois-argument ouvrir. Considérons ce scénario:

    open INFILE, $file;
some_sub();
$args = <INFILE>;  # <--- Now reading from a closed filehandle

sub some_sub {
    open INFILE, $some_file;
    random code...
    close INFILE;
}
    • merci.Je les ai passé dans la table de hachage de la sous-routine correctement &remplir(\%abc,$file_1)
    • Eh bien, non, puisque vous êtes l'attribution \%abc pour le fichier, et $file_1 pour le hachage.
    • il me donne un message d'erreur indiquant que l'Utilisation de la valeur non initialisée en ouvert.Je suis l'ouverture comme cette ouverture(<INFILE>,$fichier)
    • où je suppose que la valeur de file_1 sera utilisé par $fichier pour la 1ère fois, puis la valeur de file_2 sera utilisé par $fichier pour la 2ème fois.
    • vous voulez dire que j'ai changé les variables à tort?
    • Oui, maj prend la première valeur dans une liste. Donc, avec populate(\%abc, $file_1), la première shift est le hachage, le deuxième le fichier.
    • :je comprends maintenant.Je crois que l'erreur que j'ai fais est notamment l'ouverture du fichier dans la sous-routine.Mais alors, n'est-ce pas beau? Je suis passant la valeur de l' $fichier de n, puis de l'exploitation sur elle.
    • remplir(\%synt,$syn_file); sous peuplent { my $HoH = shift; my $fichier = shift; open(INFILE,$fichier); $flag = 0; while (<INFILE>) C'est ce que je fais et il me donne une erreur.
    • J'ai répondu à votre question. Si vous avez une nouvelle question, poser une nouvelle question. Ne pas continuer à demander des suivis dans les commentaires.
    • Lorsque j'essaie d'imprimer les variables $_0,$_1 et ainsi de suite.....je le trouve vide.Rien n'est stockée en eux.
    • $_[0], $_[1] sont les variables que vous cherchez. Ils sont les deux premiers éléments de la @_ tableau.

    InformationsquelleAutor TLP