perl中的grep錯誤

Question

Perl的新手。我試圖從一個哈希數組的值。有人可以解釋爲什麼我會得到未初始化的值錯誤當我嘗試

#!/usr/bin/perl 
use strict; 
use warnings; 

my %families = (Flintstone => [ qw(Pebbles)     ], 
      Simpson => [ qw(Bart Lisa Maggie)   ], 
      Keaton  => [ qw(Alex Mallory Jennifer Andy) ]); 
my $user = 'Mary'; 
foreach my $name (keys %families) 
{ 
    print "$name has @{$families{$name}} \n"; 

    if (grep /$user/,@{families{$name}}) 
    { 
    print "User $user found \n" 
    } 
    else 
    { 
    print "User $user not found"; 
    } 
} 

更新：謝謝。我修正了$ name。但grep似乎並不適合我。即如果我將$用戶更改爲Bart，我仍然找不到用戶Bart。

Answer 1

您的意思是

@{$families{$name}} 

而不是

@{families{name}} 

也許？

Answer 2

你會注意到第13行出現錯誤，而第11行沒有出現錯誤？缺失的$可能很重要。