Perl：找到一名球员的球队。有更优雅的方式吗？

Question

我在文件teams.txt中有几个团队看起来像：

team1 = {bob marc steve}
team2 = {john maria} 

文件格式我可以根据自己的口味改变。

现在我需要找出一个球员，说bob属于哪支球队。 到目前为止，我正在使用open file -> while -> match pattern。

我想知道我是否可以重新格式化文件teams.txt并使用Config :: General或 来自cpan的任何其他先入为主的工具。

请允许我享受很多新想法！ （使用perl 5）

Answer 1

如果它是真正的单词任务且文件很大，我会使用SQLite和一些基本的SQL查询来获取这些信息。

令人讨厌，但很简单：

my $player = 'john';
#return only the team names
my @found  = `grep -w $player file1 file2 | cut -f1 -d"="`;
chomp(@found);
if (@found){
  print "We found $player in teams: ".join(',',@found)."\n";
}