Problème de compilation script Perl

Bonjour à tous! :)

Alors voilà, je viens de mettre en place une interface de helpdesk (Request Tracker -- RT pour les intimes) basé sur Perl.

Je suis maintenant en train de tester différents plugins, dont le plugin TimeWorker http://wiki.bestpractical.com/view/TimeWorked, sensé afficher un rapport sur le temps passé sur chaque ticket.

Lorsque je vais sur la page pour exécuter le script, voici le message d'erreur qui m'est retourné:

Code:

---

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 124, near "print '

---

N'étant pas très bon développeur (et surtout n'ayant jamais touché au Perl! :roll: ), j'ai tenté une recherche sur google, mais je n'ai rien trouvé de concluant.

Voici la ligne indiquée dans l'erreur (en cas de besoin, tous le code est disponible sur la page du plugin, ou bien demandez moi :))

Code:

---

print '<tr style="font-weight: bold;"><td>Total</td><td>',$uhash->{$user_id}->{total},'</td></tr>',

---

Merci à vous!
Cordialement,
Anthony

essaye déja tout simplement de finir la ligne par un " ; " a la place d'une " , " et regarde ce qu'il te dit...

Ensuite le print en lui même me parait bancal...
tu peux nous donner l'exemple de ce qui doit être affiché ? histoire de savoir ce que tu veux afficher comme quote et ponctuation...

Sinon, a première vue je pense que tu souhaitais cela :

Code:

---

1 2	print '<tr style="font-weight: bold;"><td>Total</td><td>'.$uhash.'->{'.$user_id.'}->{'.$total.'}</td></tr>';

---

EDIT : pour du code, utilise les balises [CODE] et non [QUOTE]

Merci pour ta réponse :)

Concernant le ; je ne pense pas qu'il faille en mettre un (j'ai essayé quand même, àa n'a pas marché), en effet, le code de la ligne suivante est en fait la suite de cette commande:

Code:

---

1 2 3 4

print '<tr style="font-weight: bold;"><td>'Total'</td><td>',$uhash->{$user_id}->{total},'</td></tr>', '</tdata></table>',$/; }

---

J'ai essayé aussi de "coller" le " '</tdata></table>',$/; " à la suite de ma ligne, sans succès.

Pour ce que le code doit afficher, je ne sais pas vraiment en fait. Je sais qu'il est censé générer un rapport, mais c'est tout.

ok, c'est un peu plus clair déja avec la fin... oublie donc ma ligne precedente et remplace tes " , " par des " . " car ton code ressemble a une concatenation pour moi, mais en PERL l'operateur est " . "

J'ai essayé avec ce code:

Code:

---

1 2	print '<tr style="font-weight: bold;"><td>Total</td><td>'.$uhash->{$user_id}->{total}.'</td></tr>', '</tdata></table>',$/;

---

Toujours la même erreur...

Si je comprend bien,

Code:

---

$uhash->{$user_id}->{total}

---

est censé te retourner un résultat ? quel est-il ?
Peut-tu éxecuter cela en dehors du print et le mettre dans une variable ?

de plus, qu'est censé afficher la fin de ta ligne avec le ",$/" ?

Ce code n'est pas le mien et c'est la première fois que touche au Perl :?
Je ne suis donc pas en mesure de te dire à quoi sert " ,$/ ".
Et concernant l'exécution en dehors du print, est ce que cela marcherait:

Code:

---

1 2	print $uhash->{$user_id}->{total};

---

Concernant la variable "total", voici ce que j'ai trouvé dans le code source:

Code:

---

1 2	# adjust the total time worked (for all queues) $uhash->{$user_id}->{total} += $ticket->TimeWorked;

---

Donc apparemment, elle contient la durée total pour la résolution de tous les tickets.

La fonction print admet une liste de paramètre, qui sont alors concatenés avant l'affichage. L'utilisation de l'opérateur , au lieu de . est donc tout à fait légal.

L'erreur indique qu'il y a un bareword dans la ligne, c'est à dire un mot qui n'est pas un mot-clé, et qui n'est ni un handle ni un symbole (un nom de variable précédé d'un sigil $, @, %, &, ...).
Le bareword est ici en gras

Code:

---

print '<tr style="font-weight: bold;"><td>'Total'</td><td>'

---

Il est du au fait que tu n'as pas protégé les quotes simples (si elles doivent apparaitre dans le HTML).
Pour cela, il peut-être utile d'utiliser l'opérateur q() :

Code:

---

print q(<tr style="font-weight: bold;"><td>'Total'</td><td>)

---

ok...
Bon, je vois deux choses à éssayer, et sinon j'ai pu trop d'idée...

- La première, récuperer la variable total avant le print...

Code:

