Perl에서 OH_MY_GOD 을 OhMyGod / ohMyGod 으로 치환하려면?

liquidbird의 이미지

안녕하세요.

Perl을 사용해서 텍스트파일안에서 (DB스크립트 같은)
'OH_MY_GOD' 과 같은 형식을 모두 'OhMyGod' 형식으로 / 또는 'ohMyGod' 형식으로
바꾸려고 하는데, 루프랑 정규식을 몇 번 이리저리 사용해서 변환은 했습니다만
치환문 한 번에 끝낼 수 있을 것 같은데 방법을 몰라서 문의드립니다.

AA_BB_CC..와 같은 꼴을 바꾸는 것인데 AA,BB..어디까지 갈지 갯수가 정해져 있지 않고
들어갈 수 있는 단어도 계속 바뀌니까 한번에 어떻게 할지 감이 안 오네요^^

ai의 이미지

.
.
.
.

$ echo 'OH_MY_GOD'  | perl -pe 's/([^_]+)/\L\u$1/g; s/_//g;'
OhMyGod
$ echo 'OH_MY_GOD'  | perl -pe 's/([^_]+)/\L\u$1/g; s/([^_]+)/\l$1/; s/_//g;'
ohMyGod

--
War doesnt determine whos right, just whos left.

War doesnt determine whos right, just whos left.