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

펄 - 제 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강 예제 폼 (5836)1996-04-24
이전글: 펄 - 제 21강 파일처리 (7645)1996-04-22

세상사는 이야기

  • 바보도 할 수 있는 War >
  • 북마크에도 확장 아이 >
  • 크롬은 가라, 비발디가 >
  • 감히 아이폰 관리의 최 >
  • 디지털 노마드의 편집 >
  • [블로그 복귀 알림] 새 >
  • 오타도 즐거운 안드로 >
  • 최고의 OCR 어플, Text >
  • 누구나 할 수 있는 순 >
  • 듀오백 컨텐츠 허브, >


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