在Perl上合并变量

Question

我对Perl非常陌生。尝试合并两个变量时，我遇到了一个非常烦人的问题。 当我这样做一个简单的脚本，如：

$arg1 = "hello"; 
$arg2 = " world"; 
print $arg1.$arg2; 

它似乎工作正常。 但是当我试图让它更复杂一点（将文件读入数组然后添加变量）时，它似乎不是添加第二个变量，而是替换第一个变量的第一个字符。

下面的代码：

#!/usr/bin/perl -w 
use LWP::Simple; 
use Parallel::ForkManager; 
use vars qw($PROG); 
($PROG = $0) =~ s/^.*[\/\\]//; 
if (@ARGV == 0) { 
     print "Usage: ./$PROG [TARGET] [THREADS] [LIST] [TIMEOUT]\n"; 
    exit; 
} 
my $host = $ARGV[0]; 
my $threads = $ARGV[1]; 
my $weblist = $ARGV[2]; 
my $timeout = $ARGV[3]; 
my $pm = Parallel::ForkManager->new($threads); 
alarm($timeout); 
open(my $handle, "<", $weblist); 
chomp(my @webservers = <$handle>); 
close $handle; 

repeat: 
for $target (@webservers) { 
     my $pid = $pm->start and next; 
         print "$target$host\n"; 
         get($target.$host); 
     $pm->finish; 
} 
$pm->wait_all_children; 
goto repeat; 

因此，如果文本文件（名单）应该是这样的：

www.site.com?url= 
www.site.net?url= 
etc 

和主机变量是domain.com。 因此，不要像这样：www.site.com?url=domain.com，我继续有这样的：domain.comsite.com?url=。 它用第二个变量替换第一个变量的第一个字符。我无法理解它。

任何形式的帮助，将不胜感激，因为我确信我只是想念一件小事，以后会让我感到蠢。

谢谢你，祝你有美好的一天！

Answer 1

您的输入文件可能包含回车\r字符。您可以通过s/\r//g将其删除，或者将输入格式MSWin通过dos2unix或fromdos转换为* nix。