---

1 2 3

my $vartotal = $uhash->{$user_id}->{total}; print '<tr style="font-weight: bold;"><td>Total</td><td>'.$vartotal.'</td></tr></tdata></table>',$/;

---

- La deuxième, virer le ",$/" qui me semble parasite...

Code:

---

1 2 3

my $vartotal = $uhash->{$user_id}->{total}; print '<tr style="font-weight: bold;"><td>Total</td><td>'.$vartotal.'</td></tr></tdata></table>';

---

ou aussi

Code:

---

print '<tr style="font-weight: bold;"><td>Total</td><td>'.$uhash->{$user_id}->{total}.'</td></tr></tdata></table>';

---

Et pense à poster les messages d'erreur si il y en a... Car sinon je pourrais pas t'aider plus...

Bonjour Philou67430

J'ai essayé ce que tu m'a dit, j'ai toujours le même type de message d'erreur:

Citation:

---

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 124, near "print q(

---

J'ai essayé de modifier les parenthèses:

Code:

---

1 2	print q(<tr style="font-weight: bold;"><td>Total</td><td>',$uhash->{$user_id}->{total},'</td></tr>), '</tdata></table>',$/;

---

Et toujours la même erreur.

Tu n'as pas utilisé l'opérateur convenablement pour ton usage, car l'opérateur q() remplace les quotes simples, c'est à dire sans interpolation.
Pour interpoler des variables il faudrait éventuellement utiliser l'opérateur qq().

Cette ligne devrait être plus correcte :

Code:

---

print qq(<tr style="font-weight: bold;"><td>Total</td><td>'$uhash->{$user_id}->{total}'</td></tr></tdata></table>),$/;

---

Au passage, j'ai vérifié que cette ligne compilait. Si tu as toujours l'erreur, il faudra alors que tu donnes le contexte autour de cette ligne, car le problème est sans doute ailleurs.

Ca ne marche toujours pas :calim2:

Voici la fonction complète:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

foreach(keys(%{ $uhash })) { my $user_id = $_;   next if ($uhash->{$user_id}->{total} == 0); print '<h2>',$uhash->{$user_id}->{real_name},'</h2>'; print '<table><tdata>',$/;   foreach(keys(%{ $uhash->{$user_id}->{queues} })) {   next if ($uhash->{$user_id}->{queues}->{$_} == 0);   print '<tr>', '<td>',$_,'</td>', '<td>',$uhash->{$user_id}->{queues}->{$_},'</td>', '</tr>',$/; } print qq(<tr style="font-weight: bold;"><td>Total</td><td>'$uhash->{$user_id}->{total}'</td></tr></tdata></table>),$/; }

---

Si vous voulez d'autres informations, n'hésitez pas à me demander ;)

Sinon encore merci de m'aider Michon et Philou :D

EDIT : Pour rappel, voici le message d'erreur:

Citation:

---

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 124, near "print qq(

---

J'ai testé ta portion de code avec une structure de donnée que j'ai créée, et je n'ai aucune erreur.
Pourrais-tu soit :
- fournir la liste de use utilisés dans le script
- fournir le script complet en pièce jointe avec éventuellement les jeux de fichiers d'entrée pour le tester

Pourrais-tu également indiquer la version perl que tu utilises ?

Autre idée, remplace cette ligne

Code:

---

print qq(<tr style="font-weight: bold;"><td>Total</td><td>'$uhash->{$user_id}->{total}'</td></tr></tdata></table>),$/;

---

par

Code:

---

print '<tr style="font-weight: bold;"><td>Total</td><td>', $uhash->{$user_id}->{total}, '</td></tr></tdata></table>',$/;

---

