Discussion :

[matN59]

bonjour a tous,

je cheches a appeler un second script perl a partir d'un code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
 
for ($I = 0; $I < $#mail; $I++)
{
	print "mailbox [".$mail[$I]."]\r\n";
	print "message ID [".$id[$I]."]\r\n";
	print "file [".$files[$I]."]\r\n";
	exec('perl c:\delete-attachment.pl -ma "'.$mail[$I].'" -me '.$id[$I].' -at "'.$files[$I].'"');
}
exit;

cela fonctionne une fois et une seul alors que mon tableau @mail contient 1850 enregistrements.
pourquoi la boucle n'est pas executé les 1850 fois et comment puis je faire pour qu'elle le soit?
merci d'avance pour vos lumieres

[matN59]

j'ai resolu mon probleme en realisant l'operation suivante

Code :

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

1
2
 
print `perl l:\delete-attachment.pl -ma "$mail[$I]" -me $id[$I] -at "$files[$I]"`;

si cela peut en aider d'autres ...

[Jedai]

Hum.. Il faut employer system() à la place de exec(). De plus, ton print ne sert ici qu'à afficher le retour de ta commande, est-ce bien ton but ?

[matN59]

j'ai essayé system et exec, et cela me donnait le meme resultat bloquant a chaque fois
je suis donc passé par la methode avec les ` et cela tourne bien