équivalence perl ksh

**Baldric de Dol** · 21/08/2008, 16h39

connaissez vous un site qui donne les correspondance entre la "grammaire" ksh et perl?

**Jedai** · 21/08/2008, 16h46

Je ne pense pas que ça existe, ksh et Perl sont deux langages très différents, l'un est un langage shell, l'autre est un langage de script généraliste. Pourquoi veux-tu cela ? Pour faire une traduction ?

--
Jedaï

**Baldric de Dol** · 21/08/2008, 17h08

on m'a refilé un code de 2000 lignes, en ksh
au premier coup d'oeil on peut voir que:
- il n'est pas optimisé
- certaines instructions se ressembles fortement (tableaux bidimensionnel, fonctions ...)

**Baldric de Dol** · 21/08/2008, 17h13

et je dois le convertir en perl

et il y a un certain nombre de commandes dont je ne connais pas l'équivalence en perl
ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
INPUT=$1 (pour moi un input c'est un STDIN en perl)
 
ou
 
NBLINE=`wc -l ${INPUT} | awk '{print $1}'`
 
ou
 
cat $INPUT | awk '

**Baldric de Dol** · 22/08/2008, 14h19

voici une partie du code après le reste est construit de la même façon

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
 
function FORMAT_PTF
{
	INPUT=$1
	OUTPUT=$2
	CONTROL=$3
	NBLINE=`wc -l ${INPUT} | awk '{print $1}'`
	#DEBUT CONTROLE ET FORMATAGE DU FICHIER ARPSON
	echo "DEBUT CONTROLE ET FORMATAGE DU FICHIER $INPUT"	
	cat "$INPUT | awk '"
		#
		#Initialisation des variables
		BEGIN
		{      																
			#initialisation du separateur des champs
			FS="\t";				
			#initialisation de la 1er ligne du tableau bidimensionnel FIELDS avec le nom, longueur champs, 
			#Type de champ		 
			FIELDS[1,1] = "PTF_13_F";
			...
			#Definition des codes retours et les messages associes
			CodLengthErr[0] = "1001";		CodLengthErr[1] = "Longueur chaine de caracteres incorrecte";
			...
			#intialisation des champs du fichier log des anomalies 
			IdentFile="PTF.ast";
			...
			#initialisation des variables temporaires
			MESSAGE="";			
			NbLineWarn=0;
			PROBLEM="FALSE";
			ValTypCod=""; #Valeur selon ISIN/NumHist
			#initialisation des champs du fichier PTF.ast
			B_PTF1=""; #1er champs:Code du portefeuille
			...
			B_GRP=""; #3eme champs:Groupe
			#Version 1.1: voir description
			#initialisation du tableau ReplaceChar contenant les caracteres a rempalcer par espace
			ReplaceChar[1,1]="-";
			...
			LenRepChar=4;
      		}
      		function GetWarning()
        	{ 
        		return sprintf("%s\t%s\t%s\t%s\t%s\t%s\t%s",IdentFile,IdentField,IdentWarn,IdentlineWarn,CodWarn,FormaWarn,DataWarn);      
        	}
        	function LTrim(Field)
        	{
        		for(j=0;substr(Field,j,1) == " ";j++);
        		return substr(Field,j,length(Field)-j+1);     
        	}
        	#Version 1.1: voir description
        	function CharToSpace(Field,ReplaceChar,LenRepChar)
		{
			sField = Field;
			for (i=1; i<=LenRepChar; i++)
			{
				sChar = ReplaceChar[i,1];
				if ( sChar == "\\" )
				{
					gsub("\\"sChar, ReplaceChar[i,2], sField);	
				}
				else
				{							
					gsub(sChar, ReplaceChar[i,2], sField);
			}	}		
			return sField;						
		}        
		#Corps du programme : Controle de la structure du fichier
      		/[^$]/{
			 	#Recuperation du code ISIN/NumHist
			 	if ( substr($9,1,4) == "ISIN" )
				{
					ValTypCod=sprintf("%s%s",substr($7,1,1),substr($7,3,length($7)-3));					 	
				}
				else
				{					 							
					ValTypCod=sprintf("%s",substr($7,3,length($7)-2));								
				}
			 	B_PTF1 = sprintf("%s%s%s%s%s%s%s",$2,$3,$4,$5,$6,ValTypCod,$8);
			 	#Controle des champs
			 	for (i=1; i<NF-1; i++)
			 	{
			 		split(FIELDS[1,i],SUBTAB,"_");
			 		#Control anomalie 1001	
					if ( length($i) != SUBTAB[2])
					{
						IdentField = FIELDS[2,i];
						IdentWarn++;
						IdentlineWarn = B_PTF1;           
						CodWarn = CodLengthErr[0];
						FormaWarn = CodLengthErr[1];
						DataWarn = $i;
						MESSAGE = sprintf("%s%s\n",MESSAGE,GetWarning()); 
						PROBLEM="TRUE";
					}
					#Control anomalie 1005
					if(LTrim($i) == "")
					{
						...
					}
				}
				#Incrementation des nombres de lignes en anomalies
				if ( PROBLEM == "TRUE" )
				{
					NbLineWarn++;	
				}
				#Construction d un enregistrement
				B_PTF2 = B_PTF1;				
				B_GRP =  sprintf("%s%s%s%s%s",$2,$3,$4,$5,$6);
 
				#Version 1.1: voir description								
				printf("%s\t%s\t%s\t%s\t\t\n",$1,CharToSpace(B_PTF1,ReplaceChar,LenRepChar) \
								,CharToSpace(B_PTF2,ReplaceChar,LenRepChar) \
								,CharToSpace(B_GRP,ReplaceChar,LenRepChar));
				TABNR[NR] = MESSAGE;								
				#Initialisation des variables
				B_PTF1="";							
			}		 
		#Recuperation des lignes erronnees ainsi que le nombre des lignes erronnees
		END {											
			for ( i=1 ;i<=NR ;i++)
			{												
				printf("%s",TABNR[i]);																			
			}
			printf("%s\n",NbLineWarn);								
 
      		}"'" >${OUTPUT}.tmp
	CODERR=$?		
	#RECUPERATION DU FICHIER DE CONTROLE				
	if [ $CODERR -ne 0 ]
	then		
		echo "[Erreur] : le fichier ${OUTPUT}.tmp n a pu etre cree"
		exit 1 
	else				
		#FIN CONTROLE ET FORMATAGE DU FICHIER ARPSON       
		echo "FIN CONTROLE ET FORMATAGE DU FICHIER $INPUT" 
		NBLINE_TOT=`wc -l ${OUTPUT}.tmp | awk '{print $1}'`
		#Recuperation du nombre de lignes reel traite sans la ligne consacre au nombre des lignes en erreur
		REALNBLINE_TOT=`echo ${NBLINE_TOT}-1|bc`
		if [ ${REALNBLINE_TOT} -ne ${NBLINE} ]
		then		
			echo "PROBLEME SUR LE FICHIER PTF GENERE"			
			#recuperation du nombre des lignes en anomalies
			NBLINE_ANO=`cat ${OUTPUT}.tmp | tail -1`
			#il faut soustraire la ligne portant le nombre des lignes erronnees et les lignes des messages d erreurs
			NBLINE_LOG=`echo ${REALNBLINE_TOT}-${NBLINE}|bc` 			
			echo "Nombre de ligne en entree: "$NBLINE | tee -a $CONTROL						
			cat ${OUTPUT}.tmp | tail -$NBLINE_MES | head -${NBLINE_LOG} | tee -a $CONTROL				
		else	
			cat ${OUTPUT}.tmp | head -${NBLINE} > ${OUTPUT}
			touch $CONTROL		
			echo "PAS DE PROBLEMES SUR LE FICHIER PTF GENERE"
		fi
		rm -f ${OUTPUT}.tmp
	fi												
}

**Baldric de Dol** · 26/08/2008, 09h12

j'ai commencé à transcrire le code mais je ne sais pas si j'ai fait des erreurs. ensuite je ne sais pas comment traduire en perl ceci
NBLINE=`wc -l ${INPUT} | awk '{print $1}'`
cat $INPUT | awk '
FS="\t";
tail
head
touch....

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
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
 
#!/SOFT/perl5/bin/perl
#*****************************************************************
#* Script de fonctions pour SCK_LOT45_* et SCK_OPCVM             *
#*****************************************************************
#* Auteur: ROUSSEL Arnaud                                        *
#* Date de creation: 21/08/2008                                  *
#* Version: 1.0                                                  *
#*****************************************************************
use 5.008005;
use strict;
use warnings;
use lib "$ENV{STKROOT}/batch/";
use Infra;
 
#définition des variables
my $1;
my $2;
my $3;
my $input;
my $outpout;
my $control;
my $nbline;
 
sub Format_PTF
{
  $input = $1;
  #INPUT=$1
  $outpout = $2;
  #OUTPUT=$2
  $controle = $3;
  #CONTROL=$3
  $nbline = ;
  #NBLINE=`wc -l ${INPUT} | awk '{print $1}'` <-- ligne à remplacer
  #Debut controle et formatage fichier arpson
  print "Debut controle et formatage du fichier $input";
  #cat $INPUT | awk '  <-- ligne à remplacer
  open read $input 
  #initialisation des variables
  BEGIN
  {
 
    #initialisation du separateur des champs
    #FS="\t";
    ##initialisation de la 1er ligne du tableau bidimensionnel FIELDS avec le nom, longueur champs, 
    #Type de champ
    @fields = (
    ["PTF_13_F", "COMPANY_2_F", "DESK_3_T", "BOOK_3_T", "SYSTEM_1_T";"DESKARPSON_10_T", "CODE_12_T", "TYPE_1_T", "CODEARPSONISIN_4_T"]
    ["Portefeuille", "Departement du siege de la CEP", "Affectation DRG", "ACT", "A pour Arpson", "Affectation Arpson", "Code Isin tronque ou num histo", "Typologie produit", ""]);
    @CodlengthErr = ("1001", "Longueur chaine de caracteres incorrecte");
    @CodFormatDatErr = ( "1002", "Format date incorrect");
    @CodFormatIntErr = ("1003", "Format entier numerique incorrecte");
    @CodFormatDblErr = ("1004", "Format numerique incorrect");
    @CodDataErr = ("1005", "Donnee obligatoire");
    @CodDefaultValErr = ("1006", "Valeur par defaut");
    #initialisation des champs du fichier log des anomalies
    $IdentFile="PTF.ast";
    $IdentField="";
    $IdentWarn=0;
    $IdentlineWarn="";
    $CodWarn = "";
    $FormatWarn = "";
    $DataWarn = "";
    #initialisation des variables temporaires
    $MESSAGE="";
    $NbLineWarn=0;
    $PROBLEM="FALSE";
    $ValTypCod=""; #Valeur selon ISIN/NumHist
    #initialisation des champs du fichier PTF.ast
    $B_PTF1=""; #1er champs:Code du portefeuille
    $B_PTF2=""; #2eme champs:Code du protefeuille
    $B_GRP=""; #3eme champs:Groupe
    #Version 1.1: voir description
    #initialisation du tableau ReplaceChar contenant les caracteres a rempalcer par espace
    @ReplaceChar=(
    ["-"," "]
    ["_"," "]
    ["\\"," "]
    ["/"," "]);
    $LenRepChar=4;
  }
  sub GetWarning
  {
    printf("%s\t%s\t%s\t%s\t%s\t%s\t%s",$IdentFile,$IdentField,$IdentWarn,$IdentlineWarn,$CodWarn,$FormaWarn,$DataWarn);
  }
  sub LTrim (@fields)
  {
    for(j=0;substr($fields,j,1) == " ";j++);
    return substr($fields,j,length($fields)-j+1);
  }
  #Version 1.1: voir description
  sub CharToSpace(Field,ReplaceChar,LenRepChar)
  {
    $fields = fields;
    for (i=1; i<=$LenRepChar; i++)
    {
      $Char = @ReplaceChar[i,1];
      if ( $Char == "\\" )
      {
        gsub("\\"$Char, @ReplaceChar[i,2], $fields);
      }
      else
      {
        gsub($Char, @ReplaceChar[i,2], $fields);
      }
    }
    return $Field;
  }
  #Corps du programme : Controle de la structure du fichier
  /[^$]/
  {
    #Recuperation du code ISIN/NumHist
    if ( substr($9,1,4) == "ISIN" )
    {
      $ValTypCod=printf("%s%s",substr($7,1,1),substr($7,3,length($7)-3));
    }
    else
    {
      $ValTypCod=printf("%s",substr($7,3,length($7)-2));
    }
    $B_PTF1 = printf("%s%s%s%s%s%s%s",$2,$3,$4,$5,$6,$ValTypCod,$8);
    #Controle des champs
    for (i=1; i<NF-1; i++)
    {
      split($fielfs[1,i],SUBTAB,"_");
      #Control anomalie 1001
      if ( length($i) != SUBTAB[2])
      {
        $IdentField = $fields[2,i];
        $IdentWarn++;
        $IdentlineWarn = $B_PTF1;
        $CodWarn = $CodLengthErr[0];
        $FormaWarn = $CodLengthErr[1];
        $DataWarn = $i;
        $MESSAGE = printf("%s%s\n",$MESSAGE,$GetWarning()); 
        $PROBLEM="TRUE";
      }
      #Control anomalie 1005
      if(LTrim($i) == "")
      {
        $IdentField = $fields[2,i];
        $IdentWarn++;
        $IdentlineWarn = $B_PTF1;
        $CodWarn = $CodDataErr[0];
        $FormaWarn = $CodDataErr[1];
        $DataWarn = $i;
        $MESSAGE = printf("%s%s\n",$MESSAGE,$GetWarning());
        $PROBLEM="TRUE";
      }
    }
    #Incrementation des nombres de lignes en anomalies
    if ( $PROBLEM == "TRUE" )
    {
      $NbLineWarn++;
    }
    #Construction d un enregistrement
    $B_PTF2 = $B_PTF1;
    $B_GRP =  sprintf("%s%s%s%s%s",$2,$3,$4,$5,$6);
    #Version 1.1: voir description
    printf("%s\t%s\t%s\t%s\t\t\n",$1, CharToSpace($B_PTF1,$ReplaceChar,$LenRepChar) \
      ,CharToSpace($B_PTF2,$ReplaceChar,$LenRepChar) \
      ,CharToSpace($B_GRP,$ReplaceChar,$LenRepChar));
    $TABNR[NR] = MESSAGE;
    #Initialisation des variables
    $B_PTF1="";
    $B_PTF2="";
    $B_GRP=""; 
    $MESSAGE = "";
    $PROBLEM = "FALSE";
  }
  #Recuperation des lignes erronnees ainsi que le nombre des lignes erronnees
  END
  {
    for ( i=1 ;i<=NR ;i++)
    {
      printf("%s",$TABNR[i]);
    }
    printf("%s\n",$NbLineWarn);
  }"'">${OUTPUT}.tmp
  CODERR=$?
  #RECUPERATION DU FICHIER DE CONTROLE
  if [ $CODERR -ne 0 ]
  {
    print "[Erreur] : le fichier ${output}.tmp n a pu etre cree";
    exit 1; 
  }
  else
  {
    #FIN CONTROLE ET FORMATAGE DU FICHIER ARPSON
    print "FIN CONTROLE ET FORMATAGE DU FICHIER $input";
    $NBLINE_TOT=`wc -l ${OUTPUT}.tmp | awk '{print $1}'`;
    #Recuperation du nombre de lignes reel traite sans la ligne consacre au nombre des lignes en erreur
    $REALNBLINE_TOT=`print ${NBLINE_TOT}-1|bc`;
    if [ ${REALNBLINE_TOT} -ne ${NBLINE} ]
    {
      print "PROBLEME SUR LE FICHIER PTF GENERE";
      #recuperation du nombre des lignes en anomalies
      $NBLINE_ANO=`cat ${OUTPUT}.tmp | tail -1`;
      print "RECUPERATION DU FICHIER USER LOG";
      #il faut soustraire la ligne portant le nombre des lignes erronnees et les lignes des messages d erreurs
      $NBLINE_LOG=`print ${REALNBLINE_TOT}-${NBLINE}|bc`; 
      $NBLINE_MES=`print ${NBLINE_LOG}+1 |bc`;
      print "Nombre de ligne en entree: "$NBLINE | tee -a $CONTROL;
      print "Nombre de ligne avec anomalie: "$NBLINE_ANO | tee -a $CONTROL;
      print "Nombre de ligne en sortie: "$NBLINE | tee -a $CONTROL;
      print "Nombre d'anomalies: "$NBLINE_LOG | tee -a $CONTROL;
      print "\nErreur sur les lignes suivantes:" | tee -a $CONTROL;
      open read ${OUTPUT}.tmp | tail -$NBLINE_MES | head -${NBLINE_LOG} | tee -a $CONTROL;
      open read ${OUTPUT}.tmp | head -${NBLINE} > ${OUTPUT};
    }
    else
    {
      open read ${OUTPUT}.tmp | head -${NBLINE} > ${OUTPUT};
      touch $CONTROL;
      print "PAS DE PROBLEMES SUR LE FICHIER PTF GENERE";
    }
    unlink ${OUTPUT}.tmp;
  }
}

équivalence perl ksh

Langage Perl

Vue hybride

Discussions similaires

Partager

Partager