Toujours la même erreur :(

Peut-être pourrais-tu également répondre à mon message #13

Oups, désolé, je ne l'avais pas vu...

Alors pour la version de Perl:

This is perl, v5.10.0 built for x86_64-linux-gnu-thread-multi

Qu'entend tu par les jeux de fichier d'entrée?

Hum... je n'avais pas compris que le code perl n'était pas appelé directement par perl, mais intégré dans un méta-langage XML.

Ca se complique, car je me vois mal installer RT.

On va donc procéder autrement...
Pourrais-tu mettre la ligne 124 en commentaire (# en début de ligne) et m'indiquer s'il donne une erreur en ligne 140 à 144 ?

Il m'affiche toujours la même erreur, on dirait qu'il ne prend pas la ligne pour un commentaire:

Citation:

---

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 124, near "# print '

---

J'ai essayé avec // , mais pareil:

Citation:

---

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 124, near "// print '

---

Essaye avec un commentaire XML : <!-- ... --> ?
En tout cas, le problème se situe autour de RT, pas de perl.

Même erreur, ligne 124 :(
Je vais vérifier les logs RT au cas où il y aurait une piste, mais j'y crois moyen :?

Il faudrait pouvoir voir le code perl extrait par RT.

Encore une idée : supprime le ; après font-weight: bold;

Toujours la même...

Je pensais à un truc, il n'y à pas de manip spéciale à faire une fois la modification faite (et enregistrée)?
Pour être sûr, je restart apache à chaque fois, pour qu'il prenne bien les nouveaux paramètres en compte (on sait jamais, même si je ne passe pas que ça soit indispensable)

Supprime carrément la ligne, en la gardant de coté pour la remettre plus tard.

Erreur sur la ligne 141 maintenant:

Citation:

---

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 141, near "print '

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

if (keys(%{ $queue_time })) { my $total_queues_time = 0;   print '<h2>Queue times</h2>', '<table><tdata>',$/; foreach(keys(%{ $queue_time })) { print '<tr>', '<td>',$_,'</td>', '<td>',$queue_time->{$_},'</td>', '</tr>',$/;   $total_queues_time += $queue_time->{$_}; } print '<tr style="font-weight: bold">', <--- LIGNE 141 '<td>Total</td>', '<td>',$total_queues_time,'</td>', '</tr>',$/, '</tdata></table>',$/; }

---

OK, c'est ce que je voulais voir apparaitre, car ces deux lignes sont très similaires.

Je cherche une raison...

Ce qui est bizarre, c'est que tu n'ai pas d'erreur sur le print précédent, pourtant très similaire.

Pourrais-tu essayer d'ajouter un ; après le } précédent chacun des print qui pose problème ?

Citation:

---

Envoyé par Philou67430

Pourrais-tu essayer d'ajouter un ; après le } précédent chacun des print qui pose problème ?

---

Retour du message d'erreur sur la ligne 124

Essaye en simplifiant la ligne :

Code:

---

print $uhash->{$user_id}->{total}, '</td></tr></tdata></table>',$/;

---

puis

Code:

---

print '</td></tr></tdata></table>',$/;

---

puis

Code:

---

print $/;

---

Au point où on en est, j'ai essayé en supprimant les 2 lignes avec print (121 et 141 je crois) :mrgreen:

Mais bon, fallait s'y attendre, ça ne marche pas hein, mais j'ai un sacré message d'erreur, si des fois ça peut aider:

Citation:

---

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Can't find string terminator '"' anywhere before EOF at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 82. Stack: [/opt/rt3/share/html/Tools/Reports/TimeWorked.html:82] [/usr/local/share/perl/5.10.0/HTML/Mason/Interp.pm:817] [/usr/local/share/perl/5.10.0/HTML/Mason/Interp.pm:445] [/usr/local/share/perl/5.10.0/HTML/Mason/Request.pm:249] [/usr/local/share/perl/5.10.0/HTML/Mason/Request.pm:212] [/usr/local/share/perl/5.10.0/HTML/Mason/ApacheHandler.pm:97] [/opt/rt3/bin/../lib/RT/Interface/Web/Request.pm:68] [/usr/local/share/perl/5.10.0/Class/Container.pm:275] [/usr/local/share/perl/5.10.0/Class/Container.pm:353] [/usr/local/share/perl/5.10.0/HTML/Mason/Interp.pm:348] [/usr/local/share/perl/5.10.0/HTML/Mason/ApacheHandler.pm:868] [/usr/local/share/perl/5.10.0/HTML/Mason/ApacheHandler.pm:822] [/opt/rt3/bin/webmux.pl:166] [/opt/rt3/share/html/Tools/Reports/TimeWorked.html:82]

---

Citation:

---

Envoyé par Philou67430

Essaye en simplifiant la ligne :

Code:

---

print $uhash->{$user_id}->{total}, '</td></tr></tdata></table>',$/;

---

---

-->

Code:

---

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 140, near "print '

---

_________________________________________________________________

Citation:

---

Code:

---

print '</td></tr></tdata></table>',$/;

---

---

-->

Code:

---

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 140, near "print '

---

_________________________________________________________________

Citation:

---

Code:

---

print $/;

---

---

-->

Code:

---

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 140, near "print '

---

Exact, l'erreur est en 82 :

Code:

---

1 2	$sql_query .= sprintf(" AND Resolved <= '%s'", $end_date->ISO);

---

il manquait la double quote fermante, mon emacs favori avait bien colorisé, et je ne l'ai pas vu !

Yep ça marche! :ccool:

Merci beaucoup! Vraiment bien joué!!!
:zoubi:

C'est jamais très facile à trouver ce genre d'erreur, surtout quand c'est interprété au travers d'un méta-langage.
Bonne journée.