Perl:使用基于索引的方法循环输入行

Question

这是 perl 中的初学者最佳实践问题。我是这种语言的新手。问题是:

如果我想处理程序的输出行，如何以特殊方式格式化第一行？

我想到了两种可能:

1) 一个标志变量，一旦循环第一次被执行就被设置。但它将为每个周期进行评估。糟糕的解决方案

2) 基于索引的循环(如“for”)。然后我会在 i=1 开始循环。这个解决方案要好得多。问题是我该怎么做？

我刚刚找到了使用 while ( <> ) 构造循环的代码。

在这里你可以看到更好的:

$command_string = "par-format 70j p0 s0 < " . $ARGV[0] . "|\n";                                                                                

open DATA, $command_string  or die "Couldn't execute program: $!";

print "\t    <div>&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;|-- <strong>Description</strong></div>\n";
while ( defined( my $line = <DATA> )  ) {
   chomp($line);
   # print "$line\n";
   print "\t    <div>&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;&‎nbsp;|&‎nbsp;&‎nbsp;&‎nbsp;-- " . $line  . "</div>\n";
}

close DATA;

也请不要犹豫更正这里的任何代码，这是我的第一首 perl 诗。

谢谢!

Answer 1

您可以随时使用 $.或英文名$INPUT_LINE_NUMBER使用以下命令控制循环中的逻辑:

while (my $line = <>) {
    if ($. == 1) {
        # do cool stuff here
    }
    # do normal stuff here
}