Discussion :

[Olivier Regnier]

Bonjour

Je désire via un script CGI récupérer le contenu de ma clé PGP via une page Web. Afficher la page ne me pose pas de problème mais uniquement chercher le contenu sur le site distant.

Voici le lien de ma clé PGP.

Pourriez-vous me donner des pistes s'il vous plaît?

Merci d'avance

[Olivier Regnier]

Bon bon bon

J'ai trouvé la réponse dont voici le code:

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
#!/usr/bin/perl -w
 
use strict;
use warnings;
 
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
 
use LWP::Simple;
 
$CGI::POST_MAX=1024*100;
$CGI::DISABLE_UPLOADS=1;
 
my $cgi=new CGI;
my $key=get "http://pgp.mit.edu:11371/pks/lookup?op=get&search=0x51970403";
 
print $cgi->header(-charset=>'iso-8859-1');
print "$key";

Je souhaite uniquement récupérer la clé se trouvant entre la balise <pre> et non les balises précédentes que voici:

Code :

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

1
2
<title>Public Key Server -- Get ``0x51970403''</title><p>
<h1>Public Key Server -- Get ``0x51970403''</h1><p>

Est-ce possible?

Merki

[teddyalbina]

Bah a ce moment il faut appliquer un traitement sur ta variable $key une regexp irait bien

quelque chose comme

Code :

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

<pre>(.*)</pre>

[Olivier Regnier]

Bah a ce moment il faut appliquer un traitement sur ta variable $key une regexp irait bien

quelque chose comme

Code :

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

<pre>(.*)</pre>

Comment l'appliques-tu ce pattern ?

[teddyalbina]

Heu alors perl sa remonte a loin mais si je ne me trompe pas en faisant

Code :

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

1
2
 
$key =~ /<pre>(.*)<\/pre>/gi;

et en récupérant le résultat dans $1

Je n'ai pas perl sous le main pour tester mais je pense que sa devrais marcher

[Olivier Regnier]

Heu alors perl sa remonte a loin mais si je ne me trompe pas en faisant

Code :

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

1
2
 
$key =~ /<pre>(.*)<\/pre>/gi;

Je n'ai pas perl sous le main pour tester mais je pense que sa devrais marcher

Cela ne change rien il m'affiche toujours les balises avant la balise <pre>

[teddyalbina]

Cela ne change rien il m'affiche toujours les balises avant la balise <pre>

tu fais bien

Code :

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

$key =~ /<pre>(.*)<\/pre>/gi;

puis

Code :

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

print $1;

?

[Olivier Regnier]

Non

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
#!/usr/bin/perl -w
 
use strict;
use warnings;
 
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
 
use LWP::Simple;
 
$CGI::POST_MAX=1024*100;
$CGI::DISABLE_UPLOADS=1;
 
my $cgi=new CGI;
my $key=get "http://pgp.mit.edu:11371/pks/lookup?op=get&search=0x51970403";
$key=~ /<pre>(.*)<\/pre>/gi;
 
print $cgi->header(-charset=>'iso-8859-1');
print "$key";

A mon avis, je m'y prend mal

[teddyalbina]

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
#!/usr/bin/perl -w
 
use strict;
use warnings;
 
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
 
use LWP::Simple;
 
$CGI::POST_MAX=1024*100;
$CGI::DISABLE_UPLOADS=1;
 
my $cgi=new CGI;
my $key=get "<a href="http://pgp.mit.edu:11371/pks/lookup?op=get&search=0x51970403" target="_blank">http://pgp.mit.edu:11371/pks/lookup?...rch=0x51970403</a>";
$key=~ /<pre>(.*)<\/pre>/gi;
 
print $cgi->header(-charset=>'iso-8859-1');
print $1;

essaie sa!!

[Olivier Regnier]

Le script ne fonctionne toujours pas

A mon avis, cela bloque au niveau du regexp

[thierry.chich]

Ce code de test fonctionne en tout cas (je n'aime utiliser les $1)

Code :

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

1
2
3
4
 
$key="<pre>toto</pre>";
($bidule)= $key=~/<pre>(.*)<\/pre>/gi;
print "$bidule\n";

Si ca ne répond pas, c'est peutêtre que le problème ne vient pas de la regexp, mais que tu n'a pas ce que tyu penses avoir dans ta variable $key