一个在按照人名找同组成员的脚本

#!perl

chomp, /^\[([^]]*)\]$/ ? $group = $1 : ($member_of{$group} = join("\0", $member_of{$group}, $_), push @{$group_of{$_}},\$member_of{$group} ) while (<DATA>);
while (<STDIN>) {
chomp;
print "group: ". ${$_} . "\n" foreach ( @{$group_of{$_}});
}
__DATA__
[group1]
tom
jack
sally
bill
[group2]
vito
pita
mike
[group3]
vito1
pita
mike2