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 :

Test fichier attribut archive


Sujet :

Langage Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Inscrit en
    Juillet 2005
    Messages
    9
    Détails du profil
    Informations forums :
    Inscription : Juillet 2005
    Messages : 9
    Par défaut Test fichier attribut archive
    Bonjour,

    N'y connaissant rien en perl, je fais appel à vos lumières, le script fonctionne normalement hormis que dans le cas de la présence d'un fichier ayant un attribut archive j'ai un message d'erreur.

    Ci-dessous un bout du script, je pense qu'il s'agit de la fonction test_file
    ------------------------------------------------------------------------
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    ### Si un fichier est présent on l'upload ###
    
    	if ($cpt_ph > 0)
    	{
    
    		print LOG "\n### Photos uploadés ###\n\n";
    
    		foreach $fich2 (@photo)
    		{
    			### Si la photo est disponible on l'upload ###
    			chomp $fich2;	
    			$test_file = "S:\\IMGPROD\\".$fich2;
    
    			if (-e $test_file) 	
    			{
    				### Upload des fichiers ###
    				upload($fich2);
    				### Test du hash du fichier reçu ###
    		
     #				$test = test($fich2);
    $test=1;
    				### Si test OK ###
    
    				if ($test eq "1")
    				{
    					### Log #####
    					chomp $fich2;
    					print LOG "     -> ".$fich2."....OK\n";
    					$test = 0;
    				}
    				else
    				{
    					### Sinon on log $fich2 comme érroné ###
    
    					@tab_err[$cpt_err]=$fich2;
    					$cpt_err++;
    				}
    			}
    			else
    			{
    				print LOG "\nLe fichier ".$fich2." n'est pas présent sur servphoto\n\n";
    			}
    		}
    	}
    	else
    	{
    		print LOG "\nLe fichier ECO_IMAGES.TXT est vide\n\n";
    	}
    }
    else
    {
    	print LOG "\n Le fichier ECO_IMAGES.TXT n'est pas disponible auprès de STL\n\n";
    --------------------------------------------------

    Merci à tous de vos aides

    Rolland

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

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Par défaut
    Bonjour,

    Pourrais-tu mettre les balises codes (dièses dans la barre d'outils) afin de rendre ton script plus lisible.

    Merci,

  3. #3
    Membre habitué
    Inscrit en
    Juillet 2005
    Messages
    9
    Détails du profil
    Informations forums :
    Inscription : Juillet 2005
    Messages : 9
    Par défaut
    Voila c'est fait.

    Désolé.

    Rolland

Discussions similaires

  1. Test : Fichier/Dossier
    Par hedgehog dans le forum Langage
    Réponses: 2
    Dernier message: 10/06/2008, 10h20
  2. Fichiers d'archives Javascript.
    Par baos! dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 26/02/2008, 14h19
  3. Verouillage et test fichier type texte
    Par jmjmjm dans le forum Linux
    Réponses: 3
    Dernier message: 15/01/2007, 18h11
  4. [XPath] test self::attribute
    Par luta dans le forum XSL/XSLT/XPATH
    Réponses: 16
    Dernier message: 16/06/2006, 12h03
  5. [TPAbbrevia] Problème ajout de fichiers dans archive
    Par Pill_S dans le forum Composants VCL
    Réponses: 4
    Dernier message: 13/10/2005, 23h18

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