[완료] perl의 heredoc관련 질문입니다.

knightflow의 이미지

영어가 짧아서 검색을 해봐도 무슨 의미인지 잘 몰라서 질문 드립니다.^^;;

perl로 스크립트를 짤려는데, 그 전에는 tcsh에서 스크립트를 짜다가 사정상 perl로 넘어오게 되면서 요즘 배우고 있는 단계입니다.

tcsh상에서는 heredoc 사용을 mathematica나 supermongo같은 프로그램을 위해서 사용을 했습니다.

근데 perl에서는 좀 사용법이 다른 것 같은데 검색을 해봐도 잘 모르겠네요;;

tcsh상에서는

-----------------------------------
#!/bin/tcsh

sm << END

data file1
read
limits
....
quit
END
--------------------------------

이런 식으로 사용하였습니다.

근데 perl에서도 비슷한 듯하여 위와 비슷하게 해주었는데, 에러만 뿜내요;;

저런 특정 프로그램의 프롬프트상으로 들어가서 명령어를 처리하고 나오는 식의 heredoc 사용을 perl에서 어떻게 해야하는지 궁금합니다.

cleansugar의 이미지

http://en.wikipedia.org/wiki/Here_document

"는 변수가 있을 때 '는 없을 때, `는 셸 명령어를 넣을 때

" ' 없으면 "이 디폴트, 끝에 ; 붙이기

___________________

http://blog.aaidee.com

재벌 2세가 재벌이 될 확률과
금메달리스트 2세가 금메달을 딸 확률이 비슷해지도록
자유오픈소스 대안화폐를 씁시다.

아이디의 아이디어 무한도전
http://blog.aaidee.com

귀태닷컴
http://www.gwitae.com

lateau의 이미지

$text = 'Example';
print <<END;
Heredoc $text
END
 
$heredoc = <<END;
a String from Heredoc
END
 
print $heredoc;

--
I think to myself...what a emerging world.

--
I think to myself...what a emerging world.

knightflow의 이미지

여태 print나 $heredoc 이부분에 명령어를 넣어서 하려고 했는데, 그게 아니었군요;;;

답변 주신 분들 감사합니다..

lateau의 이미지

위에건 heredoc 선언하는 거 참고하시라고 적어드렸습니다.

혹시 shell script를 실행하고 싶으시다면,

$ls =<<LS;
ls -a
LS
 
print `$ls`;

이렇게 하시면 될 것 같고 문자열을 perl 코드로 실행하시려면 eval을 참고 하시면 될 것 같습니다.
perl의 탄생에는 여러가지 이유가 있겠지만, 쉽게 시스템상에서의 명령어를 내리고 싶다라는 게 하나의 이유였기에, 생각보다 쉽게 사용할 수 있도록 되어있습니다.
게다가 shell 하고도 많이 닮아있어요. :)

--
I think to myself...what a emerging world.

--
I think to myself...what a emerging world.