Traduction script Korn shell en perl

bonjour à tous,

J'ai un script écrit en perl auquel je dois ajouter une liste de commande en korn shell dont voici le contenu (c'est une commande pour récupérer le listener oracle) :
Soit FIC, la définition de création d'un fichier allant de 1 à 7.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/bin/ksh # # ksh d'epuration et compression du listener   . /rep/software/softactif/environment.ksh   FIC="listener.trace.`date +%u`" cd $ORACLE_HOME/network/trace rm $FIC.gz cat listener.log | grep -v dtsrun | grep -v msdtc >> $FIC cat /dev/null > ./listener.log gzip -f $FIC cd $ORACLE_HOME/network/log rm $FIC.gz cat listener.log | grep -v dtsrun | grep -v msdtc >> $FIC cat /dev/null > ./listener.log gzip -f $FIC

---

Pouvez m'indiquez comment je peux implémenter ces commandes dans mon script en perl ?

Merci d'avance ,

OL.

Citation:

---

Envoyé par olemoine

Pouvez m'indiquez comment je peux implémenter ces commandes dans mon script en perl ?

---

Euh, tu peux simplement lancer ton script (si y'a ksh sur ta machine)

Code:

---

`/path/to/ton-script`;

---

Sinon, la transfo est toute simple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

my $oracle_home = "XXX";   my $fic="listener.trace." . `date +%u`; chdir("$oracle_home/network/trace"); `rm $fic.gz`; `cat listener.log | grep -v dtsrun | grep -v msdtc >> $fic`; `cat /dev/null > ./listener.log`; `gzip -f $fic`; chdir("$oracle_home/network/log"); `rm $fic.gz`; `cat listener.log | grep -v dtsrun | grep -v msdtc >> $fic`; `cat /dev/null > ./listener.log`; `gzip -f $fic`;

---

Attention: code non testé et effets de bord prévus :wink: (si tu as des choses spéciales dans ton /rep/software/softactif/environment.ksh).

Merci beaucoup pour tes conseils,

Voici les modifications que j'ai apporté à mon script PERL :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

$log_file = "$ENV{ORACLE_HOME}/network/log/listener.tar.`date +%u`"; $listener_tar = "/tmp/rep/listener.tar.`date +%u`"; $fic = "listener.tar.`date +%u`";   chdir("$oracle_home/network/log"); exit 145 if system "rm $fic.gz"; exit 145 if system "cat listener.log | grep -v dtsrun | grep -v msdtc >> $fic"; exit 145 if system "cat /dev/null > ./listener.log"; exit 145 if system "$tar -cf $listener_tar $log_file"; exit 145 if system "$gzip -f $fic";

---

Il supprime d'abord le fichier listener.tar.x du jour de la semaine dernière.
Puis il prends des insformations dans le fichier Listerner.log, recréé un fichier listener.tar.x
Il archive ensuite ce fichier dans un répertoire temporaire /tmp/rep/.
Il zipp ensuite le fichier dans le répertoire courant.

Ma question : le script n'est il pas susceptible de planter si il n'existe pas (à la première utilisation) de fichier listener.tar.x dans le répertoire courant (car je le supprime en premier lieu).
Si oui, ne faudrait il pas rajouter un "si le fichier n'existe pas, ne pas le supprimer", pourriez vous mù'aider ?

Merci d'avance,

OL

Citation:

---

Envoyé par olemoine

Ma question : le script n'est il pas susceptible de planter si il n'existe pas (à la première utilisation) de fichier listener.tar.x dans le répertoire courant (car je le supprime en premier lieu).

---

Planter, non, il fera ce que tu lui as demandé: exit 145 :wink:

Citation:

---

Envoyé par olemoine

Si oui, ne faudrait il pas rajouter un "si le fichier n'existe pas, ne pas le supprimer", pourriez vous mù'aider ?

---

Code:

---

if (-e "$fic.gz") { exit 145 if system("rm...}

---

Voir "perldoc -f -X" (ou man perlfunc)

Et pareil, tu peux mettre des protections sur les chdir():

Code:

---

chdir(...) or die("Cannot go to ...\n");

---

Quant à tes exit 145, perso, je mettrais un message d'erreur ! C'est toujours pénible un script qui s'arrete en plein milieu et qui ne dit pas l'erreur !

Nickel :king:

MErci