Bonjour,

Je doit effectuer une modification sur un script en Perl.
L’objectif de cette modification est de rendre le fichier compatible avec l’ensemble des versions Oracle actuellement utilisées au sein de mon entreprise.
A l’heure actuelle, la syntaxe utilisée lors de l’écriture des descripteurs de connexion définit systématiquement le service de connexion par SERVICE_NAME, soit :

(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (COMMUNITY = $comm)(PROTOCOL = $prot)(Host = $host)(Port = $port))
)
(CONNECT_DATA =
(SERVICE_NAME = $serv)

Or les versions Oracle antérieures à la version 8 ne peuvent être atteintes que par SID, soit :

(DESCRIPTION =
(ADDRESS = (PROTOCOL = $prot)(Host = $host)(Port = $port))
)
(CONNECT_DATA =
(SID = $serv)

Je vous met si dessou le script d'origine ainsi que celui que j'ai commencé à modifier :

Script non modifié :

http://pastebin.com/m1b902bb9

Script modifié :

http://pastebin.com/m4fdb2f73


Ma checkbox ce trouve ligne 282 à 287 ainsi que ligne 413 à 418.
Mon if quant à lui ce trouve de la ligne 114 à 125.

A savoir que je n'est JAMAIS manipulé de Perl, donc je suis un peu perdu.

Les changements effectués ne provoque pas d'erreur mais ne modifi pas non plus le resultat.

Merci d'avance pour votre aide.