Mime :: tête MIME :: La tête est une tête de message MIME (une sous-classe de courrier :: en-tête).
Télécharger maintenant

Mime :: tête Classement & Résumé

Mime :: tête Mots clés

message Module Perl MIME entête entête de message

Mime :: tête La description

MIME :: Head est une tête de message MIME (une sous-classe de courrier :: en-tête). MIME :: Head est une tête de message MIME (une sous-classe de courrier :: en-tête) .Synopsisbefreavant Lire plus loin, vous devriez voir MIME :: Outils pour vous assurer de bien comprendre où ce module s'intègre dans le grand schéma des choses. Allez, faites-le maintenant. Je vais attendre. OK ... Construction ### Créer une nouvelle en-tête vide et le peupler manuellement: $ Head = Mime :: Head-> Nouveau; $ Head-> Remplacer ('Type de contenu', 'Texte / Plain; Charset = US-ASCII'); $ tête-> remplacer ("longueur de contenu", $ len); ### analysez une nouvelle en-tête d'un fichierHandle: $ tête = mime :: Head-> Lire (* stdin); ### Paysez une nouvelle en-tête d'un fichier ou d'un tuyau lisible: $ Testhead = mime :: Head-> de_file ("/ TMP / Test.HDR"); $ A_B_HEAD = MIME :: Head-> From_file ("Cat A.HDR B.HDR |"); Sortie ### Sortie à FileHandle: $ Head-> Imprimer (* stdout); ### Sortie en tant que chaîne: Imprimer Stdout $ Head-> As_string; Imprimer Stdout $ Head-> Stringify; Obtenir le contenu de champ ### est-ce une réponse? $ is_reply = 1 si ($ head-> obtenir ("sujet") = ~ / ^ re: /); ### Obtenir des informations de réception: Imprimer "Dernière reçu de:", $ Head-> Obtenez ('reçu', 0), "N"; @All_Received = $ Head-> Obtenez ('reçu'); ### Imprimez le sujet ou la chaîne vide si aucune: imprimez "Sujet:", $ Head-> Obtenez ("Sujet", 0), "N"; ### Trop de sauts? Comptez-les et voyez! Si ($ Head-> Compte ('reçu')> 5) {... ### Testez si un champ donné existe en avertissant "Sujet manquant!" Si (! $ Head-> Nombre ("sujet")); régler le contenu du champ ### déclarer ceci comme un en-tête HTML: $ Head-> remplacer ("Type de contenu", "Texte / HTML"); Texte de manipulation Contenu ### Débarrassez-vous des nouvelles lignes internes dans les champs: $ Head-> Déplier; ### décoder tout texte codé Q- ou B dans des champs (obsolète): $ Head-> décodage; obtenir des informations de mime de haut niveau ### Obtenir / définir un attribut MIME donné: Sauf si ($ Charset = $ head- > MIME_ATTR ('' Content-Type.Charset ')) {$ Head-> mime_attr ("Content-type.Charset" => "US-ASCII"); } ### le type de contenu (par exemple, "text / html"): $ mime_type = $ tête-> mime_type; ### L'encodage de transfert de contenu (par exemple, "cité-imprimable"): $ mime_encoding = $ head-> mime_encoding; ### le nom recommandé lorsqu'il est extrait: $ file_name = $ head-> recommandé_filename; ### le texte de limite, pour les messages multipartiers: $ frontière = $ tête-> multipart_boundary; Exigences: · Perl

Mime :: tête Logiciels associés