Help Perl

Question

Bonjour,

Je voudrais afficher le contenu d'un fichier sous une page web en langage Perl.
Il ne s'agit pas d'afficher simplement et betement le contenu. ça j'y suis arrivé.
Mais de trier dans celui-ci...

est ce que quelqu'un pourrait m'aider ?

tisba972 · Answer

Bonjour,

Qu'entend tu par trier le contenu?
peux tu mettre ce que tu as deja coder pour l'affichage?

clement. · Answer

Pour lire mon ficher et l'afficher sur ma page web mon code est tout simple : 

print "Content-type: text/html

";				#Pour pouvoir être lu sur une page Web (HTML)					

@ARGV = ("monfichier");	                                        #Lire le fichier voulu

while (<>)
{
print;
}



le fichier en question c'est celui là !

lmstat - Copyright (C) 1989-2001 Globetrotter Software, Inc.
Flexible License Manager status on Fri 9/12/2008 11:26

License server status: 27000@serveur
    License file(s) on chemin_serveur

   nom_serveur: license server 

Vendor daemon status (on serveur):

   Version: UP v7.2

Feature usage info:

Users of ***:  (Total of 2 licenses available)

Users of ***:  (Total of 2 licenses available)

Users of ***:  (Total of 2 licenses available)

Users of ***:  (Total of 2 licenses available)

Users of ***:  (Total of 1 license available)

Users of ***:  (Total of 1 license available)

Users of ***:  (Total of 2 licenses available)

Users of ***:  (Total of 2 licenses available)

Users of ***:  (Total of 2 licenses available)

Users of ***:  (Total of 2 licenses available)

Users of ***:  (Total of 2 licenses available)

Donc ce contenu arrive dans ma page web mais pas de cette forme là ... 
Ce que je veux c'est realisé un tableau ou sera mis en colonne :
- le nom de la licence (représenté par les ***)
- le nombre de licences disponibles

Lorsqu'un utilisateur utilise une de ses licences sa rajoute des informations qu'il faut stockés dans un second tableau :

- le login de la personne qui utilise cette licence( dans l'exemple il n'y a personne a ce moment)
- le nom de la machine 
- la date de début d'utilisation.

voila... pour moi c'est vraiment pas simple.... 
merci de l'aide

tisba972 · Answer

donc 
je pense que tu connais la commande "split" en perl (separateur de champ) 
il faut que tu fasse un split sur chaque ligne.

#admettons que tu enregistre la ligne de ton fichier dans $ligne

@C_ligne = split " ",$ligne;   #ici tu récupère les champs de la ligne qui sont séparés par un espace 

#maintenant tu veux traiter les lignes où sont contenus les infos sur la licence.

for  $i (0..@C_ligne)
          if ( $C_ligne eq "Users")
          {
                      $nom_licence[$i] = $C_ligne[2];     #attention cela marche que si le nom de la licence est en seul mot
                      $nbr_licence[$i] = $C_ligne[6] ;   # j'ai un doute sur le numero 6 , c ptet 7
          }
}

#il faut que tu lise ton fichier ligne par ligne pour cela

clement. · Answer

En effet je connais la commande split mais je savais pas trop comment l'utiliser.

Donc ca donne ça : 



print "Content-type: text/html

"; #Pour pouvoir être lu sur une page Web (HTML)

@ARGV = ("monfichier"); #Lire le fichier voulu

while (<>)
{
@C_ligne = split " ",$ligne; 
for  $i (0..@C_ligne)
          if ( $C_ligne eq "Users")
          {
                      $nom_licence[$i] = $C_ligne[2];  #Le nom des licences est bien en un seul mot (ex : une_licence )
                      $nbr_licence[$i] = $C_ligne[6] ;   # là je comprends pas bien a quoi correspond le 6 ou 7 ? ca représente le 7eme ou 8eme mot de la ligne ?

print;                                                               # enfin le programme est t-il correcte ?
} }

tisba972 · Answer

dnas ton cas là le programme ne va reconnaitre la variable $ligne.
il faudrait faire 

print "Content-type: text/html

"; #Pour pouvoir être lu sur une page Web (HTML)

