|
안녕하세요, HappyCGI 팀의 vopos입니다.
>안녕하세요.
>아래 코드가 무슨뜻인지 영 이해가 안가는 부분이 여러개 있어서요.. .
>구찮으시더라도 가르쳐 주셨으면 감사하겠습니다.
>
>[1] s///에서 가운데 부분 "cM"과 "
>+"가 뭘 의미하는건지 모르겠어요.
>
>$FORM{
comments
} =~ s/cM//g;
>$FORM{
comments
} =~ s/
+/
/g;
cM은 도스/윈도우즈에서 생성되는 개행문자(newline character) 코드인데요, 그놈
을 제거하는 것입니다.
"+" 같은 특수문자를 "meta-character"라고 얘기를 하는 것 같은데 의미는 "+"앞에
나오는 문자를 포함해서 하나또는 하나이상의 문자를 의미합니다. "
" "
"
"
" 등이 매치되겠습니다.
>[2] 가장아랫부분 "$value =~ s///g;"가 아마도 제가 보기에는 html코드를 제거주는 역할을 하는것 같은데 이것이 정확히 어떻게 해서 제거해 주는건지 모르겠어요.
>
>$value =~ tr/+/ /;
>$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>$value =~ s///g;
>
>[3] s///에서 가운데 부분인 "^s+"과 "s+$"이 이해가 안가요
>$list=~ s/^s+//;
>$list=~ s/s+$//;
정확히 알고 싶으시면 정규표현식(regular expression)에 대해 공부해보세요.
http://www.happycgi.com/forum/forum_detail.cgi?thread=6141r02&category=웹프로그램_관련/PHP_관련/PHP_질문과_답변
>[4] 마지막 if문에 대해서 코맨트를 부탁합니다. 이것은 유명한 way-board의 데이터 퍼싱 루틴인데 if문 조건으로 쓰인 "defined($Field{$name})"이 뭔지 이해가 안갑니다. define()함수가 쓰인듯 한데 이런 함수의 쓰임새를 찾아볼려면 어찌해야 하나요?
defined function에 대한 설명을 읽어보세요.
http://www.perl.com/pub/doc/manual/html/pod/perlfunc/defined.html
>sub input_data {
>
>if ($ENV{
REQUEST_METHOD
} eq
GET
) {
>@pairs = split(/&/, $ENV{
QUERY_STRING
});
>}
>elsif ($ENV{
REQUEST_METHOD
} eq
POST
) {
>read(STDIN, $buffer, $ENV{
CONTENT_LENGTH
});
>@pairs = split(/&/, $buffer);
>}
>else {
>exit;
>}
>
>foreach $pair (@pairs) {
>
>local($name, $value) = split(/=/, $pair);
>
>$name =~ tr/+/ /;
>$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
>
>$value =~ tr/+/ /;
>$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>$value =~ s///g;
>
>if (defined($Field{$name})) {
>$Field{$name} = $value;
>}
>else {
>if ($Field{$name} && $value) {
>$Field{$name} = "$Field{$name}, $value";
>}
>elsif ($value) {
>$Field{$name} = $value;
>}
>}
>}
>
>}
>
>
>휴우~~~ 이상입니다. 아마도 굉장히 초보적인 질문인데 저의 마음은 지금 코끼리 다리 만지는 기분입니다.귀찮으시겠지만 조금만 도와주신다면 저에게는 정말 많은 도움이 되겠습니다.
>감사합니다.
해피 CGI와 함께 행복한 시간 되길 바랍니다. 감사합니다.
- vopos
|
28
653
2001-01-08 10:50:57
닉네임
