Discussion :

[Pedro87]

Merci beaucoup Iblis pour le temps que tu me consacres. J'ai repris ce que tu as fait en modifiant par rapport à mon boulot. J'ai enfin réussi à avoir un rendu CSV, mais il reste le problème de la mise en page: impossible de faire des retours chariots, j'ai tt essayé : \n \n\r ...

Petit bout de 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
16
17
 
 
my ($csv_file, $csv_filename) = tempfile('vm_XXXX', DIR => 'C:\excel', SUFFIX => '.csv', UNLINK => 0);
my $csv = Text::CSV->new;
foreach my $vm (@$vm_views) {
if ($vm->runtime->powerState->val eq 'poweredOff') {
$csv->print($csv_file, ["$count: " . $vm->name . " est : INACTIVE. Ressources utilisees: CPU " . $vm->summary->config->numCpu . " -- Ram " . $vm->summary->config->memorySizeMB . " -- Memoire disque\n"]);
if (defined ($vm->runtime->bootTime)) {
$csv->print($csv_file, ["-- Derniere activation recente, le : " . $vm->runtime->bootTime] . "\n");
}
else { $csv->print($csv_file, ["|| Attention ! Derniere activation de la machine date de plus de 6 mois ( > 16/12/2008)\n"]);
}
$count++;
 
}
}
$csv->print($csv_file, ["Nombre total de VM inactives: $count\n"]);

Aurais-tu une idée ?? merci bcp

[iblis]

Il peut arriver sur certains systèmes que Text::CSV n'ait pas un saut de ligne comme marque de fin de ligne. Il suffit alors d'être explicite (je t'ai mis le lien vers la doc du module pour que tu vois toutes les options) :

Code :

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

my $csv = Text::CSV->new( { eol => "\n"  } )

[Pedro87]

Genial sa marche très bien! Une dernière chose lorsque je lance le lien : http://<ip>/cgi-bin/vm3/pl à partir d'un ordinateur autre que la machine virtuelle sur laquelle je travail en prenant bien soin de créer le répertoire où seront stockés les fichier temporaires CSV, j'obtiens bien le résultat du scrip.
Le souci est que le fichier temporaire se crée dans le répertoire de la machine virtuelle et non dans le rep du nouvel ordinateur. Je ne peux donc pas récupérer le résultat ailleur que sur ma machine.

Y a t-il une solution ?

Merci iblis.

[iblis]

Y a t-il une solution ?

Passe un chemin absolu.

[Pedro87]

J'ai passé le chemin : C:\excel

[iblis]

Je ne suis pas sûr de comprendre. Sur quelle machine s'éxécute le script Perl CGI ? C'est sur celle-ci, celle qui sert les pages donc, que sera crée le fichier temporaire. download.pl permet ensuite au client de le télécharger.

[Pedro87]

Le client peut télécharger le fichier report mais il est vide. Tandis que sur la machine contenant les scripts le fichier report est plein.

[Pedro87]

J'ai refait un Test et c'est parfait tout marche très bien.

Un grand merci à toi IBlis tu m'as apporté une aide très précieuse.
Je te souhaite bonne continuation et à bientot j'espère.

On peut enfin fermer cette discution

[iblis]

Pas de quoi. (Passe le fil en résolu).

[Pedro87]

Je vais encore t'embêter un peu .... Est ce que tu sais comment faire pour centrer, changer de couleur, mettre en gras du texte ?

Merci

[iblis]

Je vais encore t'embêter un peu .... Est ce que tu sais comment faire pour centrer, changer de couleur, mettre en gras du texte ?
Merci

Ça c'est du balisage HTML (avec feuille de style CSS quand ça se complique)...

Pour ce qui est de l'interface avec CGI, regarde la doc. Les balises usuelles sont supportées sous forme de fonctions ou de méthodes.

Sinon, ouvre un nouveau fil.