open (FIC,"<Ton_fichier");
while ($ligne = <FIC>)
{
           @C_ligne = split " ",$ligne;
            for $i (0..@C_ligne)
            {
                            if ( $C_ligne eq "Users")
                            {
                                     $nom_licence[$i] = $C_ligne[2]; #Le nom des licences est bien en un seul mot (ex : une_licence )
                                     $nbr_licence[$i] = $C_ligne[6] ; # le 6 indique le numero du champ que l'on veut récupérer en sachant que le premier champ est 0 , donc 6 correspond au 7e champ.
                           }
             }
}

print; 
après à toi de restrucutrer les données enregistrée pour savoir comment tu les réécris

tisba972 · Answer

je viens de constater une belle boulette dans mon "for"
je te demande de m'excuser d'ailleurs.
procede autrement.

print "Content-type: text/html

"; #Pour pouvoir être lu sur une page Web (HTML)

$i = 0;
open (FIC,"<Ton_fichier");
while ($ligne = <FIC>)
{
           @C_ligne = split " ",$ligne;
           
            if ( $C_ligne eq "Users")
             {
                                     $nom_licence[$i] = $C_ligne[2]; #Le nom des licences est bien en un seul mot (ex : une_licence )
                                     $nbr_licence[$i] = $C_ligne[6] ; # le 6 indique le numero du champ que l'on veut récupérer en sachant que le premier champ est 0 , donc 6 correspond au 7e champ.
                                       $i += 1;
                }
             
}
#la c'est correct et moins encombrant
print;

clement. · Answer

d'accord mais c'est pas plutot avec des "my" pour les varaibles ?

tisba972 · Answer

ce n'est pas obligatoire , c'est selon l'utilisation que tu en fais.
tu peux mettre
my $i = 0; 
si ça peut te soulager  :-)

clement. · Answer

Moi personnellement si ca a pas d'importance je m'en fiche lol
mais le petit malin m'indique plein plein d'erreurs ^^ dans le error.log

je mets juste les éléments concernés ;)
(Did you mean &i instead?)
Variable "$i" is not imported at /var/www/cgi-bin/script line 32.
(Did you mean &i instead?)
Variable "$i" is not imported at /var/www/cgi-bin/script line 33., 
(Did you mean &i instead?)
Variable "$i" is not imported at /var/www/cgi-bin/script line 34.
(Did you mean &i instead?)
Global symbol "$i" requires explicit package name at /var/www/cgi-bin/script line 24., Global symbol "$ligne" requires explicit package name at /var/www/cgi-bin/script line 26., Global symbol "@C_ligne" requires explicit package name at /var/www/cgi-bin/script line 28.
Global symbol "$ligne" requires explicit package name at /var/www/cgi-bin/script line 28., Global symbol "$C_ligne" requires explicit package name at /var/www/cgi-bin/script line 30
Global symbol "@nom_licence" requires explicit package name at /var/www/cgi-bin/script line 32
Global symbol "$i" requires explicit package name at /var/www/cgi-bin/scriptline 32., Global symbol "@C_ligne" requires explicit package name at /var/www/cgi-bin/script line 32
Global symbol "@nbr_licence" requires explicit package name at /var/www/cgi-bin/script line 33
Global symbol "$i" requires explicit package name at /var/www/cgi-bin/script line 33., Global symbol "@C_ligne" requires explicit package name at /var/www/cgi-bin/scriptline 33
Global symbol "$i" requires explicit package name at /var/www/cgi-bin/script line 34., : Execution of /var/www/cgi-bin/script aborted due to compilation errors.


Chouette pas vrai ^^ ? j'ai l'impression qu'il aime pas trop les nouvelles variables...
J'ai une autre question.. le open est-il nécessaire ? j'ai déjà essayé de l'utiliser et a chaque fois il me mets une erreur du style "readline () ..." 
pas cette fois parce que ya le reste mais elle viendra apres je pense.

tisba972 · Answer

Alors là j'avoue....
essaie en déclarant toutes les variables que l'on utilise avec my .
en faisant attention de bien mettre @ pour les tabelaux .

clement. · Answer

Je sens que mon Perl est complement à la masse....
j'arrive à rien faire avec ce truc là... a par afficher "coucou" ou un tableau mais sans rien a l'intérieur
et quand j'essaye de faire un rsh... c'est même pas ma peine d'y penser...

