IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

Vérifier l'extension et le format d'un fichier image


Sujet :

Langage Perl

  1. #1
    Nouveau membre du Club
    Inscrit en
    Novembre 2008
    Messages
    36
    Détails du profil
    Informations forums :
    Inscription : Novembre 2008
    Messages : 36
    Points : 25
    Points
    25
    Par défaut Vérifier l'extension et le format d'un fichier image
    Bonjour,

    comment pourrais-je vérifier qu'une image de format JPG a bien une extension jpg ou bien jpeg et que quelqu'un ne sait pas amuser a mettre une extension png par exemple?
    J'aimerai vérifier ça pour les format JPG, BMP et TIF.

    Merci

  2. #2
    Membre émérite
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 44
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Points : 2 673
    Points
    2 673
    Par défaut
    Utilise le test
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    if((-e chemin/nom.jpg) || (-e chemin/nom.jpg)){
    	print "extension correcte\n";
    }
     
    elsif((-e chemin/nom.png)){
    	print "extension erronée\n";
    }

  3. #3
    Nouveau membre du Club
    Inscrit en
    Novembre 2008
    Messages
    36
    Détails du profil
    Informations forums :
    Inscription : Novembre 2008
    Messages : 36
    Points : 25
    Points
    25
    Par défaut
    Citation Envoyé par Jasmine80 Voir le message
    Utilise le test
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    if((-e chemin/nom.jpg) || (-e chemin/nom.jpg)){
    	print "extension correcte\n";
    }
     
    elsif((-e chemin/nom.png)){
    	print "extension erronée\n";
    }
    Il suffit juste de savoir qu'un fichier existe et a l'extension jpg pour avoir la certitude que le fichier est au format jpg?

  4. #4
    Membre émérite
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 44
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Points : 2 673
    Points
    2 673
    Par défaut
    Il suffit juste de savoir qu'un fichier existe et a l'extension jpg pour avoir la certitude que le fichier est au format jpg?
    Maintenant que tu me poses la question, j'ai un doute. Il faut voir les différentes extensions possibles pour ce type de fichier. Par exemple, je sais les fichier FASTA peuvent avoir multiples extensions telles que .fa, .fas, .fas, .fasta ... mais je ne sais pas pour les images, renseigne toi sur ce format et attends que quelqu'un d'autre te donne son avis.

  5. #5
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 820
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 820
    Points : 498 771
    Points
    498 771
    Par défaut
    Court simple et propre
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    my $TonFichier = "C:/toto.jpg";
     
    # Verification de l'extension
    unless ( -e $TonFichier and $TonFichier =~ m{(?:jpe?g|bmp|tiff?)$} ) {
      die("Mauvaise extension\nAutorise : jpeg, jpg, bmp, tif, tiff\n");
    }

  6. #6
    Membre chevronné
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Février 2003
    Messages
    1 584
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2003
    Messages : 1 584
    Points : 2 032
    Points
    2 032
    Par défaut
    Attention, vérifiez bien le titre du topic : tagada_tagada ne souhaite pas uniquement une vérification de l'extension, telle qu'elle est écrite dans le fichier de l'image, il veut aussi s'assurer que le format de l'image est bien celui supposé être, eu égard à l'extension justement.

    Exemple : je prend une image BMP, je vire son extension et colle un .jpg à la place. Je pense que tagada_tagada souhaite aussi pouvoir vérifier ça.

  7. #7
    Nouveau membre du Club
    Inscrit en
    Novembre 2008
    Messages
    36
    Détails du profil
    Informations forums :
    Inscription : Novembre 2008
    Messages : 36
    Points : 25
    Points
    25
    Par défaut
    Citation Envoyé par Arioch Voir le message
    Attention, vérifiez bien le titre du topic : tagada_tagada ne souhaite pas uniquement une vérification de l'extension, telle qu'elle est écrite dans le fichier de l'image, il veut aussi s'assurer que le format de l'image est bien celui supposé être, eu égard à l'extension justement.

    Exemple : je prend une image BMP, je vire son extension et colle un .jpg à la place. Je pense que tagada_tagada souhaite aussi pouvoir vérifier ça.
    Oui c'est bien cela. Il est possible en perl de faire cette vérification?

  8. #8
    Expert éminent
    Avatar de Jedai
    Homme Profil pro
    Enseignant
    Inscrit en
    Avril 2003
    Messages
    6 245
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Avril 2003
    Messages : 6 245
    Points : 8 586
    Points
    8 586
    Par défaut
    Il faut utiliser File::MimeInfo::Magic ou File::Type.

    --
    Jedaï

Discussions similaires

  1. Vérifier une extension
    Par DoUPod dans le forum Langage
    Réponses: 6
    Dernier message: 10/02/2009, 13h11
  2. Vérifier l'extension avant l'upload
    Par matto10 dans le forum Langage
    Réponses: 3
    Dernier message: 05/01/2009, 15h49
  3. Détecter le format d'un fichier sans extension
    Par Erwan31 dans le forum Imagerie
    Réponses: 3
    Dernier message: 29/06/2008, 23h21
  4. Vérifier l'extension d'un fichier passé en argument
    Par willem77 dans le forum Débuter
    Réponses: 11
    Dernier message: 14/08/2007, 13h27
  5. Vérifier l'extension et la taille
    Par kevinf dans le forum Langage
    Réponses: 14
    Dernier message: 21/11/2006, 19h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo