sub MacroSubst { ... ### 다음 세 줄 추가 $txt =~ s/\&__LT__;dic\(([^)]+)\)\&__GT__;/&MacroEDic($1)/gei; $txt =~ s/\&__LT__;kdic\(([^)]+)\)\&__GT__;/&MacroKDic($1)/gei; $txt =~ s/\&__LT__;jdic\(([^)]+)\)\&__GT__;/&MacroJDic($1)/gei; ### return $txt; }
... ############### ### added by gypark ### 추가한 매크로의 동작부 ### 세 가지 사전 매크로. 다음 세 함수를 통채로 추가 sub MacroEDic { return "<a href='http://dic.naver.com/endic?query=@_' target='dictionary'>@_</a>"; } sub MacroKDic { return "<a href='http://krdic.naver.com/krdic?query=@_' target='dictionary'>@_</a>"; } sub MacroJDic { return "<a href='http://jpdic.naver.com/jpdic?query=@_' target='dictionary'>@_</a>"; } ### 여기까지 ### <IncludeDay> sub MacroIncludeDay { my ($mainpage, $day_offset) = @_; ...