Perl while循环正在重复自己

Question

我是 Perl 的 100% 新手，但确实有一些 PHP 知识。我正在尝试创建一个快速脚本，该脚本将采用 @url 变量并将其保存到 .txt 文件中。我遇到的问题是每次遍历循环时都会再次保存 url，这非常烦人。所以当循环运行时，它看起来像这样。

url1.com
url1.com url2.com
url1.com url2.com url3.com 

我希望它看起来很简单：

url1.com
url2.com
url3.com

这是我的代码。如果有人可以提供帮助，我将非常感激！

#!/usr/bin/perl
use strict;
use warnings;

my $file = "data.rdf.u8";
my @urls;

open(my $fh, "<", $file) or die "Unable to open $file\n";

while (my $line = <$fh>) {

    if ($line =~ m/<(?:ExternalPage about|link r:resource)="([^\"]+)"\/?>/) {
        push @urls, $1;
    }

    open (FH, ">>my_urls.txt") or die "$!";
    print FH "@urls ";
    close(FH);
}

close $fh; 

Answer 1

你的 print 在你的 while 循环中。听起来您想将打印移出循环。

或者，如果您想在遍历每一行时打印每个 url，请将“my @urls”的声明向下移动到循环中，然后它将重置每一行

Answer 2

这部分不应该：

open (FH, ">>my_urls.txt") or die "$!";
print FH "@urls ";
close(FH);

...放在while 循环之外？在while 中没有任何意义，因为@urls 显然在那里不完整。

还有两个与正则表达式相关的旁注：首先，使用m 运算符，您可以选择另一组分隔符，这样您就不必转义/ 符号；其次，不必在字符类定义中转义" 符号。实际上，根本不需要在正则表达式中对其进行转义 - 除非您选择此字符作为分隔符。 )

所以你的正则表达式可能如下所示：

$line =~ m#<(?:ExternalPage about|link r:resource)="([^"]+)"/?>#

Answer 3

你在别处需要@urls 数组吗？因为否则，您可以简单地：

#!/usr/bin/perl
use strict;
use warnings;

my $file = "data.rdf.u8";
my @urls;

open(my $fh, "<", $file) or die "Unable to open $file\n";
open (FH, ">>my_urls.txt") or die "$!";
while (my $line = <$fh>) {
    if ($line =~ m/<(?:ExternalPage about|link r:resource)="([^\"]+)"\/?>/) {

      print FH $1;

    }



}
close(FH);
close $fh;