Problème initialisation parser

Problème initialisation parser - Perl - Programmation

Marsh Posté le 08-04-2008 à 14:43:32    

Bonjour à tous,
 
J'ai écrit un programme Perl, pour récupérer un lien dans une balise. Cependant dans ma console après exécution de ce programme, on m'affiche :
 

Code :
  1. Use of uninitialized value in subroutine entry at Essai_1.pl line 66.


 
Voici mon code :  
 

Code :
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  5. use HTML::Parser;
  6. use LWP::Simple;
  8. #Variables
  9. my $baseurl = 'http://www.google.com/';
  10. my $flag = 0;
  13. die "usage: $0 site gene\n"
  14.     if @ARGV != 2;
  17. my $pharmGKB = $ARGV[0];
  18. my $nom_gene = $ARGV[1];
  20. #Page URL où parser
  21. my $url = $baseurl.'search?hl=fr&q='.$pharmGKB.'+'.$nom_gene.'&btnG=Rechercher&meta=';
  22. #print "$url\n";
  23. my $PAGE = get($url);
  25. sub check { defined $_[0] and $_[0] =~ m/$_[1]/ }
  27. #Parser
  28. my $parser = HTML::Parser->new(start_h => [\&start_rtn,"tag, attr"],
  29.                 text_h => [\&text_rtn, "text"],
  30.                 end_h => [\&end_rtn, "tag"]
  31.                 );
  33. sub start_rtn {
  35. my ($tag, $attr) = @_;
  36. if ($tag =~ /^a$/
  37.         and check( $attr->{href}, qr{^http://www.pharmgkb.org/do/serve\?objId=} )
  38.         and check( $attr->{class}, qr{^l$} )
  39.         and check( $attr->{onmousedown}, qr{return clk\(this\.href,'','','res','1',''\)} ) ){   
  40.       $flag = 1;
  41.       my $URL = $attr->{href};
  42.       print "$URL";
  43.    }
  45. }
  47. sub text_rtn {
  48. my ($text) = @_;
  49.    $text =~ s/\n/ /g;
  51. if($flag == 1){               
  52.          print "$text\n";
  53.      }
  54. }
  56. sub end_rtn {
  57. my ($tag) = @_;
  59. if ($tag =~ /^\/a$/ && $flag == 1){
  60.               $flag = 0;
  61. }
  63. }
  65. #start parsing
  66. $parser->parse($PAGE);
  67.  
  68. #end parser
  69. $parser->eof;


La ligne 66 correspond à $parser -> parse($PAGE)
 
Merci pour vos commentaires

Reply

Marsh Posté le 08-04-2008 à 14:43:32   

Reply

Marsh Posté le 08-04-2008 à 15:31:24    

au pif je dirais que $PAGE est vide/nulle


---------------
Software and cathedrals are much the same - first we build them, then we pray.
Reply

Marsh Posté le 08-04-2008 à 15:52:27    

Je ne pense pas, car j'ai même fait un test, pour voir si il récupérait le texte entre les balises <title> et </title>
 
Toujours la même phrase dans la console !!!!
 
Aidez moi, merci

Reply

Marsh Posté le 08-04-2008 à 16:06:48    

ligne 66 avant le $parser->parse($PAGE); tu peux faire un:

Code :
  1. print $PAGE;


Si tu as Data::Dumper installer, fait carrément un Dumer de $PAGE stp!


---------------
Software and cathedrals are much the same - first we build them, then we pray.
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed