sub MacroSubst { ### 다음 라인 추가 $txt =~ s/\&__LT__;userlist\&__GT__;/&MacroUserList()/gei; ### return $txt; }
### 다음 함수를 통채로 추가 sub MacroUserList { my (@userlist, $result); my $usernumber; opendir(USERLIST, $UserDir); @userlist = readdir(USERLIST); close(USERLIST); shift @userlist; shift @userlist; @userlist = sort @userlist; foreach $usernumber (0..(@userlist-1)) { @userlist[$usernumber] =~ s/(.*)\.db/($1)/gei; @userlist[$usernumber] = &StorePageOrEditLink("@userlist[$usernumber]", "@userlist[$usernumber]") . "<br>"; } $result = "@userlist"; return $result; }