Discussion :

[Olivier Regnier]

Bonjour

J'ai un fichier stats.log composé de 3 informations:

• Adresse IP
• Date
• Heure

Elles sont affichées dans un tableau via stats.cgi dont voici ci-dessous le code permettant l'affichage:

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
18
19
20
21
22
23
24
25
our $logfile="/chemin/cgi-bin/log/stats.log";
 
sub view_stats
{
    open my ($in), $logfile;
 
      while (<$in>)
      {
          push @lines, [split];
        my $all=(split /\s/)[0];
      }
 
    close ($in);
}
# code après
 
# code avant
print $cgi->table({-cellspacing=>'8',-cellpadding=>'0'},
                     Tr({-align=>'left'}, [
                      th({-colspan=>3})."\n",
                      th(['IP','DATE','TIME'])."\n",
                      map {td($_)."\n"} @lines,
                     ])
                   );
# code après

Je souhaite afficher uniquement l'IP et l'heure, comment dois-je m'y prendre pour ne pas afficher à la fois le nom de la colonne donc DATE et la date en elle-même ?

J'aimerai trouver un système qui me permette d'afficher lorsque je le souhaite la ou les colonnes désirées et leur contenu.

Pouvez-vous me donner un petit coup de pouce?

Merci d'avance

[Jedai]

Tu peux utiliser des slices (tranches) de tableaux :

Code :

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

1
2
my @trucs = qw(hello world and moon);
print join ', ', @trucs[0, 3];

affichera "hello, moon".

La syntaxe est relativement simple : au lieu d'indexer par un unique nombre, tu indexes par une liste de nombres (dans les []) et tu gardes le sigil @ au lieu de $.

Donc, supposant que tu crées le tableau @slice avant à partir de tes paramètres, tu pourras faire :

Code :

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

1
2
3
4
5
6
7
8
my @columns = qw(IP DATE TIME);
print $cgi->table({-cellspacing=>'8',-cellpadding=>'0'},
                     Tr({-align=>'left'}, [
                      th({-colspan=>3})."\n",
                      th([@columns[@slice]])."\n",
                      map {td([@{$_}[@slice]])."\n"} @lines,
                     ])
                   );

(avec @slice égal à (0, 2) par exemple, cela ne conservera que les colonnes IP et TIME)

--
Jedaï

[Olivier Regnier]

Salut Jedai

Cela fonctionne à merveille

Une dernière question, je souhaite numéroter chaque ligne de mon tableau avec une colonne "NB" en partant de 1.

Code :

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

1
2
3
4
5
6
7
8
my @columns = qw(NB IP DATE TIME);
print $cgi->table({-cellspacing=>'8',-cellpadding=>'0'},
                     Tr({-align=>'left'}, [
                      th({-colspan=>4})."\n",
                      th([@columns[@slice]])."\n",
                      map {td([@{$_}[@slice]])."\n"} @lines,
                     ])
                   );

Existe-t-il une fonction pour faire ça ?

Merci beaucoup

[Jedai]

Code :

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

1
2
3
4
5
6
7
8
9
my @columns = qw(NB IP DATE TIME);
my $i = 1;
print $cgi->table({-cellspacing=>'8',-cellpadding=>'0'},
                     Tr({-align=>'left'}, [
                      th({-colspan=>4})."\n",
                      th([@columns[@slice]])."\n",
                      map {td([($i++, @{$_})[@slice]])."\n"} @lines,
                     ])
                   );

--
Jedaï