Bonjour,

Est ce que vous connaissez une façon d'écrire ce code plus propre :

Autrement dit, je souhaiterai aligner ma variable $Dump_Base_SQL sur l'ensemble de mon script ou faire des appels via des fonctions. Comment puis je faire ?

Merci

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
 
 
my @TableauLigne;
my $Finish_Task_Archiving = "XX=" ;
open(FIC, "<${TempSql}/${FicSqlTmp}") || die "Ouverture impossible du fichier ${FicSqlTmp}: $!";	
 
				while ($Ligne = <FIC> ) 
   				{  		
					if (grep(/$Finish_Task_Archiving/, $Ligne)) 
					{
						#Supprime les espaces et tabulations pour remplacer par ¤
						$Ligne =~ s/[\t\s]//g;
						@TableauLigne=split(/\XX=/,$Ligne);
						my $UneBase=$TableauLigne[1];
						print ">${UneBase}<\n";
 
 
my $Dump_Base_SQL = <<"SQL1";
use master;
BACKUP DATABASE ${UneBase} TO  DISK = N'${TempSql}/${Instance}_${UneBase}.dmp' 
WITH NOFORMAT, INIT,  NAME = N'dump-Complet ${UneBase}', 
SKIP, NOREWIND, NOUNLOAD,  STATS = 10 ;
SQL1
 
						print "$Dump_Base_SQL\n";
						my $CmdDump=system("$SqmCmd -S${Host}\\${Instance} -Q \"${Dump_Base_SQL}\" -o \"${TempSql}/${UneBase}_${FicSqlDump}\"") ;
					}
				}
close (FIC);