Perl에서 인쇄 된 후 얼마 동안입니까?

Question

Perl을 처음 사용합니다. 그래도 조금 C를 알아.

$STUFF="c:/scripts/stuff.txt"; 

open STUFF or die "Cannot open $STUFF for read :$!"; 

print "Line $. is : $_" while (<STUFF>); 

가 왜 print 문 후 while이다 : 나는 우리 교실 노트 중 하나에이 조각을 가로 질러왔다? 그것은 무엇을합니까?

Answer 1

그것은 그것보다 간단하고 컴팩트 때문입니다 방법을 쓴 것

while (<STUFF>) { 
    print "Line $. is : $_"; 
} 

동일합니다. 일반적으로 Perl의 _(in)은 조건부 및 루프에 대해 유명한 "구문 수정 자"형식입니다. 이것이 수행하는 루프를 반복 할 때마다이

print "Line $. is : $_" while (<STUFF>); 

while (<STUFF>) { 
    print "Line $. is : $_"; 
} 

이다, 펄 하나의 읽기 : 다음 조각은 같은 일을 작성 정확히 상응하는, 단지 다른 방법이됩니다

while (<STUFF>) { print "Line $. is : $_"; } 

Answer 2

동일 텍스트 줄을 STUFF 파일에서 가져 와서 특수 변수 $_에 넣습니다 (꺽쇠 괄호의 기능). 이어서, 루프를 인쇄 라인의 본체와 같은

Line 1 is : test 
Line 2 is : file

특별한 변수 $.은 파일로부터 판독 된 마지막 행의 행 번호이고 $_ 각도 브래킷 오퍼레이터에 의해 설정된 해당 광고의 내용이다.

Answer 3

로

Answer 4

인쇄 후에 잠시 뒤에 행을 일반 영어와 거의 같이 읽게하십시오. 그것은 또한 대신 인쇄물에 중점을 둡니다. 그리고 필요하지 않은 중괄호 : { ... }

도 사용할 수 있습니다 와 경우와하지 않는 한, 예를 들어, 그것은 한 줄의 경우 while 문은 루프 본문을 따를 수 있음을

는

print "Debug: foobar=$foobar\n" if $DEBUG; 

print "Load file...\n" unless $QUIET; 

Answer 5

참고. 루프 본문이 여러 줄에서 실행되는 경우 while 앞에 붙여야합니다.

Answer 6

다른 답변은 while 루프의 명령문 수정 자 양식을 설명했습니다. 그러나 여기에는 다른 많은 마법이 있습니다. 특히이 스크립트는 Perl의 특수 변수 중 세 가지를 사용합니다. 이 중 두 개 ($_ 및 $!)는 매우 일반적입니다. 다른 하나 ($.)는 비교적 일반적입니다. 그러나 그들은 모두 가치가 있습니다.

열려있는 파일 핸들에서 while <$fh>을 실행하면 Perl은 파일을 EOF에 도달 할 때까지 자동으로 실행합니다. 각 루프 내에서 현재 행은 아무 것도하지 않고 $_으로 설정됩니다. 그래서이 둘은 동일합니다

while (<$fh>) { # something } 
while (defined($_ = <$fh>)) { # something } 

가 perldoc perlop, I/O 사업자에 대한 섹션을 참조하십시오. (어떤 사람들은 도 마술 적이기 때문에 while (my $line = <$fh>)을 대신 사용합니다.이것은 더 명확한 변수 이름 인 $_ 대신 각 행에 대해 $line을 제공하지만보다 많은 입력이 필요합니다. 각자 자신에게).

$!은 시스템 오류 (설정되어있는 경우)의 값을 유지합니다. 이것을 사용하는 방법과시기에 대한 자세한 내용은 perldoc perlvar, $OS_ERROR에 관한 섹션을 참조하십시오.

$.에는 회선 번호가 있습니다. perldoc perlvar, $NR 섹션을 참조하십시오. 이 변수는 놀라 울 정도로 까다 롭습니다. 현재 읽고있는 파일의 줄 번호가 반드시 있어야하는 것은 아닙니다. 예 : 당신이 lines으로 이것을 저장하고 perl lines file1 file2 file3로 실행하면

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

while (<>) { 
    print "$ARGV: $.\n"; 
} 

, 다음 펄은 바로 파일 1, 파일 2 및 파일 3을 통해 라인을 계산합니다. Perl은 파일을 읽는 것을 알고 있습니다 ($ ARGV에 있으며 파일 이름은 정확합니다). 은 각 파일의 끝에 행 번호를 자동으로 다시 설정하지 않습니다. 나는 마침내 내 (두꺼운) 해골을 마침내 이해할 때까지이 행동으로 두 번 이상 물었다. 개별 파일이 방법을 추적하기 위해 번호를 재설정 할 수 있습니다 : 당신은 또한 strict 및 warnings 프라그 마를 확인하고 open의 새로운 세 가지 인수 형태를 살펴한다

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

while (<>) { 
    print "$ARGV: $.\n"; 
} 
continue { 
    close ARGV if eof; 
} 

. 방금 "unknown (google)"이라는 메시지가 나타났습니다. 다시 말하면 결코 돌아 오지 않을 것입니다. 나는 적어도 내 타이핑 연습을해야 겠지.

Answer 7

필자는 스 니펫을 자유롭게 다시 작성했습니다.

아래에 제안 된 코드는 야생에서 볼 수있는 최적의 방법보다 적은 도적 갤러리입니다.

use strict; 
use warnings; 

my $stuff_path = 'c:/scripts/stuff.txt'; 

open (my $stuff, '<', $stuff_path) 
    or die "Cannot open'$stuff_path' for read : $!\n"; 

# My preferred method to loop over a file line by line: 
# while loop with explicit variable 
while(my $line = <$stuff>) { 
    print "Line $. is : $line\n"; 
} 

다른 방법이 있습니다. 위의 예제에서 각 루프를 while 루프로 대체 할 수 있습니다.

# while statement modifier 
# - OK, but less clear than explicit code above. 
print "Line $. is : $_" while <$stuff>; 

# while loop 
# - OK, but if I am operating on $_ explicitly, I prefer to use an explicit variable. 
while(<$stuff>) { 
    print "Line $. is : $_"; 
} 

# for statement modifier 
# - inefficient 
# - loads whole file into memory 
print "Line $. is : $_" for <$stuff>; 

# for loop - inefficient 
# - loads whole file into memory; 
for(<$stuff>) { 
    print "Line $. is : $_\n"; 
} 

# for loop with explicit variable 
# - inefficient 
# - loads whole file into memory; 
for my $line (<$stuff>) { 
    print "Line $. is : $line\n"; 
} 

# Exotica - 

# map and print 
# - inefficient 
# - loads whole file into memory 
# - stores complete output in memory 
print map "Line $. is : $_\n", <$stuff>; 

# Using readline rather than <> 
# - Alright, but overly verbose 
while(defined (my $line = readline($stuff)) { 
    print "Line $. is : $line\n";  
} 

# Using IO::Handle methods on a lexical filehandle 
# - Alright, but overly verbose 
use IO::Handle; 
while(defined (my $line = $stuff->readline)) { 
    print "Line $. is : $line\n";  
}