|
안녕하세요.
아래 코드가 무슨뜻인지 영 이해가 안가는 부분이 여러개 있어서요.. .
구찮으시더라도 가르쳐 주셨으면 감사하겠습니다.
[1] s///에서 가운데 부분 "cM"과 "
+"가 뭘 의미하는건지 모르겠어요.
$FORM{
comments
} =~ s/cM//g;
$FORM{
comments
} =~ s/
+/
/g;
[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+$//;
[4] 마지막 if문에 대해서 코맨트를 부탁합니다. 이것은 유명한 way-board의 데이터 퍼싱 루틴인데 if문 조건으로 쓰인 "defined($Field{$name})"이 뭔지 이해가 안갑니다. define()함수가 쓰인듯 한데 이런 함수의 쓰임새를 찾아볼려면 어찌해야 하나요?
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;
}
}
}
}
휴우~~~ 이상입니다. 아마도 굉장히 초보적인 질문인데 저의 마음은 지금 코끼리 다리 만지는 기분입니다.귀찮으시겠지만 조금만 도와주신다면 저에게는 정말 많은 도움이 되겠습니다.
감사합니다.
|
82
681
2001-01-06 10:47:00
닉네임
