perl 문법 질문..

지나가는새의 이미지

아래는 squid 에서 뽑아낸 redirector 에 쓰이는 샘플 스크립트 입니다.

#!/usr/bin/perl
$|=1;
while (<>) {
s@http://www.aaa.com@http://www.bbb.com@;
print;
}

그런데 저 한 줄 (aaa -> bbb로) 에 추가를 해도( 같은 내용으로요) 작동되지 않더군요. :(

제가 하고 싶은건 저 s@....@ 를 여러개 주고 싶은데요, 문법을 몰라서 이래저래 시도는 해 봤지만 안되네요.

도움 부탁 합니다.

cjh의 이미지

그냥 여러줄로 주세요.

#!/usr/bin/perl 
$|=1; 
while (<>) { 
  s@http://www.aaa.com@http://www.bbb.com@; 
  s@http://www.ccc.com@http://www.bbb.com@;
  s@http://www.ddd.com@http://www.bbb.com@; 
  s@http://www.eee.com@http://www.bbb.com@; 
print; 
}

--
익스펙토 페트로눔

지나가는새의 이미지

이런.. 위에 썼듯이 해 봤는데 안돼서 여기 글 올린건데 지금 하니까 되네요..

쩝.. 아무래도 ie의 캐쉬에 농락 당한 기분입니다.

감사합니다.

Fever Pitch!