Problème multiple perl.

Bonjour,

Tout d'abord j'espère poster ce message au bon endroit.
Je suis étudiant en Bio-informatique en première année de Master.

On doit programmer en perl, un petit moteur de recherche (en HTML) sur un document XML. Jusque là pas trop de problème. Sauf que je n'ai pas le même environnement qu'à la fac, et que chez moi rien de marche. :cry:

Je suis sous Windows vista.
J'ai installé activeperl 5.8.

Et là, je suis perdu. Je n'arrive pas à lancer mes fichiers .cgi. Je n'arrive pas non plus à les ouvrir sous un navigateur (I.E. ou Firefox).

J'ai lu des posts sur le forum, je suis allé sur la F.A.Q mais je patoge.

Je vous laisse un de mes scripts (qui marche à la fac)

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/env perl   @morceaux = split (/&/,$ENV{'QUERY_STRING'}); foreach $morceau (@morceaux){ ($n, $s) = split (/=/,$morceau); $parametre{$n} = $s; }

---

J'aimerai savoir comment le lancer, le faire marcher.
Merci.

Mon prof m'a dit de faire ça (Cf. en dessous) mais rien de marche, ou alors je n'y arrive pas, ou ne comprend pas ce qu'il faut faire.

Tu lances ton script avec ton activeperl en redirigeant la sortie du prog perl dans une page html :
C:\perl monscript.cgi > page.html Ensuite tu ouvres la page générée en file->open dans le navigateur.
Pour un script cgi, qui attend un query_string, tu l'enleve de l'appel actuel à analyse_parametres et
tu le remplaces par une chaine simple $queryque tu initialise à la main juste la ligne d'avant
:$query = "mot=Mus+Cellule&balise=emph2" etc Bien-sur tu rediriges aussi la sortie de ce script vers
un fichier html que tu visualises ensuite sur le navigateur.

-----------------------

J'aimerai aussi savoir comment metre apache, et MYSQL sous vista ?
Car rien ne marche, et j'ai aussi un projet un SGBD, et je n'arrive à rien. J'aimerai pouvoir créer des tables, et interagir dessus (de façon simple).

Merci.

Bon un début, tu peux installer easyphp.

courage

oki, merci.

Je vais essayé de le re-installer. Même si je n'ai pas tout compris dans son fonctionnement.

Je ne sais pas, si il prend en compte perl .?

Citation:

---

Envoyé par onylink

oki, merci.

Je vais essayé de le re-installer. Même si je n'ai pas tout compris dans son fonctionnement.

Je ne sais pas, si il prend en compte perl .?

---

Je te conseille d'essayer XAMPP, il supporte pas mal Perl si tu installes le kit de base plus le kit d'ajout Perl.

Par ailleurs bien qu'il soit pédagogique de gérer le protocole CGI à la main pour ses premiers scripts, ne le fait surtout jamais pour un véritable script déployé en environnement de production ! Utilise le module CGI (ou même plutôt CGI::Safe) à la place.

--
Jedaï

Oki, merci.. Je vais essayer ça..

En ce qui concerne le code en lui même..

Code:

---

@morceaux = split (/&/,$ENV{'QUERY_STRING'});

---

Vu que je suis sous vista, je dois changer le QUERY_STRING, non ?
J'ai pas l'impression que ça marche chez moi. Je vois la page web, sauf que je vois ma première ligne de code : #!/usr/bin/env perl et un DATA à la fin.
Mon script perl se lance, vu qu'il me sort les bons truc. Mais par contre il ne me lance pas mon deuxième code, quand je l'exécute..
Il m'ouvre une fenètre avec la possibilité de le télécharger :?

Je rappel qu'à la fac on travail sous l'inux (Kubuntu) et chez moi je suis sous Vista. Je suppose donc qu'il y a quelque modification à faire à mon code. Mais pour l'instant j'y arrive pas.

Pour l'instant on doit se débrouiller sans module. Donc..

Merci pour vos réponses.


edit : avec XAMPP je n'arrive pas à accéder à mes .cgi
Il me sort que je n'ai pas les droits !

--

Bru't

Citation:

---

Envoyé par onylink

Vu que je suis sous vista, je dois changer le QUERY_STRING, non ?

---

Non.

Citation:

---

Envoyé par onylink

Je rappel qu'à la fac on travail sous l'inux (Kubuntu)'t et chez moi je suis sous Vista. Je suppose donc qu'il y a quelque modification à faire à mon code.

---

Normalement non, sauf éventuellement le shebang.

Citation:

---

Envoyé par onylink

edit : avec XAMPP je n'arrive pas à accéder à mes .cgi
Il me sort que je n'ai pas les droits !

---

Où les as-tu foutu ces cgi ?

--
Jedaï

Merci pour les réponses.

Normalement, je les ai mis au bon endroit, j'ai suivi un tuto.
Là je pars au ski, je ne sais pas si j'aurai le net là bas.

Je repasserai à mon retour, en espérant y être arrivé.


Merci et à bientot.

--

Bru't

