在Perl数组中包含文件数据
我试图将文件中的所有数据传递到Perl数组中，然后尝试使用foreach循环来处理数组中的每个字符串。问题是foreach不是打印每一行而是打印整个数组在Perl数组中包含文件数据,perl,Perl,我试图将文件中的所有数据传递到Perl数组中，然后尝试使用foreach循环来处理数组中的每个字符串。问题是foreach不是打印每一行而是打印整个数组 while (<FILE>) { $_ =~ s/(\)|\()//g; push @array, $_; } foreach $n(@array) { print "$n\n"; } while（）{ $\=~s/（\）\（）///g； 推送@数组，$\； } foreach$n（@array）{ 打印“$n\n”
while (<FILE>) {
$_ =~ s/(\)|\()//g;
push @array, $_;
}
foreach $n(@array) {
print "$n\n";
}
while（）{
$\=~s/（\）\（）///g；
推送@数组，$\；
}
foreach$n（@array）{
打印“$n\n”；
}
@array=qw（他每天上学）数组打印正确，但foreach循环不是在不同的行上打印每个元素，而是打印整个数组。阅读您的评论后，我猜您的问题是源文件不包含任何换行符：即整个文件只有一行。一些文本编辑器只是包装文本，而没有实际添加任何换行字符 这个问题没有“解决办法”；必须在需要换行符的位置添加换行符。你可以写一个脚本来做这件事，但我怀疑它是否有意义。这完全取决于你想对这篇文章做什么 以下是我对您的代码片段的代码建议
chomp(@array = <FILE>);
s/[()]//g for @array;
print "$_\n" for @array;
chomp（@array=）；
s/[（）]//g表示@array；
为@array打印“$\un”；
@array=；
s/[（）]//g表示@array；
打印@数组；
\rchomp
最好作为字符类编写：（\）\（）[（）]
将把整个文件读入数组。不需要 循环@array=- 如我的示例所示，
可以分配一个项目列表 （例如数组）作为参数。你可以有一个后缀循环来 按顺序打印print - 使用（后缀）循环时，所有循环元素的别名都是
， 这是对数组进行替换的一种简便方法$\uuu
chomp(@array = <FILE>);
s/[()]//g for @array;
print "$_\n" for @array;
chomp（@array=）；
s/[（）]//g表示@array；
为@array打印“$\un”；
@array=；
s/[（）]//g表示@array；
打印@数组；
\rchomp
最好作为字符类编写：（\）\（）[（）]
将把整个文件读入数组。不需要 循环@array=- 如我的示例所示，
可以分配一个项目列表 （例如数组）作为参数。你可以有一个后缀循环来 按顺序打印print - 使用（后缀）循环时，所有循环元素的别名都是
， 这是对数组进行替换的一种简便方法$\uuu
use strict;
use warnings;
open(FILE,'YOURFILE' ) || die ("could not open");
my $line= <FILE>;
my @array = split ' ',$line;
foreach my $n(@array)
{
print "$n\n";
}
close(FILE);
In
recent
years
many
risk
factors
for
the
development
of
breast
cancer
that
.....
因为整个文件只有一行。您可以根据空格分割字符串，并在新行中打印数组的每个元素
use strict;
use warnings;
open(FILE,'YOURFILE' ) || die ("could not open");
my $line= <FILE>;
my @array = split ' ',$line;
foreach my $n(@array)
{
print "$n\n";
}
close(FILE);
In
recent
years
many
risk
factors
for
the
development
of
breast
cancer
that
.....
考虑到
@array“他\ngooes\n\n学校\daily\n”qw（他去学校）@array“他\ngoos\nto\n学校\daily\n”qw（他去学校）