Discussion :

[goblin]

Bonjour j'ai quelque soucie avec win32 odbc , je n'arrive pas a faire une insertion sql , j'ai pourtant fait comme dans la documentation officiel mais sa ne marche pas

voici ma requete

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $db = new Win32::ODBC("site");
 
		$db->Sql("INSERT INTO web (
                                    id_site,link,content,description,title,
                                    language,country,size,date,category
                                  ) " . " VALUES (
                                                 $id,$link_file,$content_file,$description_file,$title_file,
                                                 $language_file,$country_file,$size_file,$date_file,$category_file,
                                                 $keywords_file
                                                )
                ");
 
 
        $db->Close();

Perl me dit :

Use of uninitialized value in concatenation (.) or string at analyseur.pl line 1111

J'ai aussi un problème avec eq , voici mon 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
sub tags 
{
  my $tgs = shift;
   my $p = HTML::HeadParser->new;
      $p->utf8_mode;
	  $p->parse($tgs); 
 
       my ($tit, $kes, $des);
 
         $tit    = $p->header('Title');
         $kes    = $p->header('X-Meta-keywords');
         $des    = $p->header('X-Meta-Description');
 
 
     if ($tit eq "" )
	 {
	  $tit = "not_found";
	 }
 
     if ($kes eq "" )
	 {
	  $kes = "not_found";
	 }
 
     if ($des eq "" )
	 {
	  $des = "not_found";
	 }
 
	  my @rtn = ("$tit", "$kes", "$des");
 
   return @rtn;
}

perl me dit : Use of uninitialized value in string at analyseur.pl line 114

[Invité]

Salut,

1/ Pour Win32::ODBC, pourquoi utiliser une concaténation ??

2/ Peux-tu indiquer la ligne exacte qui correspond à la 114, car ta synthaxe semble OK.

De plus, à la place des 3 if, tu pourrais passer comme ça :

Code :

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

$tit = "not_found" unless ($tit);