problème utf8 .... help !

**lefakir** · 14/12/2005, 17h38

Bonjour,
J'utilise perl v5.8.6 sous linux et j'ai un petit programme à faire
avec LWP.
J'ai cette erreur :

500 /\x{FEFF}/: Can't use \x{} without 'use utf8' declaration

lorsque j'exécute ce sublime code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
 
use strict; use warnings;
use LWP;
 
my $browser      = LWP::UserAgent->new;
my $url              = "http://search.cpan.org/search";
my $response   = $browser->get($url, [ 'query' => 'mime',  'mode' =>
'all' ]);
die "Couldn't get $url" unless defined $response;
my $resp = $response->content;
print $resp;

L'erreur est déclenchée sur le print.

Je n'arrive pas à savoir comment (et en quoi ?) convertir $resp pour
qu'elle m'affiche le beau code html.

Toutes les idées sont les bienvenues.

D'après ce que j'ai compris le "use utf8;" sert si l'on veut utiliser
de l'utf dans le code source.
De plus, les fonctions de conversion proposées par le pragma utf8
semble monopoliser le processeur et tourner à fond les ballons sans
rien me retourner.

A nouveau, Toutes les idées sont les bienvenues ainsi que les
éclaircissements.

**djibril** · 14/12/2005, 17h51

je viens de tester ton script suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl -w
 
use strict; 
use warnings; 
use LWP; 
 
my $browser = LWP::UserAgent->new; 
my $url = "http://search.cpan.org/search"; 
my $response = $browser->get($url, [ 'query' => 'mime',  'mode' => 'all' ]); 
die "Couldn't get $url" unless defined $response; 
my $resp = $response->content; 
print $resp;

et il fonctionne bien et me donne sous winXP ceci en 1 seconde:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
 <head>
  <link rel="stylesheet" href="/s/style.css" type="text/css">
  <link rel="alternate" type="application/rss+xml" title="RSS 1.0" href="http://search.cpan.org/uploads.rdf">
  <title>search.cpan.org: The CPAN Search Site</title>
 </head>
 <body id="cpansearch">
<center><div class="logo"><a href="/"><img src="/s/img/cpan-10.jpg" alt="CPAN"></a></div></center>
<div class="menubar">
 <a href="/">Home</a>
&middot; <a href="/author/">Authors</a>
&middot; <a href="/recent">Recent</a>
&middot; <a href="http://log.perl.org/cpansearch/">News</a>
&middot; <a href="/mirror">Mirrors</a>
&middot; <a href="/faq.html">FAQ</a>
&middot; <a href="/feedback">Feedback</a>
</div>
<form method="get" action="/search" name="f" class="searchbox">
<input type="text" name="query" value="" size="35">
<br>in <select name="mode">
 <option value="all">All</option>
 <option value="module" >Modules</option>
 <option value="dist" >Distributions</option>
 <option value="author" >Authors</option>
</select>&nbsp;<input type="submit" value="CPAN Search">
</form>
 
<h1 class=huge>Not found</h1>
<br>
Whatever it was you were looking for, it's not here.
This may be due to...
<ul>
<li>You made a typo in the URL</li>
<li>What you are looking for no longer exists on CPAN</li>
<!-- <li>You are completely confused, which is not my fault :-)</li> -->
<li>You followed an invalid link. If this is the case, please
inform the maintainer of the <a href="">refering page</a>
</ul> 
<div class="footer">
hosted by <a href="http://www.perl.org/siteinfo.html">perl.org</a>, hardware provided by<br/>
<a href="http://www.bizrate.com"><img src="/s/img/bizrate_logo.png"></a>
</div>
<!-- Wed Dec 14 16:49:35 2005 GMT (0.00429916381835938) @x15 -->
 </body>
</html>

, je sais pas d'ou viens ton souci

**djibril** · 14/12/2005, 17h52

quel est ton message d'erreur?

**lefakir** · 14/12/2005, 18h09

Merci,
tu as bien de la chance

J'ai toujours le même invariablement quel que soit le site (valide) touché par LWP ...

500 /\x{FEFF}/: Can't use \x{} without 'use utf8' declaration

autant je vais passer ça au debugger

**lefakir** · 14/12/2005, 19h17

En fait en fouillant un peu, je suis tombé là dessus :

http://www.ahinea.com/en/tech/perl-u...-struggle.html
http://search.cpan.org/~jhi/perl-5.8...nicode_Support
http://search.cpan.org/~jhi/perl-5.8.1/pod/perlrun.pod

a mon grand effroi, aucune des methodes proposées n'a été concluante ...

Pire il y a un truc qui m'a mis la puce à l'oreille : Lorsque j'ai voulu installer le module Encode.pm depuis webmin sur le serveur, j'a eu cette erreur :

Code :

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

1
2
3
4
Exécution de /usr/bin/perl Makefile.PL  && make ..
 
Perl v5.7.3 required--this is only v5.6.0, stopped at Makefile.PL line 1.
BEGIN failed--compilation aborted at Makefile.PL line 1.

mais le coup fatal a été donnée en exécutant :

Code :

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

1
2
3
$ /usr/bin/perl --version
 
This is perl, v5.6.0 built for i386-linux

Je pensais utiliser une version 5.8 car j'ai ceci dans ma console :

Code :

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

1
2
3
$ perl --version
 
This is perl, v5.8.6 built for i686-linux

Pour résumer, j'essaie de solutionner mon problème d'utf8 pour perl 5.8 alors que c'est perl 5.6 qui est exécuté.

Je vais donc faire un sondage auprès de mes collègues pour savoir s'il est normal d'utiliser perl 5.6 sur ce serveur.

We will see ...

Pour l'heure j'ai bien mérité un petit remontant !