Perl 서브 루틴의 리팩토링 매개 변수 목록

Question

현재 일부 응용 프로그램 코드를 리팩터링하고 있으며 일부 매개 변수를 서브 루틴에서 제거 할 수 있기를 원합니다.

sub do_something { 
    my ($param1, $param2, $param3, $param4) = (@_); 
    .... 
} 

그러나, 리팩토링의 일환으로 나는이 만든 매개 변수 2, 3 중복 : 예를 들어,이 [1] 다음 내가 가진 가정 해 봅시다. 이 메소드 서명을 업데이트하는 것이 쉬운 부분이지만 모든 호출을 업데이트하는 간단한 방법이 있습니까?

나는 그것을하기 위해 맞춤식 grep/sed/perl의 길을 걸어 왔지만, 서브에 대한 호출 중 몇 개는 여러 줄로되어있어, 그것이 주문품이다. 이 특정 리팩터링을 수행하는 데 유용한 도구가 있습니까?

[1] - 실제 매개 변수 또는 서브 루틴 이름이 아니므로, 저는 여러분에게 확신합니다!

Answer 1

Padre에는 리팩토링을위한 몇 가지 기능이 있지만 원하는 결과를 얻을 수 있는지 여부는 알 수 없습니다.

위치 정보 목록 대신 해시를 허용하도록 인터페이스를 변경하면 향후 변경 사항이 현재보다 적게 수행됩니다.

sub do_something { 
    my (%param) = (@_); 
    ... 
} 

do_something(foo => 23, bar => 42); 

Answer 2

코드 범위가 거의 100 % 인 테스트 제품군을 사용하는 경우 모든 통화 사이트를 찾을 수 있습니다.

호출 스택의 위치에 대한 인수 감안할 때 caller 내장 반환

1. 호출자의 패키지 이름
2. 파일 이름
3. 행 번호
4. 완전한 하위 이름
5. ... 일부 more

이제 호출 위치를 기록하는 코드를 추가 할 수 있습니다. 자동 처리를 위해 결과를 데이터 구조에 넣거나 로그 파일에 보고서를 작성할 수 있습니다. 예 :

sub this_logs { 
    { 
    # seperate scope to not pollute your sub 
    state $log_fh //= do { 
     open my $fh, ">", "record_callsites.log"; # assuming autodie; 
     $fh; 
    }; 
    state $seen = {}; 
    my (undef, undef, undef, $sub) = caller(1); 
    my ($package, $file, $line, ) = caller(0); 
    my $site = $sub ? "$sub()" : "pkg $package"; 
    unless ($seen->{$file}{$line}++) { 
     say {$log_fh} "CALL from $site at $file line $line"; 
    } 
    } 
    my ($param1, $param2) = @_; 
    # etc 
} 

이 가정의 모든 코드는이 로그 파일을 생성 할

this_logs(1, 2, 3);   # direct call 
foo();      # call from same package 
my $sub = "this_" . "logs"; 
baz($sub);     # call by name 
Foo::bar();     # call from different package 
foo();      # duplicate call 

sub foo { 
    return this_logs(5, 6, 7); 
} 
sub baz { 
    shift()->(1, 2, 3); # no strict refs for this, please 
}; 

package Foo; 
sub bar { 
    main::this_logs(); 
} 

했다

그래서 적절한 테스트 스위트를 제공 (파일 이름 -은 STDIN을 의미)

CALL from pkg main at - line 20 
CALL from main::foo() at - line 28 
CALL from main::baz() at - line 31 
CALL from Foo::bar() at - line 3 

, 이 전화를 걸 수없는 전화 사이트를 찾을 수 있습니다.

가 아닌 바보 같은 편집기가있는 경우, 당신은 또한 차례로 각 파일을 열고 올바른 줄에 커서를 위치 스크립트 방출 수 : 내가 바로 가기가 잘 모르는 것 같아요

say "kate -l $line $file"; 
say "vim +$line $file";