[질문]perl을 이용한 리모트 화일 수정
글쓴이: closeyes / 작성시간: 화, 2007/05/22 - 2:30오후
리모트 파일을 perl을 사용해서 수정하려고 합니다.
그래서 다음과 같은 스크립트를 작성했습니다.
###########
# 생략
open(REMOTEIN, "ssh $HOST cat $FILE |");
while() {
print($_);
my $line = $_;
$line =~ s/"/\\"/g;
# 여러가지 수정.
# 리모트 화일에 저장
}
리모트에 있는 파일을 파이프 오픈을 해서 읽어들인 후, 한줄씩 =~ s///g 구문을 사용해서 수정을 하려고 합니다.
그런데 문제는 읽어들인 라인에 대해 수정한 내용을 리모트에 저장하는 방법인데요.
이걸 어떻게 해야 할지 대책이 안서네요. 고수분들의 의견을 들려주십시요.
Forums:
File::Remote 모듈을 이용해 보세요.
File::Remote 모듈을 이용해 보세요.
http://search.cpan.org/~nwiger/File-Remote-1.17/Remote.pm
use Expect;
use Expect;
scp로 로컬에 받아서
scp로 로컬에 받아서 수정한 다음 다시 scp로 올리는 방법으로 하는 것은 어떨가요?
-----
오늘 나의 취미는 끝없는, 끝없는 인내다. 1973 法頂
-----
오늘 나의 취미는 끝없는, 끝없는 인내다. 1973 法頂
서버가 100대라면
서버가 100대라면 하루종일 수정만 하다 하루 지날꺼같아요-_-;
제 생각엔 ssh-agent
제 생각엔 ssh-agent 같은 것을 사용하면 간단히 해결될듯한데요.
-----
오늘 나의 취미는 끝없는, 끝없는 인내다. 1973 法頂
-----
오늘 나의 취미는 끝없는, 끝없는 인내다. 1973 法頂
댓글 달기