Cvs 모듈을 사용하지 않고 어떻게 CVS 체크 아웃을 할 수 있습니까?

Question

Cvs 모듈을 사용하지 않고 Perl을 사용하여 CVS co를 수행하는 방법은 무엇입니까?

Answer 1

시스템 : http://perldoc.perl.org/functions/system.html

Answer 2

당신이 모듈을 사용하지 말라고하는 동안, 나는 항상하는 것이 좋습니다. CPAN이 Cvs::Simple으로 실행됩니다. 모듈을 사용하지 않은 비즈니스 사례가있는 경우이를 참조로 사용하는 것이 좋습니다.

Answer 3

나는 이것을 my blog에 썼다. 그러나 여기서는 일반 텍스트로되어있다.

expectperl과 IO :: Tty perl 모듈을 다운로드하고 설치해야했습니다. 이 작은 perl 스크립트는 ssh 암호를 묻는 메시지와 함께 cvs 업데이트를 성공적으로 수행합니다.

#!/usr/bin/perl 

use Expect; 

chdir("/files/hudson_local/jobs/MOJARRA_1_2X_ROLLING_GLASSFISH_2_1_1/workspace"); 
$ENV{"CVSROOT"} = ":ext:8bit@java.net/cvs/javaserverfaces-sources~cvs-repository"; 

($cvs = Expect->spawn("cvs update -d -P")) || die "Couldn't spawn cvs, $!"; 

unless ($cvs->expect(30, "Enter passphrase for key '/files/hudson_local/.ssh/id_rsa':")) { 
    die "Never got the passphrase prompt"; 
} 

print $cvs "not the real password\r"; 

unless ($cvs->expect(300, "cvs update: Updating www/legal/jsf-cddl")) { 
    die "Never saw update starting"; 
}