tisba972 · Answer

tu as bien écris cett ligne là :    #!/usr/bin/perl  
sans faute?

lami20j · Answer

Salut,
les informations que tu veux stocker dans le deuxième tableau se trouvent où?

- le login de la personne qui utilise cette licence( dans l'exemple il n'y a personne a ce moment)
- le nom de la machine
- la date de début d'utilisation.

clement. · Answer

#!/usr/bin/perl -w

moi j'ai écris ca,

tisba972 · Answer

teste en virant le -w....
lami20j est calé en perl ...
je pense qu'il te filera un coup de main aussi

clement. · Answer

Les autres éléments losqu'un utiliseur prends une licence se rajoutens dans ce meme fichier.

c'est a dire que ca donne ca a la fin j'ai pu trouver un exemple :

Users of ***:  (Total of 2 licenses available)

  "***" v12.01, vendor: 
  floating license

    machine serveur /dev/tty (v1.0) (serveur/27000 202), start Tue 7/15 10:13

voila...

clement. · Answer

merci en tout ca a toi tisba972,
lami20j va avoir du boulot avec moi lol^^

lami20j · Answer

Re,

par exemple (attention, ce n'est pas encore un script CGI) pour afficher les licences et le nombre de licences
Dans mon exemple j'utilise le handle DATA et pas un fichier. Mais ce n'est qu'un exemple ;-)#!/usr/bin/perl
use strict;use warnings;

while (<DATA>){
  next unless /^Users/;
  print "$1 : $2 licence(s)
" if /of\s*(.*):.*of\s*(\d+)\s+.*/;
}
__END__
lmstat - Copyright (C) 1989-2001 Globetrotter Software, Inc.
Flexible License Manager status on Fri 9/12/2008 11:26

License server status: 27000@serveur
License file(s) on chemin_serveur

nom_serveur: license server

Vendor daemon status (on serveur):

Version: UP v7.2

Feature usage info:

Users of ***: (Total of 2 licenses available)

Users of ***: (Total of 2 licenses available)

Users of ***: (Total of 2 licenses available)

Users of ***: (Total of 2 licenses available)

Users of ***: (Total of 1 license available)

Users of ***: (Total of 1 license available)

Users of ***: (Total of 2 licenses available)

Users of ***: (Total of 2 licenses available)

Users of ***: (Total of 2 licenses available)

Users of ***: (Total of 2 licenses available)

Users of ***: (Total of 2 licenses available)
lami20j@debian:~/trash$ perl licence.pl
*** : 2 licence(s)
*** : 2 licence(s)
*** : 2 licence(s)
*** : 2 licence(s)
*** : 1 licence(s)
*** : 1 licence(s)
*** : 2 licence(s)
*** : 2 licence(s)
*** : 2 licence(s)
*** : 2 licence(s)
*** : 2 licence(s)

clement. · Answer

je n'aurais qu'un mot... heu...:)

qui fait quoi ? j'ai pas tout suivi... habituellement je comprends mais là c'est tout confus..

lami20j · Answer

Re,

essayons de faire simple

Tu donnes le fichier que tu as en entrée et tu affiches exactement ce que tu veux obtenir.
En bref, un exemple concret. Le plus important c'est de comprendre ce que tu veux obtenir. Pour le reste on verra ;-)

clement regarde tes MP

tisba972 · Answer

si ça vous dérange pas , je suivrai bien l'affaire.
Pour mes compétences personnelles...

clement. · Answer

je t'ai envoyé le fichier concerné sur ton mail.

clement. · Answer

Le résultat souhaité c'est un tableau avec plusieurs colonne dont certaines apparaissent en plus losque un utilisateur utilise une licence....

clement. · Answer

je t'ai envoyé un screen pour que tu visualises ce que je veux faire :)

lami20j · Answer

Re,

sauf les données confidentielles qu'on ne peux pas poster dans un forum, dans le but de partager avec la communauté, merci de rester sur le Forum.

clement. · Answer

Salut,

Ben c'est confidentielle. donc je peux pas les mettre sur le forum... enfin pas la totalité..

Help Perl - Page 2

Discussions similaires

Newsletters