tag:blogger.com,1999:blog-2126853644294271188.post7523436944353127901..comments2024-03-01T09:43:55.479+09:00Comments on 정해영의 블로그 - JEONG Haeyoung's blog: [Perl programming #2] substr() 함수 알뜰하게 사용하기jeong0449http://www.blogger.com/profile/15785595805380822762noreply@blogger.comBlogger2125tag:blogger.com,1999:blog-2126853644294271188.post-59661890090148397082012-08-03T13:28:59.502+09:002012-08-03T13:28:59.502+09:00제 블로그에 이렇게 값진 코멘트를 남기는 분이 계실 것으로는 생각하지 못했습니다. 감사합니...제 블로그에 이렇게 값진 코멘트를 남기는 분이 계실 것으로는 생각하지 못했습니다. 감사합니다^^jeong0449https://www.blogger.com/profile/15785595805380822762noreply@blogger.comtag:blogger.com,1999:blog-2126853644294271188.post-78407146195430771512012-08-02T23:01:10.368+09:002012-08-02T23:01:10.368+09:00원래 스트링을 계속적으로 수정,대입하면서 작업하면 새로 메모리를 확보해야기 때문에 비교적 ...원래 스트링을 계속적으로 수정,대입하면서 작업하면 새로 메모리를 확보해야기 때문에 비교적 비용이 많이듭니다.<br />use warnings 프래그마를 쓰면 위코드는 substr outside of string at 같은 경고메시지도나오고요. substr을 쓰면서도 줄이려면<br /><br />while ($orig) {<br /> print( substr($orig, 0, $width, ''), "\n");<br />}<br /><br />처럼 하시면 됩니다. <br /><br />정규식을 쓰면 <br /><br />foreach ($orig2 =~ m/.{1,$width}/g) {<br /> print "$_\n";<br />}<br /><br />처럼 할 수도 있습니다.aero's bloghttps://www.blogger.com/profile/08594337308939199818noreply@blogger.com