'PERL'에 해당되는 글 1건

  1. 2008.11.06 :: 자막 싱크를 조정해주는 perl 스크립트 (2)
어둠의 세계에서 영화 파일과 자막 파일을 따로 구했더니 자막와 화면이 싱크가 맞지 않는다. 수작업으로 일일이 고치기도 귀찮고 그렇다고 리눅스용 영화 재생기가 자막 싱크 조정 기능이 있는 것도 아니고. 그래서 간단한 perl 스크립트를 짜서 해결했다. 참고로 샘플 스크립트는 자막을 6.5초 앞으로 끌어당기는 예시이다.
while(<STDIN>) {
    if( /(^.*SYNC START=)(\d+)(.*?)$/ ) {
        $t = $2 - 6500;
        print $1, $t, $3, "\n";
    } else {
        print $_;
    }
}

신고
posted by 신묘군