MIME :: ראש MIME :: ראש הוא כותרת הודעה MIME (משנה של דואר :: כותרת).
הורד עכשיו

MIME :: ראש דירוג וסיכום

MIME :: ראש תגים

הוֹדָעָה פרל מודול לְחַקוֹת כּוֹתֶרֶת כותרת ההודעה

MIME :: ראש תיאור

MIME :: ראש הוא כותרת הודעה MIME (משנה של דואר :: כותרת). MIME :: ראש הוא כותרת הודעה MIME (משנה של דואר :: כותרת) .Synopsis לפני הקריאה, אתה צריך לראות mime :: כלים כדי לוודא שאתה מבין היכן מודול זה מתאים לתוכנית הגדולה של הדברים. תמשיך, תעשה את זה עכשיו. אני אחכה .Ready? אישור ... בנייה # # # ליצור כותרת חדשה, ריקה, לאכלס אותו באופן ידני: $ ראש = MIME :: ראש-> חדש; $ head-> החלף ('סוג תוכן', 'טקסט / רגיל; charset = US-ASCII'); $ head-> החלף ('אורך תוכן', $ Len); ### לנתח כותרת חדשה מ filehandle: $ head = mime :: ראש-> לקרוא (* stdin); ### לנתח כותרת חדשה מקובץ, או צינור קריא: $ testhead = mime :: ראש-> מ_file ("/ tmp / testile.hdr"); $ a_b_head = mime :: ראש-> מ_file ("חתול A.hdr b.hdr |"); פלט ### פלט ל- FileHandle: $ head-> הדפסה (* stdout); ### פלט כמחרוזת: הדפס Stdout $ head-> AS_STRING; הדפס Stdout $ head-> stringify; קבלת תוכן שדה ### האם תשובה זו? $ IS_REPLY = 1 אם ($ head-> קבל ('נושא') = ~ / ^ Re: /); ### קבל מידע קבלה: הדפס "קבלת אחרונה מתוך:", $ head-> לקבל ('קיבל', 0), "n"; @all_received = $ head-> קבל ('קיבל'); ### הדפס את הנושא, או את המחרוזת הריקה אם לא: הדפס "נושא:", $ head-> לקבל ('נושא', 0), "n"; ### יותר מדי כשות? לספור אותם ולראות! אם ($ head-> לספור ('קיבל')> 5) {... ### מבחן אם שדה נתון קיים "חסר נושא!" אם ($! תוכן ### להיפטר מבני חדשות פנימיים בתחומים: $ head-> להתפתח; ### לפענח כל q-b-ecoded-text בתחומים (הוצא משימוש): $ head-> פענוח; קבלת מידע ברמה גבוהה MIME ### קבל / הגדרת תכונה MIME נתון: אלא אם כן ($ charset = $ head- > MIME_ATTR ('תוכן. } ### סוג התוכן (למשל, "טקסט / HTML"): $ mime_type = $ head-> Mime_type; ### קידוד העברת תוכן (למשל, "מצוטט-להדפסה"): $ mime_encoding = $ head-> Mime_encoding; ### השם המומלץ כאשר מופק: $ file_name = $ head-> מומלץ_FILENAME; ### טקסט הגבול, עבור הודעות הרבובה: $ גבול = $ head-> multipart_boundary; דרישות: · פרל

MIME :: ראש תוכנה קשורה