使用Perl拆分数组中的循环

对数组中的值使用

split

($field[1],
$field[2],
$field[3],
$field[4],
$field[5]) = split(",", $line);

我读了一个文件

使用

split

，使用数组获取分隔符

，

后的每个值

($field[1],
$field[2],
$field[3],
$field[4],
$field[5]) = split(",", $line);

每行有五个文件，所以正如你所能想象的，我想接收 每循环迭代一行

有什么建议吗？

您可以这样做：

while (<$fh>){
  my @tmp;
  @tmp = split(/,/,$line);
  warn "Less than 5 items on a line: $line\n" if scalar(@tmp) != 5;

}

while（）{
我的@tmp；
@tmp=拆分（/，/，$行）；
如果标量（@tmp）！=5，则警告“一行中少于5项：$line\n”；
}

或者您可以在（$line=）时使用读取文件

while ($line = < F >)
 {
 @clpData= split(/,/, $line);

 print "@clpData[9]\n";
 }

{ @clpData=拆分（/，/，$行）； 打印“@clpData[9]\n”； }

---

你为什么要从头开始写一篇文章？@Quentin也许他不能安装模块。或者它是痛苦的。但你是对的，最好是加载模块或使用@loldop，通常人们认为他们“无法安装模块”，但这几乎总是人为的限制。在受限环境中使用模块的方法有很多。这经常被讨论，但这里有一个很好的例子：@dan1111是的，我知道如何安装模块。但有时我需要快速的解决方案。另外，例如，我不想在Mac上安装模块。我自己写一些有用的小脚本。但是在我的家庭linux mint上有足够的模块。你有什么问题？你写的东西有什么问题？