我正在编写一个Perl脚本，该脚本允许其用户搜索演员所在的每部电影。我正在使用Text :: CSV模块从CSV文件中获取数据。电影字幕是在此CSV文件中以一个大字符串形式出现的，因此，要编写此脚本，我必须使用模式匹配，这是我正在尝试的方法，但是，当脚本运行时，该脚本当前不输出任何电影，而我使用的名称已经存在数据。这只是我总体代码的一部分，其他返回诸如高收益电影数据之类的功能的函数则被省略。我使用的数据来自两个单独的文件，一个包含每个具有ID主键及其功劳的电影，另一个包含相同的ID主键以及其他数据，包括电影的标题。
$row->[2] is where the ID is contained in @creditsRows,
$mRow->[5] is where the ID is contained in @moviesRows,
$mRow->[20] is where the movie's title is contained in @moviesRows
当模式匹配时，我试图将电影的名称推送到@movies数组上。
my $act;
my $id;
print("Enter an Actor/Actress:\n");
$act = <STDIN>;
my @movies;
for my $row (@creditsRows) {
if ($row->[0] =~ /$act/) {
$id = $row->[2];
for my $mRow (@moviesRows) {
if ($id == $mRow->[5])
{
my $isMovie = $mRow->[20];
push @movies, $isMovie;
}
}
}
}
print @movies;