Arrays Perl读取一个文件和一个数组并查找常用词
这是一个小问题，我希望你能帮助我。我的代码可能是垃圾。例如，我有一个文件，其中唯一的语句是Arrays Perl读取一个文件和一个数组并查找常用词,arrays,perl,intersection,words,Arrays,Perl,Intersection,Words,这是一个小问题，我希望你能帮助我。我的代码可能是垃圾。例如，我有一个文件，其中唯一的语句是约翰是山姆大叔。我的Perl脚本应该将文件内容复制到数组中。用户应该能够输入不同的名称，并在文件中提到这些名称时进行搜索。节目中应该有“叔叔、婶婶、母亲、父亲等”的关系数组 #use warnings; use Array::Utils qw(:all); print "Please enter the name of the file\n"; my $c = <STDIN>; open(N
约翰是山姆大叔#use warnings;
use Array::Utils qw(:all);
print "Please enter the name of the file\n";
my $c = <STDIN>;
open(NEW,$c) or die "The file cannot be opened";
@d = <NEW>;
print @d, "\n";
@g = qw(aunt uncle father);
chomp @d;
chomp @g;
my $e;
my $f;
print "Please enter the name of the first person\n";
my $a = <STDIN>;
print "Please enter the name of the second person\n";
my $b = <STDIN>;
my @isect = intersect(@g, @d);
print @isect;
foreach(@d)
{
if ($a == $_)
{
$e = $a;
}
else
{
print "The first person is not mentioned in the article";
exit();
}
if ($b == $_)
{
$f = $b;
}
else
{
print "The second person is not mentioned in the article";
exit();
}
}
print $e;
print $f;
close(NEW);
#使用警告；
使用数组：：Utils qw（：all）；
打印“请输入文件名\n”；
我的$c=；
打开（新，$c）或死“文件无法打开”；
@d=；
打印@d，“\n”；
@g=qw（阿姨叔叔父亲）；
chomp@d；
chomp@g；
我的$e；
我的$f；
打印“请输入第一个人的姓名\n”；
我的$a=；
打印“请输入第二个人的姓名\n”；
我的$b=；
my@isect=intersect（@g，@d）；
打印@isect；
foreach（@d）
{
如果（$a=$）
{
$e=$a；
}
其他的
{
打印“文章中未提及第一人”；
退出（）；
}
如果（$b=$）
{
$f=$b；
}
其他的
{
打印“文章中未提及第二个人”；
退出（）；
}
}
打印$e；
打印$f；
关闭（新）；
这是我到目前为止已经做过的事情，交叉点并没有给出单词“叔叔”，这是两个数组中常用的单词。该程序将随机抽取任何名称并打印它们。当我输入除John和Sam以外的其他名称时，并不是说文件中不存在该名称，而是存在以下几个问题：
chompopen|==eq==索引$a有几个问题：
chompopen|==eq==索引$a不要尝试将字符串与
==eqchomp$a#!/usr/bin/perl
use strict;
use warnings;
print "Please enter the name of the file\n";
my $c = <STDIN>;
open(NEW,$c) or die "The file cannot be opened";
my @d = <NEW>;
chomp @d;
my $e;
my $f;
print "Please enter the name of the first person\n";
my $aa = <STDIN>;
print "Please enter the name of the second person\n";
my $bb = <STDIN>;
chomp $aa;
chomp $bb;
my $pattern_a = quotemeta $aa;
my $pattern_b = quotemeta $bb;
foreach (@d){
if ($_ =~ /$pattern_a/){
$e = $aa;
}
elsif ($_ =~ /$pattern_b/){
$f = $bb;
}
}
close(NEW);
unless ($e){
print "First person not mentionend\n";
}
unless ($f){
print "Second person not mentioned\n";
}
#/usr/bin/perl
严格使用；
使用警告；
打印“请输入文件名\n”；
我的$c=；
打开（新，$c）或死“文件无法打开”；
我的@d=；
chomp@d；
我的$e；
我的$f；
打印“请输入第一个人的姓名\n”；
我的$aa=；
打印“请输入第二个人的姓名\n”；
我的$bb=；
咀嚼$aa；
咀嚼$bb；
my$pattern_a=quotemeta$aa；
我的$pattern_b=quotemeta$bb；
foreach（@d）{
如果（$\u=~/$pattern\u a/）{
$e=$aa；
}
elsif（$\=~/$pattern\u b/）{
$f=$bb；
}
}
关闭（新）；
除非（e美元）{
打印“第一人称未提及结束\n”；
}
除非（f美元）{
打印“未提及的第二个人\n”；
}
=eqchomp$a#!/usr/bin/perl
use strict;
use warnings;
print "Please enter the name of the file\n";
my $c = <STDIN>;
open(NEW,$c) or die "The file cannot be opened";
my @d = <NEW>;
chomp @d;
my $e;
my $f;
print "Please enter the name of the first person\n";
my $aa = <STDIN>;
print "Please enter the name of the second person\n";
my $bb = <STDIN>;
chomp $aa;
chomp $bb;
my $pattern_a = quotemeta $aa;
my $pattern_b = quotemeta $bb;
foreach (@d){
if ($_ =~ /$pattern_a/){
$e = $aa;
}
elsif ($_ =~ /$pattern_b/){
$f = $bb;
}
}
close(NEW);
unless ($e){
print "First person not mentionend\n";
}
unless ($f){
print "Second person not mentioned\n";
}
#/usr/bin/perl
严格使用；
使用警告；
打印“请输入文件名\n”；
我的$c=；
打开（新，$c）或死“文件无法打开”；
我的@d=；
chomp@d；
我的$e；
我的$f；
打印“请输入第一个人的姓名\n”；
我的$aa=；
打印“请输入第二个人的姓名\n”；
我的$bb=；
咀嚼$aa；
咀嚼$bb；
my$pattern_a=quotemeta$aa；
我的$pattern_b=quotemeta$bb；
foreach（@d）{
如果（$\u=~/$pattern\u a/）{
$e=$aa；
}
elsif（$\=~/$pattern\u b/）{
$f=$bb；
}
}
关闭（新）；
除非（e美元）{
打印“第一人称未提及结束\n”；
}
除非（f美元）{
打印“未提及的第二个人\n”；
}
eq=~@geq