Perl的使用，以代替未初始化值的

在替代（S ///）使用未初始化值$比赛...

my $sub = 0; #added 
my $m; #added 

open (FH1, "<FILE1.txt") || die $!; 
open (FH2, "<FILE2,txt") || die $!; 

my @strings = (<FH2>); #each line of the file into an array 
close FH2 or die $!; 

my $here; 
while (my $url = <FH1>) { 
    chomp $url; 

    foreach my $sub (@strings) {  
     my $repeat = 1; 
     while ((my $m = $_) =~ s|(?<![/])(?:[/](?![/])[^/]*){$repeat}[^/]*\K|$sub|) #<-- Error states the error is occurring here 
     { 

       print "$m\n"; 
       $repeat++;  

       push(@{ $here->{$url} }, $m); 
     }   
    } 
}

有肯定是在文件中的东西（因为我可以打印foreach循环中的每一行），并且正则表达式替换在我试图将其移入此程序之前已经在其自己的程序中进行过测试。

这是我明显忽略的东西吗？

你的帮助会非常赞赏，非常感谢

来源

2013-02-27 perl-user

感谢**缩进你的代码**正确 – 2013-02-27 17:00:25

歉意，感谢您的抬头 – 2013-02-27 17:09:22

您从未将任何内容分配给$_。

while ((my $match = $_) =~ ...

应该

while ((my $match = $url) =~ ...

来源

2013-02-27 17:08:37 ikegami

这是一件很明显我俯瞰的话，感谢您的帮助 – 2013-02-27 17:23:12

@strings有一个未初始化字符串。您正在尝试使用此字符串（通过$sub）替换正则表达式。确保@strings有你想要的数据。

来源

2013-02-27 17:02:23 m0skit0

$match未初始化，因为错误说。它被设置为$_，这是未初始化的 - 您明确提供了循环变量（$url和$sub），所以在这种情况下隐式变量未被初始化。

我假设你的意思... ($match = $url) =~ s/the subst/.../ ...

来源

2013-02-27 17:08:40 pilcrow

很明显的东西那时我忽略了，谢谢你的帮助 – 2013-02-27 17:23:33

Perl的使用，以代替未初始化值的

回答

相关问题