Cette fonction vous permet d'encoder les caractère d'une chaîne au format MIME. (Multipurpose Internet Mail Extension)
Programmation > Perl
Recherche :   
Actualité Système Salon Concours Outils Programmation Devparadise Programmation HTML .Net JavaScript VBScript ASP PHP Visual Basic Perl Java Active X SQL XML WAP Delphi Graphisme Flash Web Design Promotion Référencement Publicité Valeur de votre site Outils Systèmes Windows Unix Linux Benchmark Hardware Réseaux locaux Droit Sécurité
Encodeur d'URL en Perl
  Auteur : Philippe PETIT

Cette fonction vous permet d'encoder les caractère d'une chaîne au format MIME. (Multipurpose Internet Mail Extension)

Publicité 
Avant d'être envoyés sur le web les caractères d'une chaîne URL doivent être convertis.

sub EncodeMIME {

local ($ValIn) = $_[0];
$ValOut = "";

Charactères à ne pas encoder:

$NoEncodeChar = '*-.@0123456789ABCD
EFGHIJKLMNOPQRSTUVWXYZabcdefg
hijklmnopqrstuvwxyz';
for ($i = 0; $i < length($ValIn); $i++){

    $AscVal=substr($ValIn,$i,1);
    if ($AscVal eq " ") {

      Encodage du caractère " ":

      $ValOut = $ValOut . '+';

    } else {
      $trouve=0;
      $ii = 0;
      while (($ii < length
      ($NoEncodeChar)) &&
      ($trouve==0)){
        $ValStr=substr(
        $NoEncodeChar,$ii,1);
        if ($ValStr eq $AscVal) {
          $trouve=1;
        }
        $ii++;
      }
      if ($trouve==1) {
        $ValOut = $ValOut . $AscVal;
      } else {

        Encodage des autres caractères:

        $ValOut = $ValOut . '%' . uc(sprintf("%x",ord($AscVal)));

      }

    }

}

$ValOut;

}

1;
A lire aussi sur Devparadise.com :
  • Utilisation de l'utilitaire HTMLDOC
  • Créer et envoyer un mail en Perl. (HTML, pièces jointes...)
  • Création d’un diagramme circulaire en PERL.
  • Créez une Icône pour votre Site Web
  • Les pages satellites
    • A télécharger aussi sur Devparadise.com :
  • XAMPP 1.5.1 pour windows
  • UltraEdit Version 8.10
  • SWF-modules 0.01
  • Sysinfo 1.03
  • NP Subscriber
    		•

    © 1997-2008 tous droits réservés Devparadise.com
    Les logos, et marques déposées sont la propriété de leurs détenteurs respectifs.
    Devparadise.com s'est engagé à respecter la confidentialité des données personnelles régies par la loi 78-17 du 6 janvier 1978.
    Déclaration C.N.I.L. n° 621623
    Perl,MIME,url