Discussion :

[piotr]

Bonjour à tous

Voilà mon pb: j'ai construit plusieurs scripts placés dans des répertoires distinct. Je voudrais exécuter tous mes scripts en lançant une seule commande.
pour cela j'ai écrit la ligne suivante dans un fichier ALL.pl:

Code :

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

1
2
3
 
system "perl c:/chemin1/script1.pl";
system "perl c:/chemin2/script2.pl";

Mon pb c'est que je voudrais que le résultat des script reste dans c:/chemin1 et c:/chemin2. au lieu de sa tout se met dans le répertoire courant de ALL.pl

qui a une idée?

Merci à tous

[Woufeil]

Bonjour,

Je ne comprend pas bien ta question... Qu'appelle tu le résultat des scripts ?

[piotr]

Salut,

mes scripts génèrent des pages html

[Woufeil]

Et bien, la fonction qui génère tes scripts reçoit surement le nom du fichier a générer en paramètre, il suffit de lui passer le path complet... Tu peux mettre le bout de code qui génère la page pour queje vois à quoi ça ressemble ?

[piotr]

oui, c'est vrai, ça marche en mettant le chemin complet. en fait je pensais à rediriger le flux résultant de mes scripts vers un autre dossier de manière à être indépendant du chemin.dans l'immédiat je vais me contenter de modifier le chemin comme tu le suggères

voici mon code

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
my $http = HTTP::Request->new(POST =>'http://siteweb/');
	$http->content_type('application/x-www-form-urlencoded');
    	$http->content("argument=$text");
    	my $res = $ua->request($http);
	if ($res->is_success){
        print $res->content;
	open my $output, '>', "$text.html" or die "$!\n";
        print $output $res->content;
	
	    	}
    	else{
        	print $res->status_line;
    	}	
    	return 0;