서브 루틴에서 서브 루틴을 호출하십시오.

Question

저는 인수를 전송하는 또 다른 서브 루틴을 호출하고 문자열을 추가해야하는 서브 루틴 (Perl)이 있습니다. 나는 이런 식으로 뭔가를 시도했다 (하지만 난 그냥이를 수정하지, 대답을 찾고 있어요 ...) :

sub TestBase($) 
{ 
    print @_; 
    return 'hard processed string'; 
} 

sub Test($) 
{ 
    print @_; 
    return TestBase(@_, 'Filename.txt'); 
} 

이 사람은 "주 :: TestBase에 대한 너무 많은 인수"(이 모든 년 실패 그리고 여전히 cmd.com을 사용합니다.이 경우에는 쉽게 복사하여 붙여 넣지 않습니다!).

Answer 1

Dan의 답변에 대한 나의 수정 사항을 명확하게 요약하면 다음과 같습니다.

서브 루틴 프로토 타입을 제거하고 서브 루틴 이름과 동일한 줄에 괄호를 넣고 (예 : perldoc perlstyle) 소문자로 변경했습니다. 대문자는 일반적으로 패키지와 같은 전역 변수에 대해 예약되어 있습니다. 이름)을 삭제하고 return 키워드를 삭제했습니다.

특히 다른 사람이 의존하는 코드를 작성하는 경우 해당 서브 루틴 이름을 그대로 두는 것이 가장 바람직합니다. 수용된 연습은 중요하지만 기존 코드 기반에 대한 인터페이스를 정적으로 유지하는 것만 큼 중요하지는 않습니다.

#!/usr/bin/perl 

use strict; 
use warnings; 

sub test_base { 
    print @_; 
    'hard processed string'; 
} 

sub test { 
    print @_; 
    test_base(@_, 'Filename.txt'); 
} 

my $retval = test('A', 'B', 'C'); 
print "\n\n", $retval, "\n"; 

내가 펄을 모르는

ABCABCFilename.txt 

hard processed string 

Answer 2

Perl 모범 사례 : don't define function prototypes 실제로 무엇을하는지 모르는 경우.

#!/usr/bin/perl -w 
use strict; 

sub test_base { 
    print @_; 
} 

sub test { 
    print @_; 
    return test_base(@_, 'Filename.txt'); 
} 

test('foo', 'bar');