Discussion :

[Leguerinos]

Bonjour,

J'essai en vain de traduire mon script shell en script perl pourriez vous m'aider?

Mon script est assez simple dans son fonctionnement.
J'ai un fichier contenant des nom de repertoireet d'application séparé par ":" (première boucle for)
La deuxième boucle li un fichier dictionnaire qui contient les motifs a rechercher dans le grep.

Ensuite j'ecrit simplement la valeur de mes variables dans un fichier texte classique (3ème boucle).

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
#!/bin/sh

PATH_SCRIPT=~/kg_test
PATH_FILE_DEST=/dlagc/export/kg_recensement/

echo "SET DEFINE OFF;">$PATH_FILE_DEST/sql_table_export.sql
echo "CREATE TABLE DDL_TABLE_RECENSEMENT ("TABLE_NAME" VARCHAR2(100 BYTE), "TYPE" VARCHAR2(100 BYTE), "APPLI" VARCHAR2(100 BYTE), "SOURCE" VARCHAR2(100 BYTE));">>$PATH_FILE_DEST/sql_table_export.sql

# sed dans la fonction permet d'eviter les probleme cause par les nom de fichier avec des espaces
# ou des apostrophes

recherche ()
{
 for rep in `cat $PATH_SCRIPT/$1`; do

  apps=`echo $rep|cut -f2 -d:`
  rep=`echo $rep|cut -f1 -d:`

  cd $rep

    for name in `cat $PATH_SCRIPT/dico_table.txt`; do

      for file in `grep -i $name *|cut -f1 -d:|sed s/"\ "/"@"/g|sed s/"\'"/"\'\'"/g`; do

       file2=`echo $file|sed s/"@"/"\ "/g` #astuce pour contourner le problème des espaces en shell

       echo "Insert Into DDL_TABLE_RECENSEMENT (table_name, type, appli, source) Values ('$name','$type','$apps','$file2');">>$PATH_FILE_DEST/sql_table_export.sql

      done

    done

done
 
}

echo "################# Forms Oracle #################"

type=Oracle_Forms
recherche rep_forms.txt #fichier texte de la forme /rep/:Appli

Je pense que le perl devrait fournir de bien meilleur performances?

Merci d'avance.

[Luciefer]

Bonjour,

Pour la conversion, et bien utilise les fonctions basiques de perl....
(Echo --> print...).

les for ont une autre syntaxe.
Dans l'ensemble, ça ne devrait pas être compliqué.

Bon courage,
Lucie

[Jedai]

Nous pouvons t'aider et oui, Perl sera plus performant.
Pour les meilleures performances et une traduction complète en Perl, il te faut DBI et DBD::Oracle (pour la BDD), sinon tu peux toujours passer par un fichier intermédiaire comme tu le fais ici, mais c'est un peu dommage, par ailleurs si tu as DBD::Oracle, tu pourras utiliser quote() pour obtenir directement une version insérable dans le SQL du contenu de tes variables (pas besoin de le faire à la main, et partiellement comme dans ton shell).

Par ailleurs je te suggère de légers changements dans l'algorithme : commence par charger dico_table.txt dans un hash, puis lit l'ensemble des fichiers que tu traitais avec ton grep en filtrant leurs lignes à l'aide du hash et en faisant les requêtes au fur et à mesure. Tu passeras de O(n*m) à O(n+m) (n étant le nombres d'éléments de dico_table.txt et m le nombre de lignes où chercher)

--
Jedaï