Почему эта печать дважды в perl?

Question

Так что я надеюсь, что кто-то может просто объяснить мне, почему, когда я запускаю следующий код, он печатает «.link/output» как в начале, так и в конце строки. Я пытался заставить его печатать только в конце строки. Есть предположения?

#!/usr/local/bin/perl 

use warnings; 
use strict; 
my $logfiles = $ARGV[0]; #file containing the list of all the log file names 

my @logf =(); 
my $i; 

open (F2, "<", $logfiles); 

while(<F2>){ 
    @logf = $_; 
    foreach $i(@logf){ 
     print $_.".link/output"; 

    } 
} 
close F2; 

Так, например, если файл я читаю в это:

cat 
dog 

Я хочу видеть:

cat.link/output 
dog.link/output 

Но isntead я получаю:

.link/outputcat.link/output 
.link/outputdog.link/output 

Не могли бы вы объяснить, почему происходит и/или как его исправить? Спасибо.

Answer 1

У вас есть пустой элемент в начале списка. простой shift @logf

Answer 2

не вижу что @logf. Не могли бы вы просто сделать это:

#!/usr/bin/env perl 

use warnings; 
use strict; 
my $logfiles = $ARGV[0]; #file containing the list of all the log file names 

#open(my $f2, "<", $logfiles); 

# FOR TESTING, use above in your code 
my $f2 = \*DATA; 
# =========== 

while(<$f2>){ 
     chomp; 
     print "$_.link/output\n"; 
} 
__DATA__ 
cat 
dog