#!/usr/bin/perl
# ---------------------------------------------------------------------
# concat.pl
# Traitement concatenation des lignes de commandes sql jusqu au ";", 
# pour qu'elles ne soient plus sur une seule ligne dans le fichier
# Note: ce programme a ete redige en PERL pour des questions de rapidite
# ---------------------------------------------------------------------

# toutes les variables d'environnement du 'ksh' appelant sont dans une pile appellee 'ENV'
$DIR = $ENV{DIR} ;

open (INFILE, "$DIR/indexfile_maj0.sql") || die "ouverture FIC INDEXFILE impossible: $!\n";
#open (INFILE, "/ora_arch_log/symdbo/indexfile_maj0.sql") || die "ouverture FIC INDEXFILE impossible: $!\n";

open (OUTFILE, "> $DIR/indexfile_maj1.sql") || die "ouverture FIC RESULTAT TRAITEMENT impossible: $!\n";
#open (OUTFILE, "> /ora_arch_log/symdbo/indexfile_maj1.sql") || die "ouverture FIC RESULTAT TRAITEMENT impossible: $!\n";

$ligne = '' ;

while( $record = <INFILE>)
{
   chomp $record ;
   if ($record =~ / ;/)   
        {
        print OUTFILE $ligne." ".$record."\n";
        $ligne = '' ;
        }
   else 
        {
        $ligne = $ligne." ".$record ;
        }
}

