Discussion :

[Jim_Nastiq]

salut,

j'ai un probleme lors de la lecture du contenu d'un fichier *.sql, meme si ce probleme n'est pas tres grave il me plairait quand meme de le resoudre.

voici le probleme:

j'utilise pour lire le contenu d'un fichier ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
open(SQLFILE, "<request.sql") || die "the SQL file was not found\n";
while(<SQLFILE>)
 {
	...code...
 }
close(SQLFILE);

j'ai entre autre un "print" dans cette boucle while et c'est la que je m'apercois qu'en fait le fichier est "scanner" plusieurs fois, en effet je fait 5 fois le tour du fichier avant de sortir de la boucle. si quelqu'un siat pourquoi, merci

[pospos]

5 tours du fichier entier ou 5 passages dans le while?
le while va executer le block pour chaque ligne du fichier, en assignant à chaque fois cette ligne à $_, donc si tu a 5 ligne dans ton fichier c'est normal d'avoir 5 passage.

[Jim_Nastiq]

non dans mon fichier j'ai en gros 50 lignes et j'ai donc 5 fois ces 50 lignes

[spirit_epock]

C'est dans ta boucle qu'il y a un pb alors.

Si tu veux scanner ton fichier à la place tu affectes le contenue de ton fichier à une variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
open(SQLFILE, "<request.sql") || die "the SQL file was not found\n";
my @file = <SQLFILE>;
close(SQLFILE);

Puis ensuite tu effectues ton code sur cette variable

a+

[Jim_Nastiq]

euh ma question va etre "conne" mais dans la variable @file, comment on test chaque ligne du fichier d'origine?

est ce que while(@file) suffit a faire le tour?

[Jim_Nastiq]

et sinon pourquoi quand j'execute ton exemple suivi d'un foreach.. print la varaible @file ne contient pas la 1ere ligne?

[lami20j]

Salu,

salut,

j'ai un probleme lors de la lecture du contenu d'un fichier *.sql, meme si ce probleme n'est pas tres grave il me plairait quand meme de le resoudre.

voici le probleme:

j'utilise pour lire le contenu d'un fichier ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
open(SQLFILE, "<request.sql") || die "the SQL file was not found\n";
while(<SQLFILE>)
 {
	...code...
 }
close(SQLFILE);

j'ai entre autre un "print" dans cette boucle while et c'est la que je m'apercois qu'en fait le fichier est "scanner" plusieurs fois, en effet je fait 5 fois le tour du fichier avant de sortir de la boucle. si quelqu'un siat pourquoi, merci

Je crois qu'il faut montrer ce que contient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...code...

pour savoir pourquoi le fichier en lecture est parcouru 5 fois.

Pour ça

est ce que while(@file) suffit a faire le tour?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

foreach(@file){...traitement...}

lami20j

[Jim_Nastiq]

Salu,Je crois qu'il faut montrer ce que contient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...code...

lami20j

ceci :

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
	 if ( ($_ !~ /^--/) && ($_ !~ /^INSERT/) )
	{
		if($_ =~ /(\d{4})-(\d{2})/)
		{
			$table_name = $1.'-'.$2;
			print 'the table is '.$table_name.'<br>';
		}
		foreach my $table (@exist_tables) 
		{
			print $table.'<br>';
			if ($table_name eq $table)
			{
				$flag = 1;
			}
		}
		print 'the flag is : '.$flag.'<br>';
		chomp();
		$request_string .= $_;
	}

[Jedai]

Tu ne parcours pas 5 fois le fichier avec ce code. Le plus probable c'est que ta confusion vienne de ta boucle où tu fais aussi un print :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
foreach my $table (@exist_tables) 
		{
			print $table.'<br>';
			if ($table_name eq $table)
			{
				$flag = 1;
			}
		}

Si tu as vraiment l'impression que tu parcoures bien 5 fois le fichier, donne nous un morceau de code minimal qui reproduise le problème. (mais je doute fortement que ce soit le cas).

--
Jedaï

[spirit_epock]

@file contient toutes les données de ton fichier. Il ne manque pas de données.
Tu as du te trompé.

cf faq

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
foreach (@file)
{
  # bloc d'instruction
  # l'élément en cours est $_
}

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
my $line;
foreach $line (@file)
{
  # bloc d'instruction
  # l'élément en cours est $line
  print $line."\n";
}

Je vois pas comment il boucle 5 fois sinon

[Jim_Nastiq]

non mea culpa c'etait mon print que j'interpretais mal !

mais bon tant que j'y suis ce script me pose un probleme. en effet je test d'abord la ligne ou il y a une create pour recuperer le nom de la table a créer puis je verifie si ce nom n'est pas deja utilisé si ce n'est pas le cas j'effectue toutes les requetes (ce qui fonctionne parfaitement) cependant quand la table existe deja je ne sais pas pourquoi mon script tourne dans le vide et ne m'affiche rien et la barre de progression IE avance lentement sans jamais obtenir quelque chose. Pourtant c'est tout simple c'est juste un if else . Une idée?? parce que c'est bizarre qu'il ne m'affiche pas les print utiliser dans la verification de la table a créer...

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
43
44
45
46
47
48
49
50
while(<SQLFILE>)
 {		
	 #if there is commentary we don't keep them
	 if ($_ =~ /^CREATE/) 
	{
		if($_ =~ /(\d{4})-(\d{2})/)
		{
			$table_name = $1.'-'.$2;
			print 'the table is '.$table_name.'<br>';
		}
		foreach my $table (@exist_tables) 
		{
			if ($table_name eq $table)
			{
				$flag = 1;
			}
		}
	}
 }
close(SQLFILE);
print 'the flag is : '.$flag.'<br>';
if ($flag != 1)
{
	if ( ($_ !~ /^--/) && ($_ !~ /^INSERT/) )
	{		
		chomp();
		$request_string .= $_;
	}
	my $SQL_request = $dbh->prepare(qq{$request_string});
	$SQL_request->execute;
	open(SQLFILE, "<request.sql") || die "the SQL file was not found\n";
	while(<SQLFILE>)
	{
		if ( ($_ !~ /^--/) &&  ($_ =~ /^INSERT/) )
		{
			chomp();
			my $tmp = $_;
			my $INSERT_request = $dbh->prepare(qq{$tmp});
			$INSERT_request->execute;
			$tmp ="";
		}
	}
	close(SQLFILE);	
 
		print '<br><br><center><b>All request was done successfully </b></center></body></html>';
}
else
{
	print '<br><br><center><b>The table you are trying to create already exist </b></center></body></html>';
}

merci de votre aide