왜이 인쇄가 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