어떻게 펄에서 그렙를 사용하려고

Question

메신저 bash는 스크립트에 펄 스크립트의 인수를 전달합니다,하지만 난 메신저이

#!/usr/bin/perl 
system(grep -c $ARGV[0] $ARGV[1]); 

이 오류가 발생하고, 그렙 옵션을 사용하는 펄에서 인수를 받아 봐해야 어떻게 구현할 수 있습니까?

Answer 1

system('grep', '-c', $ARGV[0], $ARGV[1]); 

하지만 그렇게하고 싶은지 생각해보십시오. Perl은 외부 프로그램을 호출하지 않고도 많은 것을 할 수 있습니다.

Answer 2

system()의 인수는 문자열 (또는 문자열 목록)이어야합니다. 시도해보십시오 :

#!/usr/bin/perl 
system("grep -c $ARGV[0] $ARGV[1]"); 

Answer 3

해당 코드에서 기대하는 것을 얻지 못할 수도 있습니다. perldoc -f system에서 :

The return value is the exit status of the program as returned by 
the "wait" call. 

system 실제로 grep에서 당신은 grep 과정에서 불과 반환 값을 카운트를 제공하지 않습니다.

perl 내에서 값을 사용할 수 있으려면 qx() 또는 backticks를 사용하십시오. 예 :

my $count = `grep -c ... `; 
# or 
my $count2 = qx(grep -c ...); 

숫자 뒤에 개행 문자가 표시됩니다. "6 \ n".

그러나 모든 perl을 사용하지 않는 이유는 무엇입니까?

my $search = shift; 
my $count; 
/$search/ and $count++ while (<>); 
say "Count is $count"; 

하지만, 잘못된 손에 위험 할 수있는 다이아몬드 연산자 <>에 의해 수행 암시 open

. 대신 열린 세 인수를 사용하여 수동으로 파일을 열 수 있습니다

use autodie; 
my ($search, $file) = @ARGV; 
my $count; 
open my $fh, '<', $file; 
/$search/ and $count++ while (<$fh>); 
say "Count is $count";