Afficher le contenu d'un fichier

Version imprimable

Bonjour :)

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

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:

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:

92.145.8.156 128.17.01.38

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

Code:

print « $line\n »;

Mais j'obtiens ce message:

Code:

Unrecognized character \xC2 at counter.cgi line 47.

Un petit coup de main svp, merci :mrgreen:

salut,

si ca peut t'aider ceci fonctionne chez moi

Code:

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:

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

16/11/2007, 13h50
iblis

Bonjour.

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

Code:

print "$line\n";

ou pour plus de lisibilité :

Code:

print $line . "\n";

et tout ira bien.
16/11/2007, 14h02
Olivier Regnier
Bonjour et merci pour vos réponses :)
Code:

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

Code:

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:

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:

82.241.6.173 212.27.60.48

:(
16/11/2007, 14h13
iblis

Autant pour moi.

Là il va falloir insérer au choix des ou des ...

Code:

print '' . $ligne . '';

car fort heureusement, en html les sauts de lignes ne sont pas signifiants.
16/11/2007, 14h22
Olivier Regnier

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