Perl

Programmation perl popup_menu et exécution

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Programmation perl popup_menu et exécution

lavm01

rien n'est impossible

Bonjour,

J'ai écrit un petit programme perl, en gros voici ce que fait le programme: Dans un premier temps je vais lire un répertoire et je mets le nom des fichiers qui se trouve dans le répertoire dans un tableau. Ensuite je fais la création d'un menu déroulant qui contient le nom de mes fichiers (se sont des fichiers *.html).

Ce que j'aimerais faire et c'est la que je bloque, c'est quand l'utilisateur sélectionne un nom de fichier dans mon menu déroulant et puis il clique sur OK, je veux qu'il ouvre une autre page avec le contenue de mon fichier html. En principe si je vais voir le code source je devrais voir quelque chose du genre <option value=http://172.27.XX.XXX/tous_unix/tous_unix_2008-01-30.html> tous_unix_2008-01-30.html</option> mais tout ce que je vois c'est <option value="tous_unix_2008-02-13.html">tous_unix_2008-02-13.html</option> mais il ne faut pas oublier que dans mon menu déroulant je veux juste le nom de mes fichiers.

Si vous pouviez m'aider.
Merci de me répondre.

Code :

#!/usr/bin/perl
use CGI qw/:standard/;
$rep1="D:\\rapports_des_seuils\\Tous_UNIX"; # équivaut à http://172.27.XX.XXX/tous_unix
$i = 0;
opendir(DIR, $rep1) || die "Impossible de lire $rep1 : $!\n";
my @liste = grep { not /^[.][.]?\z/ && -r "$rep1/$_" } readdir(DIR);
@liste = map{lc($_)} @liste;
closedir(DIR);
print header,
start_html(-title=>'Rapport des seuils',
-bgcolor=>'gray',
),
h1('Rapport des seuils'),
start_form(
-method=>'POST',
-action=>'',
-name=>'form1'
),
"Liste des fichiers Unix ",
popup_menu(-name=>'menu_name',
-values=>[@liste],
# -defaut=>[@liste],
# -onChange=>'Sub_Env()',
-labels=>\%labels),p,
submit('OK'),
end_form,
hr;
if (param()) {
$nnrep = "http://172.27.96.172/unix/";
print "Le nom de votre fichier est ",em(param('menu_name')),p,
hr;
}

Publicité

dreameddeath

Normal, il manque dans ton

Code :

@liste = map{lc($_)} @liste;

, la concaténation avec l'adresse de base. En effet, le readdir ne rend que le nom du fichier...

lavm01

rien n'est impossible

Je comprends ce que tu veut dire mais si je fais la concaténation avec l'adresse de base, je me retrouve avec un menu déroulant qui contient l'adresse de base plus le nom du fichier. Ce que j'aimerais c'est ceci
<option value=http://172.27.XX.XXX/tous_unix/tous_unix_2008-01-30.html> tous_unix_2008-01-30.html</option> et non comme <option value=http://172.27.XX.XXX/tous_unix/tous_unix_2008-01-30.html> http://172.27.XX.XXX/tous_unix/tou [...] option>

Mais je ne sais pas comment faire pour le mettre en paramètre.

Merci !

dreameddeath

Bah dans ce cas, il faut juste remplir la hash %labels comme il faut...
genre

Code :

map{$labels{$_}=$root_path."$_"}@liste;

Lit la doc CGI
http://search.cpan.org/~lds/CGI.pm-3.33/CGI.pm

Au fait, utilise

Code :

use strict;

Il faut absolument se discipliner via cette bonne pratique

Message édité par dreameddeath le 19-02-2008 à 01:48:37

FORUM HardWare.fr

Programmation

Perl

Programmation perl popup_menu et exécution

Sujets relatifs
envoyer un input-checkbox dans un popup	[CSS] Problème pour un menu classique (niveau débutant)
[PERL] Supervisation d'un onduleur et alerte	Problême de restriction menu flash par IE
[PERL] besoin de votre aide pour comprendre une variable	menu (onglet) et faire apparaître dans une zone
programmation d'une machine à état	menu fixe + reste dynamique en CSS
[Resolu] Equivalent de la commande unpack de PHP/Perl en Java	[Résolu]Problème avec un menu défilant
Plus de sujets relatifs à : Programmation perl popup_menu et exécution

Page générée en 0.081 secondes