Perl/디버깅

1. use strict;와 use warnings;를 항상 사용하자

2. use strict

2.1. vars

2.2. refs

2.3. subs

3. Syntax Error Checklist

4. use diagnostics

5. 명령행 스위치

6. die와 warn의 동작 변경

7. Carp 모듈

8. 실행 흐름 추적

9. 기타

10. Comments

1. use strict;와 use warnings;를 항상 사용하자

#!/usr/bin/perl
# warntest4.plx
use warnings;

{
   no warnings;
   my @a = qw(one , two , three , four);     # 경고 없음
}
my @b = qw(one , two , three , four);

2. use strict

2.1. vars

• my $var - 렉시컬 변수로 선언하던가
• our $var - 전역 변수로 선언하던가
  • use vars '$var', use vars qw($var, $foo) 등으로도 선언 가능
• $main::var - 풀 네임으로 써 주던가

2.2. refs

• 심볼릭 레퍼런스 사용 불가
  • 레퍼런스의 값이 변수나 서브루틴명이 될 수 없는 값이 들어 있을 경우 문제의 소지가 있음
  • 심볼릭 레퍼런스 대신에 해쉬를 사용할 것을 권장
• 예외 - 아래의 형태는 허용됨2

    $bar = \&{'foo'};
    &$bar;

2.3. subs

3. Syntax Error Checklist

• 세미콜론 누락
• 여는/닫는 괄호 누락
• 스트링이나 정규표현식을 제대로 끝맺지 않음
• 콤마 누락
• if, for, while, unless, until 문에서 조건문 좌우에 괄호 필요
  • do if condition; 과 같은 statement modifier 형태에서는 불필요
• Bareword
  • use strict;에서는 서브루틴을 부를 때 반드시 ()를 써 주자.

4. use diagnostics

• 설명 텍스트는 perldiag 문서에 들어있음

perl myprogram.pl 2>&1 | splain
perl myprogram.pl 2> error.txt ; splain error.txt

5. 명령행 스위치

• -w : 경고 메시지 출력. use warnigs 를 쓸 것
• -e : 파라메터 텍스트를 실행

> perl -e 'print "Hello world\n";'

• -n, -p : <ARGV>를 읽는 것과 관련

-n 스위치는 다음 구문과 동치
while (<>) { "your code here" }

• 예:

> perl -ne 'print if /^(Subject|From): /' Mailbox
> perl -ne 's/1999/2000/g; print' newyear.txt

• -p를 쓰면 print를 함

> perl -pe 's/1999/2000/g' newyear.txt

• -c : 프로그램을 실행하지는 않고 문법 에러와 모듈 존재 체크만 해 줌
  • 런타임 에러는 체크하지 못함
• -i : 임시 파일을 만들어서 작업

아래는 동작하지 않는다. perl이 불리기 전에 쉘이 newyear.txt를 지워버림
perl -pe 's/1999/2000/g' newyear.txt > newyear.txt
아래처럼 하면 된다
perl -pi -e 's/1999/2000/g' newyear.txt

• 책에는 -i에 인자로 백업파일의 확장자를 명시해야 한다고 했는데 (-i.old 와 같이) perl5.8에서 바뀌었는지 그냥도 된다.
• -M : 인자로 모듈이름을 주어 로드시킨다

> perl -Mstrict -e ...

• -s
  • 파일명 뒤에 오는 스위치(예: -v)를 변수로 취급($v)하고, @ARGV에서 제거한다.
  • 이 변수에는 값이 "1"이 들어가는 듯

#!/usr/bin/perl -s
# nl3.plx
use warnings;
use strict;

my $lineno;
my $current = "";
our ($v,$h);   # strict 프라그마가 있으니 선언이 필요

if (defined $v) {     # "-v" 스위치가 있으면 참
   print "$0 - line numberer, version 3\n";
   exit;
}
...

> ./nl3.plx -v

• 그러나 규모가 큰 프로그램에서는 Getopt::Std나 Getopt::Long5 모듈을 사용할 것을 권장
• -I : 인자로 받은 디렉토리를 @INC에 추가하여 모듈을 검색
• -a, -F
  • -n, -p와 같이 쓰임
  • -a : 읽은 라인을 @F 배열에 단어별로 분리해서 넣음

perl -an '...'는 다음과 동치
LINE: while (defined ($_ = <ARGV>)) {
    @F = split;
    '...';
}

• 예

텍스트 파일의 각 줄의 첫 단어만 출력
> perl -ane 'print $F[0],"\n"' chapter09.txt

• -F : split할 때 구분자로 사용할 캐릭터를 지정

perl -F: -ane 'print $F[5],"\n"' /etc/passwd

• -l
  • output record separator "$\" 변수를 input record separator"$/"변수와 같은 값을 갖도록 설정
  • "$\"의 값은 print 출력의 뒤에 추가됨

"\n"을 명시할 필요가 없어진다 -_-;
> perl -le 'print "hello"'

• -T : taint mode
  • 외부에서 들어온 데이타를, open등 "unsafe"한 연산에는 사용하지 못하게 한다.
  • tainted한 데이타로부터 파생된 데이타도 tainted한 걸로 간주됨
    • untaint데이타를 얻고 싶다면 아래와 같이 정규표현식의 백레퍼런스 사용

$tainted =~ /([\w.]+)/;
$untainted = $1;

6. die와 warn의 동작 변경

$SIG{__DIE__} = \&my_die_handler;                  # 서브루틴의 레퍼런스
$SIG{__DIE__} = sub { print "I'm about to die!" }  # 익명 서브루틴

use Carp;
$SIG{__DIE__} = sub { &Carp::croak }          # 서브루틴 이름 앞에 &를 붙이고 뒤에 괄호가 없으면 자신의 인자 목록 전체를 전달

die "I'm going now!";          # 결과적으로 croak이 불리게 된다.

7. Carp 모듈

• carp : warn, 호출한 지점의 정보를 제공
• croak : die, 호출한 지점의 정보를 제공

• cluck : warn, 스택 백트레이스
• confess : die, 스택 백트레이스

8. 실행 흐름 추적

• [Trace your Perl programs | The Effective Perler]
• Devel::Trace
• Devel::Trace::More - 요게 링크글에서 설명한 Devel::Trace 튜닝의 기능을 해 줄 수 있겠다

• 1) 코드를 그대로 놔두고 perl -d:Trace 스크립트 실행하는 것
• 2) 코드의 shebang 라인을 #!/usr/bin/perl -d:Trace와 같이 해 두고, 실행은 그냥 perl 스크립트로 하는 것

• Carp - 근데 뭔 소린지 잘 모르겠음
• Devel::StackTrace
• App::Trace
• 펄 기본 디버거에서 PERLDB_OPTS="AutoTrace=1 NonStop=1 LineInfo=dbgr.out" 이런 식으로 환경변수를 설정하고 하면 된다는 듯도 하고?

9. 기타

• [Perl 스크립트 디버깅 -- Perl Maven]
• [A Look at Perl: A Look at Conditional Compiling of Diagnostics] - 조건에 따라 디버깅 메시지 출력 여부를 결정하는 것에 관한 글

10. Comments

각주:
1. 3. 4. Beginning Perl, Chapter09
2. strict
5. /Getopt-Long
6. Mastering perl, Chapter 04