날짜: 1996-04-23 | 글쓴이: 도아 | 7486 번 | 프린트 | 메일로보내기

펄 - 제 22강 최종 스크립트


이것으로 모든 것이 끝났다.
################################################################ 
# 헤더를 구성
################################################################ 
print(MAIL "To: recipient\n"); 
if ( ! $cgiVals{'subject'} ) { 
    $cgiVals{'subject'} = "(no subject)"; 
} 
print(MAIL "Subject: $cgiVals{subject}\n"); 
if ( ! $cgiVals{'from'} ) { 
    $cgiVals{'from'} = "nobody"; 
} 
print( MAIL "From: $cgiVals{from}\n"); 
# 헤더를 구성한 후, 빈줄을 추가
print( MAIL "\n"); 
 
################################################################ 
# 몸체를 구성
################################################################ 
foreach $key ( keys(%cgiVals) ) { 
    if ( $key eq "to" || $key eq "subject" || $key eq "from" ) { 
	next; 
    }  
    print( MAIL "$key: $cgiVals{$key}\n"); 
} 
################################################################ 
# 메일 종료
################################################################ 
close(MAIL); 
# the response. 
print("폼을 성공적으로 체출했다. 고맙다."); 
exit(0); 


다음글: 펄 - 제 23강 예제 폼 (6118)1996-04-24
이전글: 펄 - 제 21강 파일처리 (7934)1996-04-22

세상사는 이야기

  • 찾아라! 아이폰 순정용 >
  • 만원대 피젯 스피너를 >
  • 망하는 길을 택한 쿠팡 >
  • 물놀이에 적당한 가성 >
  • 컴퓨터를 IPTV로 2, po >
  • 컴퓨터를 IPTV로 만들 >
  • Warning.or.kr도 우회 >
  • 한국의 100대 부자, 어 >
  • 세상을 바꾼 크롬: 크 >
  • 장난(?)으로 시작한 여 >


  • RSS 구독 (익명 | 회원 | 강좌 | 포럼)
    (C) 1996 ~ 2017 QAOS.com All rights reserved.