םגדוהש ספוטה י"ע חלשנש עדימה תא טלוק הז דומעב ראותמה טירסתה
.HTML ךסמ גיצמו ,הבושת בתכמ חלוש ,םינותנה תא דבעמ ,םדוקה דומעב
|
1) #!/usr/local/bin/perl
|
"תרמוא" תאזה הרושה .תאזה הרושב ליחתהל תבייחPerl תפשב תינכות לכ
.Perl תפשב תינכותב ןאכ רבודמש HTTP ה תרשל
|
1) $mail_program="/usr/lib/sendmail"; 2) &get_data; 3) &put_mail; 4) &write_web; |
תינכותה םוקימ E-mail -ה תנכות תא HTTP -ה תרשל הרידגמ 1 הרוש
ראש .(הנתשמ והזש רידגמ $ ןמיסה) $mail_program הנתשמל סנכומ
.תוינכות תת תוליעפמ תורושה
|
1) sub get_data 2) { 3) read (STDIN,$data,$ENV{'CONTENT_LENGTH'}); 4) @zug=split(/&/,$data); 5) foreach $zug(@zug) 6) { 7) ($shem,$erech)=split(/=/,$zug); 8) $erech=~tr/+/ /; 9) $erech=~s/%(..)/pack("c",hex($1))/eg; 10) $tofes{$shem}=$erech; 11) } 12) } |
ךכ םתוא תדבעמן HTML - ה ספוטמ םינותנה תא תטלוקה תינכות תת תאז
המוד תינכות תתה תרדגה .וללה םינותנה םע דובעל ולכוי תינכותה יקלח ראשש
.C תפשבש תאזל
$ENV הנתשמה $data הנתשמל ספוטהמ טלקנש עדימה לכ תא הסינכמ 3 הרוש
אוה ךרע לכש םירתא לש תוגוז ליכמה הנתשמ) יביטאיצוסא הנתשמ אוה
המגודל .HTTP -ה תרש לש םירטמרפ ריזחמש (ולש גוזה ןב לש הנתשמ
.ספוטה חלשנ ונממש תרשה םש תא ריזחמ $ENV{'REMOTE_HOST'}
הדשה םש) ספוטה תודש לש תוגוזל ספוטהמ עיגמה עדימה תא תלצפמ 4 הרוש
.@zug םינותנ ךרעמל הסינכמ איה הזה עדימה תא (דחיב םייתניב ומצע ןותנהו
תוגוזה לכ לע תרבועש האלול רמולכ ,foreach גוסמ האלול הליחתמ 5 הרוש
.םירמגנ םהש דע םינותנה
הדשה םש .הדשה ךותב ןותנל הדשה םש ןיב םעפה ,ףסונ לוציפ ונשי 7 הרושב
.$erechהנתשמב ןסכואמ ןותנהו $Shem הנתשמב ןסכואמ
.ספוטהמ םיעיגמה םינותנב ךסונ דוביע תועצבמ 9 ו 8 תורוש
יפכ .$tofes יביטאיצוסאה הנתשמב דבועמה עדימה תא תנסכאמ 10 הרוש
.הזל הז םירושקה םינותנ תוגוז ליכמ יביטאיצוסא הנתשמ םדוקמ רמאנש
.address ארקנש הדשמ ןותנה תא ריזחי $tofes{'address'} :המגודל
|
1) sub put_mail 2) { 3) open (MAIL,"|$mail_program); 4) print MAIL "To: $tofes{'email'}\n"; 5) print MAIL "From: kobik@oocities.com\n"; 6) print MAIL "Subject: Answer Letter!!!\n"; 7) print MAIL "Your name is: $tofes{'shem'}\n"; 8) print MAIL "Your address is: $tofes{'address'}\n"; 9) print MAIL "Your telephone is: $tofes{'phone'}\n"; 10)close (MAIL); 11)} |
.ספוטה חלושל ראוד תחלוש תאז הרגש תת
תא תובתוכ תורושה ראש .םדוקמ ונבתכש ראודה תינכות תא הליעפמ 3 הרוש
.ומצע E-mail -ה
ןבומכו ראודה תא חלש ימ ,ראודה תא םיחלוש ימל רידגהל שיש ןייצל בושח
.ומצע E-mail - ה אשונ
.ראודה תנכות תא תרגוס 10 הרוש
|
1) sub write_web 2) { 3) print "Content-type: text/html\n\n"; 4) print "<head><title>thank you!!</title></head>"; 5) print "<body><b><u>thank you</u></b></body>"; 6) } |
םיבתוכ וישכעש הרידגמ 3 הרוש .HTML דומע תבתוכ הנורחאה תינכות תתה
.ומצע HTML ה דומע תא תובתוכ תורושה ראשו דומעה תא
 |
 |