Stampa hash in Perl

Question

Desidero sapere il seguente codice perché stampare "2/8".

#!/usr/bin/perl 
#use strict; 
#use warnings; 
%a = ('a'=>'dfsd','b'=>'fdsfds'); 
print %a."\n"; 

Answer 1

si sta stampando un hash in scalar context concatenando con una stringa '\ n'

Se si valuta un hash in contesto scalare, restituisce false se l'hash è vuoto. Se ci sono coppie chiave/valore, restituisce true; altro con precisione, il valore restituito è una stringa costituita dal numero di bucket utilizzati e dal numero di bucket allocati, separati da una barra .

2/8 significa che i allocati, sono stati toccati. Considerando che hai inserito solo valori 2, sta andando bene finora :)

Il valore è ovviamente inutile, tranne per valutare quanto bene sta facendo la funzione hash. Utilizzare print %a; per stampare il suo contenuto.

Answer 2

Come indicato da @Dark .. si stampa un hash in contesto scalare.

se davvero si vuole stampare un hash, quindi utilizzare Data :: Dumper

use Data::Dumper; 
... 
... 
print Dumper(%a); 

per esempio:

use Data::Dumper; 
my %hash = (key1 => 'value1', key2 => 'value2'); 
print Dumper(%hash); # okay, but not great 
print "or\n"; 
print Dumper(\%hash); # much better 

E l'output:

$VAR1 = 'key2'; 
$VAR2 = 'value2'; 
$VAR3 = 'key1'; 
$VAR4 = 'value1'; 
or 
$VAR1 = { 
      'key2' => 'value2', 
      'key1' => 'value1' 
      };