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

Programmation et administration système Perl Discussion :

fichier résultat en sortie vide


Sujet :

Programmation et administration système Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Chef de projet NTIC
    Inscrit en
    Juin 2015
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Chef de projet NTIC

    Informations forums :
    Inscription : Juin 2015
    Messages : 18
    Par défaut fichier résultat en sortie vide
    Bonjour tous,

    je souhaiterais avoir en sortie de mon script, un fichier avec les infos sur la même ligne pour le même "ND". Merci d'avance de votre aide.
    la synthaxe du script est : SCRIPT FichierDepart DDMMYYYY 0001

    extrait fichier en entrée:

    @
    ABOIL;

    @
    CEN=1/15-05-23/09 H 06 MN 18/LISTAGE CARACTERISTIQUES D'ABONNES
    TRAITEMENT TGLAIL ACC
    ND=31630000 NE =001-19-111 TAX = 00077947
    TY= KLA+ SR4
    CAT= IAM+ FD3+ RVT+ SRC+ CAM2+ IAI
    MAR=ATT
    ND=36851217 NE =027-07-011 TAX = 00000000
    TY= KLA+ SR1
    CAT= FD3+ SRC+ DAD1+ CAC14+ ZTX14+ ZG14
    NDS=31656756 ND=31653755
    NDS=31656757 ND=31653755
    TRAITEMENT TGLAIL EXC

    le script PERL:

    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
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    #!/usr/bin/perl
     
    	#############################################################################
     
    	#FONCTIONS 
     
    	## Restrait des espaces dans une chaine de caractères
    	sub del_space
    	{
    		$lig = $_[0];
    		$new_lig = "";
    		$taille_lig = length($lig);
    		$i = 0;
    		while ($i <= $taille_lig-1)
    		{
    			if (substr($lig,$i,1) ne " ")
    			{
    				$new_lig = $new_lig.substr($lig,$i,1);
    			}
    			$i++;
    		}	
    		$lig = $new_lig;
    	}	
     
    	## Extraction des valeurs des paramètres : ND-NE-NDG-NDS-TAX-TY-CAT-MAR
    	sub nd_val
            {
                    $nd = $_[0];
     
                    $nd = substr($nd,3,8);
    		$nd = $nd;
            }
     
    	sub ne_val
            {
                    $ne = $_[0];
     
                    $ne = substr($ne,3,10);
                    $ne = $ne;
            }
     
    	sub tax_val
            {
                    $tax = $_[0];
     
                    $tax = substr($tax,4,8);
                    $tax = $tax;
            }
     
            sub ndg_val
            {
                    $ndg = $_[0];
     
                    $ndg = substr($ndg,4,8);
    		$ndg = $ndg;
            }
     
    	sub nds_val
            {
                    $nds = $_[0];
     
                    $nds = substr($nds,4,8);
                    $nds = $nds;
            }
     
    	sub ty_val
            {
                    $ty = $_[0];
     
    		$taille_ty = length($ty);
     
                    $ty = substr($ty,3,$taille_ty-3);
                    $ty = $ty;
     
    	}
     
    	sub cat_val
            {
                    $cat = $_[0];
    		$taille_cat = length($cat);
    		$cat = substr($cat,4,$taille_cat-4);
     
    		$cat = $cat;
            }
     
    	sub mar_val
            {
                    $mar = $_[0];
    	 	$taille_mar = length($mar);
                    $mar = substr($mar,4,$taille_mar-4);
     
    		$mar = $mar;
            }
     
    	#############################################################################
     
    	#ouverture du fichier original
            open(fich, $ARGV[1]);
     
            #creation du fichier sans les NDS et les NDG
    	$intfilename = $ARGV[1].'_1';
            open(F, '>'.$ARGV[1].'_1');
     
            while ($ligne = <fich>)
            {       
                    chomp($ligne);
                    if ((index($ligne,"NDS") < 0) && (index($ligne,"NDG") < 0))
                    {
                            printf (F "%s \n", &del_space($ligne));
                    }
            }
            close F;
            close fich;
     
     
    	#ouverture du fichier sans les NDS et les NDG
            open(fich, $ARGV[1].'_1');
     
    	#creation du nouveau fichier : fichier plat avec separateur ;
    	$filename = $ARGV[1].'_2.TXT';
            open(F, '>'.$ARGV[1].'_2.TXT');
     
    		$ND = "";
    		$ND_ANC="";
    		$NE="";
            	$NDG="";
            	$NDS="";
    		$TAX="";
            	$TY="";
           		$CAT="";
            	$MAR="";
     
    		$nb_nd = 0;
     
            while ($ligne = <fich>)
            {	
    		chomp($ligne);
     
    		if (index($ligne,"ND=") >= 0)
    		{
    			$nb_nd++;
    			$ND_ANC = $ND;
    			$ND = substr($ligne,index($ligne,"ND="),11);
     
    			if (($nb_nd > 1) && ($ND_ANC ne ""))
    			{
    				$new_line = &nd_val($ND_ANC).";".&ne_val($NE).";".$NDG.";".$NDS.";".&tax_val($TAX).";".&ty_val($TY).";".&cat_val($CAT).";".&mar_val($MAR);
     
    			printf (F "%s \n", $new_line);
                                   $NE="";
                                   $TAX="";
                                   $TY="";
                                   $CAT="";
                                   $MAR="";	
     
    			}
     
    			if (index($ligne,"NE=") >= 0)
                           	{
                                   	$NE = substr($ligne,index($ligne,"NE="),13)
                           	}
     
                           	if (index($ligne,"TAX=") >= 0)
                           	{
                                   	$TAX = substr($ligne,index($ligne,"TAX="),12)
                           	}
     
    		}
     
    		else
    		{	
    			if (index($ligne,"TY=") >= 0)
    			{			
    	       			$TY = substr($ligne,index($ligne,"TY="),length($ligne)-1)
    			}
     
    			if (index($ligne,"CAT=") >= 0)
    			{		
    	       			$CAT = substr($ligne,index($ligne,"CAT="),length($ligne)-1)
    			}
     
    			if (index($ligne,"MAR=") >= 0)
            		{  		
                			$MAR = substr($ligne,index($ligne,"MAR="),length($ligne)-1)
            		}
            	}
            }
     
    	$new_line = &nd_val($ND).";".&ne_val($NE).";".$NDG.";".$NDS.";".&tax_val($TAX).";".&ty_val($TY).";".&cat_val($CAT).";".&mar_val($MAR);
     
    	printf (F "%s \n", $new_line);
     
    close F;
    close fich;
     
    $newfilename = $ARGV[0].'_'.$ARGV[1].'_'.$ARGV[2].'_'.$ARGV[3].'.TXT';
    rename($filename, $newfilename);
     
    unlink($intfilename);

  2. #2
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Billets dans le blog
    1
    Par défaut
    Oulala, presque 200 lignes de code pour un problème aussi simple, il y certainement moyen de faire beaucoup beaucoup plus court.

    Deux questions:
    - En quoi ton script ne répond-il pas à ton besoin?
    - Pourrais-tu donner le résultat attendu avec l'échantillon de départ que tu as donné?

  3. #3
    Membre averti
    Homme Profil pro
    Chef de projet NTIC
    Inscrit en
    Juin 2015
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Chef de projet NTIC

    Informations forums :
    Inscription : Juin 2015
    Messages : 18
    Par défaut
    ci-après le fichier résultat attendu en sortie:

    31630000;001-19-111;;;00077947;KLA+SR4;IAM+FD3+RVT+SRC+CAM2+IAI;ATT
    31633161;002-13-115;;;00006845;KLA+SR1;FD3+DF2+SRC+DAD1+RVFO+RFNR;ARFO+ARFN
    31651448;001-12-117;;;00000000;KLA+SR1;FD3+SRC+DAD1+RVFO+RFNR;ARFO+ARFN
    31630003;;;;;;DF3;
    35905483;028-05-076;;;00000000;KLA+SR1;FD3+SRC+IAI+DAD1+DIPA;ATT
    31632858;001-24-125;;;00057074;KLA+SR1;FD3+SRC+DAD1+RVFO+RFNR;ARFO+ARFN
    31630006;002-01-079;;;00000277;KLA+SR1;FD3+DF2+SRC+DAD1+RVFO+RFNR;ARFO+ARFN
    31630007;;;;;;DF3;
    31632787;002-04-034;;;00135362;KLA+SR1;FD3+SRC+DAD1+RVFO+RFNR;ARFO+ARFN
    31630009;002-00-075;;;00094708;KLA+SR4;FD3+SRC+CAC55;
    30686167;017-00-057;;;00000685;KLA+SR1;FD3+DF2+SRC+DAD1+CAC17+ZTX17+ZG17;
    30624322;016-05-005;;;00000957;KLA+SR1;FD3+SRC+DAD1+CAC16+ZTX16+ZG16+RVFO+RFNR;ARFO+ARFN
    31631558;004-00-049;;;00004778;KLA+SR1;FD3+DF2+SRC+DAD1;
    31630013;;;;;;DF3;

  4. #4
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Billets dans le blog
    1
    Par défaut
    Je regarde cela quand j'arrive chez moi.

  5. #5
    Responsable Perl et Outils

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

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Bonjour,

    À part être gourou, difficile d'analyser un fichier dont on ne connait pas le contenu . La moindre des choses avant de donner le résultat que l'on souhaite obtenir est de fournir les données d'entrée à analyser.

  6. #6
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Billets dans le blog
    1
    Par défaut
    Il y a le fichier en entrée (ou un petit bout de ce fichier) dans le premier post.

    @ vremen3: DSL, j'espérais regarder ton problème hier soir, mais j'ai eu un empêchement.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Résultat requête champ vide
    Par lito74 dans le forum Access
    Réponses: 3
    Dernier message: 24/05/2006, 14h50
  2. Résultat de requête vide
    Par Gusano dans le forum Requêtes et SQL.
    Réponses: 4
    Dernier message: 12/12/2005, 13h38
  3. Générer un fichier résultat avec sépateur ;
    Par soulryo dans le forum MS SQL Server
    Réponses: 8
    Dernier message: 30/08/2005, 09h57
  4. Générer un fichier résultat avec sépateur ;
    Par soulryo dans le forum Langage SQL
    Réponses: 3
    Dernier message: 29/08/2005, 12h29
  5. Nom du fichier résultat d'une requête...
    Par poca10 dans le forum Oracle
    Réponses: 14
    Dernier message: 12/10/2004, 15h43

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