Perl 스크립트의 명령 줄에서 인수로 주어진 이름 추출하기

Question

저는 스크립팅 언어가 새롭고 erl의 명령 줄에서 주어진 인수에서 이름을 추출해야한다는 작업이 있습니다.

내가이

./perl.plx file.txt 

같은 펄 스크립트를 호출하고 있는데이 파일의 이름을 얻으려면 해당 file 이름이 아닌 전체 file.txt

Answer 1

을 얻을 필요가, 당신은 그것을 추출해야 @ARGV에서 가져 와서 점에서 분할하십시오.

my $fileName = (split /\./, $ARGV[0])[0]; 

가 Explaination : "."점 (문자는 의미, '모든 문자'정규 표현식의 특수 문자에

split /\./, $ARGV[0] 분할은, 문자 그대로 그것을 가지고, 당신이 그것을 탈출해야합니다, 따라서).

(...)[0];은 첫 번째 요소, 즉 파일 이름을 취합니다.

Answer 2

Perl 스크립트에 대한 명령 줄 인수는 perldoc perlvar에 설명 된 @ARGV에 나타납니다.

파싱 파일 이름은 사소한 것처럼 보이지만 모양이 잘못 될 수 있습니다. 그러나 Perl에는 File::Basename이라는 모듈이 있습니다.이 모듈은 즉시 고려하지 않을 수있는 가장자리 사례를 처리합니다. 단순한 split이 처리하지 못하는 한 모서리의 경우는 최종 접미어를 제외하고 파일 이름의 다른 곳에 도트가 나타날 가능성이 있습니다.

명령 프롬프트에서 perldoc File::Basename을 입력하여 File::Basename의 설명서를 검토 할 수 있습니다.

use stict; 
use warnings; 
use File::Basename qw(fileparse); 

my ($fname, $dirs, $suffix) = fileparse($ARGV[0], qr/\.txt/); 

print "Base file name is $fname\n"; 
print "Suffix is $suffix\n"; 
print "Path to $fname$suffix is $dirs\n"; 

펄이 모듈 선박, 당신은 그것을 사용하는 아무것도 설치할 필요가 없기 때문에 다음은

은 예입니다. 모든 Perl 배포판과 함께 제공되는 핵심 Perl 모듈을 활용하면 이러한 도구 내에서 구현 된 모범 사례와 디버깅을 활용할 수 있습니다.