Afficher le contenu d'un fichier

**Olivier Regnier** · 16/11/2007, 12h59

Bonjour

J'ai un fichier texte composé d'adresses IP comme suit:

Code :

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

1
2
92.145.8.156
128.17.01.38

Mon objectif les afficher sur une page web avec un script cgi.

J'ai commencé à écrire le code (incomplet):

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
26
use strict;
use diagnostics;
use warnings;
 
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
 
my $cgi=new CGI;
 
my $logip="/home/olivier/cgi-bin/logip.log";
 
# <-- BEGIN HTML PAGE --
 
# Header
print $cgi->header(-charset=>'utf-8');
 
# Display data on the HTML page
open FILE, "$logip" or die "$logip does not seem to exist!\n";
while ($line = <FILE>) {
print $line;
}
 
# End HTML
print $cgi->end_html();
 
# -- END HTML PAGE -->

Il m'affiche bien le contenu du fichier mais j'obtiens un affichage sur une seule ligne:

Code :

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

92.145.8.156 128.17.01.38

J'ai jetté un oeil dans la faq et effectivement, il y a un exemple:

Code :

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

print « $line\n »;

Mais j'obtiens ce message:

Code :

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

Unrecognized character \xC2 at counter.cgi line 47.

Un petit coup de main svp, merci

**Ganondorf** · 16/11/2007, 13h35

salut,

si ca peut t'aider ceci fonctionne chez moi

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
26
27
28
 
use strict;
use diagnostics;
use warnings;
 
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
 
my $cgi=new CGI;
 
my $logip="/home/serveur/logip.log";
 
# <-- BEGIN HTML PAGE --
 
# Header
print $cgi->header(-charset=>'utf-8');
 
# Display data on the HTML page
open FILE, "$logip" or die "$logip does not seem to exist!\n";
while (defined(my $line = <FILE>)) {
	chomp $line;
	print "$line\n";
}
 
# End HTML
print $cgi->end_html();
 
# -- END HTML PAGE -->

résultat

Code :

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

1
2
3
4
5
6
7
8
9
 
serveur@Dirtybox:~$ perl test.pl
Content-Type: text/html; charset=utf-8
 
92.145.8.156
128.17.01.38
 
</body>
</html>serveur@Dirtybox:~$

à plus

**iblis** · 16/11/2007, 13h50

Bonjour.

Tu as simplement recopié les guillemets à la française « » et pour perl cela ne vaudra jamais " ". Fais donc,

Code :

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

print "$line\n";

ou pour plus de lisibilité :

Code :

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

print $line . "\n";

et tout ira bien.

**Olivier Regnier** · 16/11/2007, 14h02

Bonjour et merci pour vos réponses

Code :

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

1
2
3
4
5
6
open FILE, "$logip";
    while ($line = <FILE>) {
    	chomp $line;
        print "$line\n";
    }
close FILE;

idem pour:

Code :

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

print $line . "\n";

Je suis d'accord avec vous, cela fonctionne en console mais pas sur une page web.

Voici le code source de ma page:

Code :

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

1
2
3
4
5
<body>
82.241.6.173
212.27.60.48
</body>
</html>

Mais à l'écran, j'obtiens toujours le résultat en ligne:

Code :

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

82.241.6.173 212.27.60.48

**iblis** · 16/11/2007, 14h13

Autant pour moi.

Là il va falloir insérer au choix des <p></p> ou des <br> ...

Code :

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

print '<p>' . $ligne . '</p>';

car fort heureusement, en html les sauts de lignes ne sont pas signifiants.

**Olivier Regnier** · 16/11/2007, 14h22

Non c'est bon, il y avait une ligne vide dans le fichier

Afficher le contenu d'un fichier

Langage Perl

Discussions similaires

Partager

Partager