Perl&MySQL

[GodfatheR]

Dali neko zna kako da ispravim gresku pri izvrsavanju sledece skripte.

 #!/usr/bin/perl
  use DBI();

  my $dbh = DBI->connect("DBI:mysql:database=podaci;host=localhost",
                         "root", "",
                         {'RaiseError' => 1});

  print "Unesite naziv : ";
  $naziv=<STDIN>;

  print "Unesite ime1 : ";
  $ime1=<STDIN>;

  print "Unesite ime2: ";
  $ime2=<STDIN>;

  print "Unesite ime3: ";
  $ime3=<STDIN>;

  $dbh->do("CREATE TABLE $naziv (id INTEGER, name VARCHAR(20))");
  $dbh->do("INSERT INTO $naziv VALUES (?, ?)", undef, 1, $ime1);
  $dbh->do("INSERT INTO $naziv VALUES (?, ?)", undef, 2, $ime2);
  $dbh->do("INSERT INTO $naziv VALUES (?, ?)", undef, 3, $ime3);
  $dbh->disconnect();

Greska je sledeca kada za naziv ukucam "CLAN 160".

  DBD::mysql::db do failed: You have an error in your SQL syntax near '160
 (id INTEGER, name VARCHAR(20))' at line 1 at artikli.pl line 20, <STDIN> line 4.
 DBD::mysql::db do failed: You have an error in your SQL syntax near '160
 (id INTEGER, name VARCHAR(20))' at line 1 at artikli.pl line 20, <STDIN> line 4.

[dinke]

Ovo pitanje je vi

[GodfatheR]

Hmmm... promenio sam ali se opet javlja ista greska.

[dinke]

Greska je sledeca kada za naziv ukucam "CLAN 160".  

U ovom konkretnom slucaju, clan 160 nije validno ime za MySQL tabelu, i nije ni cudo sto ti javlja gresku. Sto se tice sintakse za integer, sorry, i jedno i drugo je ok (integer je sinonim za int). Da li ti gresku javlja i za ostala imena ili samo za CLAN 160 ?

Btw,  koristi

Kod:

chop($naziv = <STDIN>);

umesto

 $naziv=<STDIN>;

Pozdrav
D