perl - 遍历它们时如何引用 perl 参数？

Question

嗨，我正在尝试使用此答案https://stackoverflow.com/a/1712480/1740992中编写的代码：

foreach (@ARGV){
   print "file: $_\n";
 # open your file here...
   #..do something
 # close your file
}

我不知道如何引用这个论点。当我的 scipt 只在一个文件上运行时，我通过运行以下命令打开它：

$kml = "adair.kml";
open INPUT, "<$kml";

我用什么替换我的文件名？我试过了$ARGV[n]

谢谢

score 3 · Accepted Answer

你已经在使用它了，它是$_。

您可以使用命名变量来代替：

foreach my $foo (@ARGV){

score 2 · Accepted Answer

for my $arg (@ARGV) {
    open my $fh, '<', $arg or die "Cannot open '$arg': $!";
    # ...
    close $fh;
 }

score 0 · Accepted Answer

您的代码块：

$kml = "adair.kml";
open INPUT, "<$kml";

应替换为：

use strict;
use warnings;

my $kml = $ARGV[0];
open my $input_fh, '<', $kml or die "Couldn't open $kml $!";

如果您的代码仅使用一个参数运行。

3 回答 3