Pour le shebang (première ligne du script), il faut qu'il soit adapté à ta machine.
En l'occurrence, sur Windows, ça sera quelque chose comme

Code:

---

C:/Perl/bin/perl.exe -wT

---

Je vais essayer merci.


Pour outre passer le problème, je tape à la main ce que devrai être la variable d'environnement (QUERY_STRING), et je transforme mon .cgi en page HTML.
C'est pas très orthodoxe mais au moins, j'y arrive ^^

La fac re-ouvre Lundi, je pourrai m'y remettre là bas.
Vu que là j'ai pas trop le temps de tout tester, vu que les partiels approchent.

En tout cas merci pour vos réponses.

---

Bru't

Le module CGI a une méthode param() très pratique pour obtenir et gérer les paramètres d'une requête http.

Merci..
Mais je n'ai pas le droit d'utiliser de module. (enfin je crois)


J'ai une petit question :
est-ce qu'il est possible de mettre un "ou" (||) dans une expression régulière ?

Code:

---

1 2 3 4

foreach $motcles (@motcle){ if($paragraphe =~ s|$motcles|$motcles2|g){ } else {$valide="non";}

---

J'aimerai que mon expression régulière un "ou" pour que ce soit :
-Soit avec la première lettre du mot en minuscule.
-Ou avec la première lettre en majuscule.

Je vais tenter de le faire. Je sais comment mettre la première lettre en majuscule, mon seul problème est de savoir comment le faire comprendre à mon expression.

-----
Je pensais faire comme ça

Code:

---

if($paragraphe =~ s¤$motcles¤$motcles2¤g || s¤$motcle2¤$motcle3¤g )

---

Mais ça ne marche pas.
En faite, si le premier marche il ne doit pas ce soucié du second.
Mais si je met un &&, et que les deux ni sont pas ça va pas marché. :cry:


edit :
J'ai réussi en mettant un if imbriqué dans le premier. Mais ce n'est pas très beau je trouve. On doit pouvoir faire mieux.

Merci


--
Bru't

Code:

---

if($paragraphe =~ s¤($motcles|$motcle2)¤<font color="#FF00FF">$1</font>¤g)

---

Raaaaaaaaaaah il fallait en mettre qu'un de pipe alors..

Je vais tenter ça.

Merci

--

Bru't

Tiens-nous au courant de la suite...

:king:

Ca marche.. Je vais peut-être avoir besoin de mettre plusieurs "ou".
J'essayerai de les mettre à la suite. Sinon je ferai des if imbriqué.

merci

Pour l'instant j'ai plus de question. Je touche du bois :D

--

Bru't

Dans la parenthèse, tu peux en mettre plusieurs.

Ca marche pas très bien.
Ya des bugs quand je fais comme ça.
A la place, dans le même if, je met plusieurs expression régulière, et là j'ai plus de problème.

Maintenant il me reste plus qu'à trouver de nouvelle amélioration à faire.
Vu que c'est un projet noté, et qu'on est tous censé savoir faire le script de base, après pour améliorer la note, il faut améliorer le script.

Et le plus dur reste à trouver les idées :D

Merci.

--

Bru't

Sorry pour le double post.

J'ai un soucis avec le " . "

J'aimerai mettre qu'un mot puisse se terminer par un point.
Exemple avec le mot bleu

Quand je le fait il me remplace le mot bleu par bleu. (avec un point)

Code:

---

$a = ' '.$b'. ';

---

Quand je met un \ pour dé-spécialiser et que je relance, il garde le \. Donc je ne l'ai pas dé-spécialiser je pense.

Code:

---

$a = ' '.$b'\. ';

---

Résulat : bleu\.

J'ai essayer avec

Code:

---

undef $.;

---

Mais rien


Enfin.. je patauge là.

--

Bru't

Tu veux dire:

Code:

---

$a = ' '.$b.'. ';

---

Tu confonds le caractère point et l'opérateur de concaténation...

Ou plutôt:

Code:

---

$a =~ s/$a/\s$b\.\s/;

---

Je voulais concaténer une chaine de caractère vide devant et une chaine de caractère avec un point dedans.

Cette nuit j'ai eu une illumination, j'ai trouvé comment faire tout d'un coup en faite :D

Merci


--

Bru't

Citation:

---

Envoyé par onylink

Cette nuit j'ai eu une illumination, j'ai trouvé comment faire tout d'un coup en fait

---

C'est toujours comme ça....

J'ai un nouveau problème :cry:

J'ai un tableau de taille variable, dont le remplissage se fait par un usagé lambda.
Je ne sais donc pas comment va être rempli mon tableau.

J'aimerai pouvoir supprimer un élément, quand celui me gène.
Sachant que je ne connais pas l'indice où il se trouve.

Il doit bien existé une méthode pour soit connaitre l'indice, soit directement virer cet élément qui me gène.
Mais je ne l'ai pas trouvé. Si j'avais l'indice je pourrai utiliser splice, mais... je ne sais pas comment faire

Merci.

Edit :
J'ai bidouillé et j'ai plus mon problème..

merci

---

Bru"t