[질문]perl을 이용한 리모트 화일 수정

closeyes의 이미지

리모트 파일을 perl을 사용해서 수정하려고 합니다.

그래서 다음과 같은 스크립트를 작성했습니다.

###########
# 생략
open(REMOTEIN, "ssh $HOST cat $FILE |");

while() {
print($_);
my $line = $_;
$line =~ s/"/\\"/g;
# 여러가지 수정.
# 리모트 화일에 저장
}

리모트에 있는 파일을 파이프 오픈을 해서 읽어들인 후, 한줄씩 =~ s///g 구문을 사용해서 수정을 하려고 합니다.
그런데 문제는 읽어들인 라인에 대해 수정한 내용을 리모트에 저장하는 방법인데요.
이걸 어떻게 해야 할지 대책이 안서네요. 고수분들의 의견을 들려주십시요.

aero의 이미지

File::Remote 모듈을 이용해 보세요.

http://search.cpan.org/~nwiger/File-Remote-1.17/Remote.pm

익명 사용자의 이미지

use Expect;

M.W.Park의 이미지

scp로 로컬에 받아서 수정한 다음 다시 scp로 올리는 방법으로 하는 것은 어떨가요?
-----
오늘 나의 취미는 끝없는, 끝없는 인내다. 1973 法頂

-----
오늘 의 취미는 끝없는, 끝없는 인내다. 1973 法頂

lse0101의 이미지

서버가 100대라면 하루종일 수정만 하다 하루 지날꺼같아요-_-;

M.W.Park의 이미지

제 생각엔 ssh-agent 같은 것을 사용하면 간단히 해결될듯한데요.

-----
오늘 나의 취미는 끝없는, 끝없는 인내다. 1973 法頂

-----
오늘 의 취미는 끝없는, 끝없는 인내다. 1973 法頂