2010-02-07 7 views
-5

У меня есть ошибки при вставке в мою базу данных. Я попробовал все, чтобы судить об этом. Кто-то упомянул usind DBI trace(), чтобы отслеживать, что происходит не так, но я не могу сделать головы или хвосты того, что происходит. Может кто-нибудь, пожалуйста, взгляните и посмотрите, что, по их мнению, может быть проблемой.Почему я не могу вставить HTML в мою базу данных?

D 

BI 1.607-ithread default trace level set to 0x0/1 (pid 13524) at cgitest.pl line 10 
    -> DBI->connect(*****************************************************) 
    -> DBI->install_driver(mysql) for MSWin32 perl=5.010001 pid=13524 ruid=0 euid=0 
     install_driver: DBD::mysql version 4.011 loaded from C:/Perl/site/lib/DBD/mysql.pm 
    <- install_driver= DBI::dr=HASH(0x37be1fc) 
    !! warn: 0 CLEARED by call to connect method 
    <- connect('database=web110-accounts;host=79.170.44.110;', 'web110-accounts', ...)= DBI::db=HASH(0x37bdc8c) at DBI.pm line 638 
    <- STORE('PrintError', 1)= 1 at DBI.pm line 690 
    <- STORE('AutoCommit', 1)= 1 at DBI.pm line 690 
    <- STORE('Username', 'web110-accounts')= 1 at DBI.pm line 693 
    <> FETCH('Username')= 'web110-accounts' ('Username' from cache) at DBI.pm line 693 
    <- connected(**********************************)= undef at DBI.pm line 699 
    <- connect= DBI::db=HASH(0x37bdc8c) 
    <- STORE('dbi_connect_closure', CODE(0x37c3634))= 1 at DBI.pm line 708 
    <- prepare('SELECT * FROM accounts WHERE KI = '9096699576bcc810df5bc311650c4ebd' ')= DBI::st=HASH(0x37bda24) at cgitest.pl line 61 
    <- execute= 1 at cgitest.pl line 62 
    <- rows= '1' at cgitest.pl line 63 
    <- fetchrow_hashref= HASH(0x37bd514)24keys row1 at cgitest.pl line 64 
    <- finish= 1 at cgitest.pl line 71 
    <- disconnect= 1 at cgitest.pl line 72 
    **************************************************************************** 
    **************************************************************************** 
    <- STORE('PrintError', 1)= 1 at DBI.pm line 690 
    <- STORE('AutoCommit', 1)= 1 at DBI.pm line 690 
    <- STORE('Username', 'web110-db-2')= 1 at DBI.pm line 693 
    <> FETCH('Username')= 'web110-db-2' ('Username' from cache) at DBI.pm line 693 
    <- connected('DBI:mysql:database=web110-db-2;host=79.170.44.110;', 'web110-db-2', ...)= undef at DBI.pm line 699 
    <- connect= DBI::db=HASH(0x3d615ac) 
    <- STORE('dbi_connect_closure', CODE(0x3d60f6c))= 1 at DBI.pm line 708 
    <- prepare('INSERT INTO ? (headData, headDataOutput) VALUES (?, ?)')= DBI::st=HASH(0x351659c) at cgitest.pl line 263 
    <- prepare('INSERT INTO ? (bodyData, bodyDataOutput) VALUES (?, ?)')= DBI::st=HASH(0x37bd914) at cgitest.pl line 264 
    <- prepare('INSERT INTO page_names (linkFromRoot, linkTrue, page_name, table_name, navigation, location) VALUES (?, ?, ?, ?, ?, ?)')= DBI::st=HASH(0x3d575fc) at cgitest.pl line 265 
    <- quote("http://www.themobilemakeover.co.uk/index.php")= "'http://www.themobilemakeover.co.uk/index.php'" at cgitest.pl line 271 
    <- prepare("SELECT * FROM page_names WHERE linkTrue = 'http://www.themobilemakeover.co.uk/index.php' ")= DBI::st=HASH(0x3d571bc) at cgitest.pl line 272 
    <- execute= '0E0' at cgitest.pl line 273 
    <- rows= '0' at cgitest.pl line 274 
    <- quote("The Mobile Makeover - Mobile Beautician")= "'The Mobile Makeover - Mobile Beautician'" at cgitest.pl line 289 
    <- prepare("SELECT * FROM page_names WHERE page_name = 'The Mobile Makeover - Mobile Beautician' ")= DBI::st=HASH(0x3d56fdc) at cgitest.pl line 290 
    <- execute= '0E0' at cgitest.pl line 291 
    <- rows= '0' at cgitest.pl line 292 
    <- DESTROY(DBI::st=HASH(3d54254))= undef at cgitest.pl line 287 
    <- do('CREATE TABLE IF NOT EXISTS `6959bbd13fdb4df586a5b9d08aae1153_body` (
        `id` INT(10) NOT NULL AUTO_INCREMENT PRIMARY KEY , 
        `bodyData` TEXT NOT NULL, 
        `bodyDataOutput` TEXT NOT NULL 
        ) ENGINE = MYISAM CHARACTER SET utf8 COLLATE utf8_general_ci;')= '0E0' at cgitest.pl line 362 
    <- do('CREATE TABLE IF NOT EXISTS `6959bbd13fdb4df586a5b9d08aae1153_header` (
        `id` INT(10) NOT NULL AUTO_INCREMENT PRIMARY KEY , 
        `headData` TEXT NOT NULL, 
        `headDataOutput` TEXT NOT NULL 
        ) ENGINE = MYISAM CHARACTER SET utf8 COLLATE utf8_general_ci;')= '0E0' at cgitest.pl line 363 
    !! ERROR: 1064 'You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ''6959bbd13fdb4df586a5b9d08aae1153_header' (headData, headDataOutput) VALUES (' at line 1' (err#0) 
    <- execute('6959bbd13fdb4df586a5b9d08aae1153_header', '<?php session_start(); ?> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 
<meta name="description" content="The Mobile Makeover offers a wide range of services and treatments all from the luxuary of your own home!" /> 
<meta name="keywords" content="Mobile Makeover, Beauty Therapist, Beautician, Therapist, Mobile Therapist, Mansfield, Nottinghamshire" /> 
<meta name="language" content="en" /> 
<meta name="author" content="ACT Web Designs" /> 
<meta name="copyright" content="The Mobile Makeover" /> 
<meta name="publisher" content="ACT Web Designs" /> 
<meta name="country" content="United Kingdom" /> 
<meta name="city" content="Mansfield, Nottinghamshire" /> 
<meta http-equiv="X-UA-Compatible" content="IE=8" /> 
<meta name="verify-v1" content="4lZIaMmjLMq+UA8nkPYB9RjF5RreNwF3Mzurm9JYvQM=" /> 
<title>The Mobile M...', ...)= undef at cgitest.pl line 365 
    !! ERROR: 1064 CLEARED by call to execute method 
    !! ERROR: 1064 'You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ''6959bbd13fdb4df586a5b9d08aae1153_body' (bodyData, bodyDataOutput) VALUES ('<' at line 1' (err#0) 
    <- execute('6959bbd13fdb4df586a5b9d08aae1153_body', '<body> 
    <div id="wrapper"> 
     <div id="header"> 
      <div id="innerHeader"> 
       <h1><span>The Mobile Makeover - Mobile Beauty Therapist - Mansfield Nottinghamshire</span></h1> 
       <div class="clear"></div> 
       <?php include("php/navigation.php"); ?> 
       <div class="clear"></div> 
      </div> 
     </div> 
     <div id="main"> 
      <div id="content1" class="content vis"> 
       <h2>Welcome to The Mobile Makeover</h2> 
       <div class="image1"> 
       </div> 
       <p>Home visit appointments are designed to save you time and stress, by providing a service in the comfort of your own home, no need to worry about travel and traffic or facing the cold night air after a relaxing treatment.</p> 
       <p>If you have a baby or a toddler The Mobile Makeover can help you put together a package of <a href="beauty-treatments.php" title="link to treatments page">treatments</a> that is ada...', ...)= undef at cgitest.pl line 366 
    !! ERROR: 1064 CLEARED by call to execute method 
    <- execute("public_html/index.php", "http://www.themobilemakeover.co.uk/index.php", ...)= 1 at cgitest.pl line 367 
    <- DESTROY(DBI::st=HASH(3d56f5c))= undef at cgitest.pl line 270 
    <- quote("http://www.themobilemakeover.co.uk/about-us-the-mobile-makeover.php")= "'http://www.themobilemakeover.co.uk/about-us-the-mobile-makeover.php'" at cgitest.pl line 271 
    <- prepare("SELECT * FROM page_names WHERE linkTrue = 'http://www.themobilemakeover.co.uk/about-us-the-mobile-makeover.php' ")= DBI::st=HASH(0x3d56d9c) at cgitest.pl line 272 
    <- execute= '0E0' at cgitest.pl line 273 
    <- rows= '0' at cgitest.pl line 274 
    <- quote("The Mobile Makeover - About Us")= "'The Mobile Makeover - About Us'" at cgitest.pl line 289 
    <- prepare("SELECT * FROM page_names WHERE page_name = 'The Mobile Makeover - About Us' ")= DBI::st=HASH(0x3b07814) at cgitest.pl line 290 
    <- execute= '0E0' at cgitest.pl line 291 
    <- rows= '0' at cgitest.pl line 292 
    <- DESTROY(DBI::st=HASH(3d54254))= undef at cgitest.pl line 287 
    <- do('CREATE TABLE IF NOT EXISTS `30df18a64311aa9aaaa9576b030f0f83_body` (
        `id` INT(10) NOT NULL AUTO_INCREMENT PRIMARY KEY , 
        `bodyData` TEXT NOT NULL, 
        `bodyDataOutput` TEXT NOT NULL 
        ) ENGINE = MYISAM CHARACTER SET utf8 COLLATE utf8_general_ci;')= '0E0' at cgitest.pl line 362 
    <- do('CREATE TABLE IF NOT EXISTS `30df18a64311aa9aaaa9576b030f0f83_header` (
        `id` INT(10) NOT NULL AUTO_INCREMENT PRIMARY KEY , 
        `headData` TEXT NOT NULL, 
        `headDataOutput` TEXT NOT NULL 
        ) ENGINE = MYISAM CHARACTER SET utf8 COLLATE utf8_general_ci;')= '0E0' at cgitest.pl line 363 
    !! ERROR: 1064 'You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ''30df18a64311aa9aaaa9576b030f0f83_header' (headData, headDataOutput) VALUES (' at line 1' (err#0) 
    <- execute('30df18a64311aa9aaaa9576b030f0f83_header', '<?php session_start(); ?> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 
<meta name="description" content=">My name is Kelly Knight, I am a highly Qualifed Mobile Beauty Therapist. I have trained in NVQ Level 2 and NVQ level 3 in Beauty Therapy with many additional courses and training..." /> 
<meta name="keywords" content="Mobile Makeover, About Us, Beauty Therapist, Mobile Therapist, Mansfield, Nottinghamshire" /> 
<meta name="language" content="en" /> 
<meta name="author" content="ACT Web Designs" /> 
<meta name="copyright" content="The Mobile Makeover" /> 
<meta name="publisher" content="ACT Web Designs" /> 
<meta name="country" content="United Kingdom" /> 
<meta name="city" content="Mansfield, Nottinghamshire" /> 
<meta http-equiv="X-UA-Compatible" content="IE=8" /> 
<title>The Mobile Makeover - About U...', ...)= undef at cgitest.pl line 365 
    !! ERROR: 1064 CLEARED by call to execute method 
    !! ERROR: 1064 'You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ''30df18a64311aa9aaaa9576b030f0f83_body' (bodyData, bodyDataOutput) VALUES ('<' at line 1' (err#0) 
    <- execute('30df18a64311aa9aaaa9576b030f0f83_body', '<body id="aboutUsPage"> 
    <div id="wrapper"> 
     <div id="header"> 
      <div id="innerHeader"> 
       <h1><span>The Mobile Makeover - About Us</span></h1> 
       <div class="clear"></div> 
       <?php include("php/navigation.php"); ?> 
       <div class="clear"></div> 
      </div> 
     </div> 
     <div id="main"> 
      <div id="content1" class="content vis"> 
       <h2>About Us - Kelly Night</h2> 
       <div class="image1"> 
       </div> 
       <p>My name is Kelly Knight, I am a highly Qualified Mobile Beauty Therapist. I have trained in NVQ Level 2 and NVQ level 3 in Beauty Therapy with many additional courses and training gained within my time in the beauty industry. I have gained my years of experience from working at one of the UK's biggest Hotels &amp; Spa chains where i worked as a salon supervisor. After being approached by a number of people to go mobile to their homes i recognised that the...', ...)= undef at cgitest.pl line 366 
    !! ERROR: 1064 CLEARED by call to execute method 
    <- execute("public_html/about-us-the-mobile-makeover.php", "http://www.themobilemakeover.co.uk/about-us-the-mobile-makeover.php", ...)= 1 at cgitest.pl line 367 
    <- DESTROY(DBI::st=HASH(3d56f1c))= undef at cgitest.pl line 270 
    <- quote("http://www.themobilemakeover.co.uk/beauty-products-used.php")= "'http://www.themobilemakeover.co.uk/beauty-products-used.php'" at cgitest.pl line 271 
    <- prepare("SELECT * FROM page_names WHERE linkTrue = 'http://www.themobilemakeover.co.uk/beauty-products-used.php' ")= DBI::st=HASH(0x3d56f3c) at cgitest.pl line 272 
    <- execute= '0E0' at cgitest.pl line 273 
    <- rows= '0' at cgitest.pl line 274 
    <- quote("The Mobile Makeover - Beauty Products Used")= "'The Mobile Makeover - Beauty Products Used'" at cgitest.pl line 289 
    <- prepare("SELECT * FROM page_names WHERE page_name = 'The Mobile Makeover - Beauty Products Used' ")= DBI::st=HASH(0x3d545a4) at cgitest.pl line 290 
    <- execute= '0E0' at cgitest.pl line 291 
    <- rows= '0' at cgitest.pl line 292 
    <- DESTROY(DBI::st=HASH(3d54684))= undef at cgitest.pl line 287 
    <- do('CREATE TABLE IF NOT EXISTS `02b5f135f611c1d7b0ec090182bc6cf5_body` (
        `id` INT(10) NOT NULL AUTO_INCREMENT PRIMARY KEY , 
        `bodyData` TEXT NOT NULL, 
        `bodyDataOutput` TEXT NOT NULL 
        ) ENGINE = MYISAM CHARACTER SET utf8 COLLATE utf8_general_ci;')= '0E0' at cgitest.pl line 362 
    <- do('CREATE TABLE IF NOT EXISTS `02b5f135f611c1d7b0ec090182bc6cf5_header` (
        `id` INT(10) NOT NULL AUTO_INCREMENT PRIMARY KEY , 
        `headData` TEXT NOT NULL, 
        `headDataOutput` TEXT NOT NULL 
        ) ENGINE = MYISAM CHARACTER SET utf8 COLLATE utf8_general_ci;')= '0E0' at cgitest.pl line 363 
    !! ERROR: 1064 'You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ''02b5f135f611c1d7b0ec090182bc6cf5_header' (headData, headDataOutput) VALUES (' at line 1' (err#0) 
    <- execute('02b5f135f611c1d7b0ec090182bc6cf5_header', '<?php session_start(); ?> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 
<meta name="description" content="We use a wide range of the finest products on the market today. Below is a short brief of just a few of the names which we believe give you the best results - we do not compromise when it comes to quality." /> 
<meta name="keywords" content="Mobile Makeover, Beauty Therapist, Beauty Products, Jessica, Calgel, Eve Taylor, Tantrick, Therapist, Mansfield, Nottinghamshire" /> 
<meta name="language" content="en" /> 
<meta name="author" content="ACT Web Designs" /> 
<meta name="copyright" content="The Mobile Makeover" /> 
<meta name="publisher" content="ACT Web Designs" /> 
<meta name="country" content="United Kingdom" /> 
<meta name="city" content="Mansfield, Nottinghamshire" /> 
<meta http-equiv="X-UA-Compa...', ...)= undef at cgitest.pl line 365 
    !! ERROR: 1064 CLEARED by call to execute method 
    !! ERROR: 1064 'You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ''02b5f135f611c1d7b0ec090182bc6cf5_body' (bodyData, bodyDataOutput) VALUES ('<' at line 1' (err#0) 
    <- execute('02b5f135f611c1d7b0ec090182bc6cf5_body', '<body id="aboutUsPage"> 
    <div id="wrapper"> 
     <div id="header"> 
      <div id="innerHeader"> 
       <h1><span>The Mobile Makeover - Beauty Products</span></h1> 
       <div class="clear"></div> 
       <?php include("php/navigation.php"); ?> 
       <div class="clear"></div> 
      </div> 
     </div> 
     <div id="main"> 
      <div id="content1" class="content vis"> 
       <h2>Beauty products that we use</h2> 
       <div class="image1"> 
       </div> 
       <p>We use a wide range of the finest products on the market today. Below is a short brief of just a few of the names which we believe give you the best results - we do not compromise when it comes to quality.<br /> - <em>Kelly Knight</em></p> 
      </div> 
      <div class="content vis norm"> 
       <h2>Jessica</h2> 
       <div class="image3"> 
       </div> 
       <p>The Jessica &copy; nail products are de...', ...)= undef at cgitest.pl line 366 
    !! ERROR: 1064 CLEARED by call to execute method 
    <- execute("public_html/beauty-products-used.php", "http://www.themobilemakeover.co.uk/beauty-products-used.php", ...)= 1 at cgitest.pl line 367 
    <- DESTROY(DBI::st=HASH(3d6982c))= undef at cgitest.pl line 270 
    <- quote("http://www.themobilemakeover.co.uk/beauty-treatments.php")= "'http://www.themobilemakeover.co.uk/beauty-treatments.php'" at cgitest.pl line 271 
    <- prepare("SELECT * FROM page_names WHERE linkTrue = 'http://www.themobilemakeover.co.uk/beauty-treatments.php' ")= DBI::st=HASH(0x3d56edc) at cgitest.pl line 272 
    <- execute= '0E0' at cgitest.pl line 273 
    <- rows= '0' at cgitest.pl line 274 
    <- quote("The Mobile Makeover - Beauty Treatments")= "'The Mobile Makeover - Beauty Treatments'" at cgitest.pl line 289 
    <- prepare("SELECT * FROM page_names WHERE page_name = 'The Mobile Makeover - Beauty Treatments' ")= DBI::st=HASH(0x3d6b48c) at cgitest.pl line 290 
    <- execute= '0E0' at cgitest.pl line 291 
    <- rows= '0' at cgitest.pl line 292 
    <- DESTROY(DBI::st=HASH(3d6c674))= undef at cgitest.pl line 287 
    <- do('CREATE TABLE IF NOT EXISTS `22e64cef7d70fa952ce7444f158e2c4e_body` (
        `id` INT(10) NOT NULL AUTO_INCREMENT PRIMARY KEY , 
        `bodyData` TEXT NOT NULL, 

>>> EDIT < < < < < <

Я попытался отправить полный код, но не допустит:

. 
.. 
... 

     my $headDataUpload = $dbh->prepare("INSERT INTO ? (headData, headDataOutput) VALUES (?, ?)") or die " error: Couldn't prepare : " . DBI->errstr; 
     my $bodyDataUpload = $dbh->prepare("INSERT INTO ? (bodyData, bodyDataOutput) VALUES (?, ?)") or die " error: Couldn't prepare : " . DBI->errstr; 
     my $insertData = $dbh->prepare("INSERT INTO page_names (linkFromRoot, linkTrue, page_name, table_name, navigation, location) VALUES (?, ?, ?, ?, ?, ?)") or die " error: Couldn't connect to database: " . DBI->errstr; 


     foreach(@mainPagesArray) { 
      my $webpage = &extention(trim($_)); 
      if(trim($webpage) ne trim($domain)){ 
       my $webpageQuote = $dbh->quote("http://www." . $webpage); 
       my $sth = $dbh->prepare("SELECT * FROM page_names WHERE linkTrue = $webpageQuote ") or die "Could not select from table" . $DBI::errstr; 
       $sth->execute(); 
       if($sth->rows == 0) { 
        #output display pages found 
        print "<span class=\"green\">http://www." . $webpage . "</span><br />\n"; 
        my $md5Con = "http://www." . $webpage; 
        my $linkTrue = "http://www." . $webpage; 
        $webpage =~ s/^$domain//g; 
        my $linkFromRoot = $root . $webpage; 

        my $getTitleContents = get($md5Con); 
        my $stringPageName; 
        if($getTitleContents =~ m/<title>([^<]*)<\/title>/g) { 
         my @titles = ($1); 
         my $counter = 2; 
         while(@titles){ 
          my $currentTitle = shift @titles; 
          my $titleQuoted = $dbh->quote($currentTitle); 
          my $sth = $dbh->prepare("SELECT * FROM page_names WHERE page_name = $titleQuoted ") or die "Could not select from table" . $DBI::errstr; 
          $sth->execute(); 
          if($sth->rows == 0) { 
           $stringPageName = $currentTitle; 
           last; 
          }else{ 
           my $newTitle = $currentTitle . "(" . $counter . ")"; 
           push(@titles, $newTitle); 
           $counter ++; 
          } 
         } 
        }else{ 
         my @titles = ('Untitled'); 
         my $counter = 2; 
         while(@titles){ 
          my $currentTitle = shift @titles; 
          my $titleQuoted = $dbh->quote($currentTitle); 
          my $sth = $dbh->prepare("SELECT * FROM page_names WHERE page_name = $titleQuoted ") or die "Could not select from table" . $DBI::errstr; 
          $sth->execute(); 
          if($sth->rows == 0) { 
           $stringPageName = $currentTitle; 
           last; 
          }else{ 
           my $newTitle = $currentTitle . "(" . $counter . ")"; 
           push(@titles, $newTitle); 
           $counter ++; 
          } 
         }       
        } 

        my $page_name = $stringPageName; 
        my $table_name = md5_hex($md5Con); 
        my $navigation = "1"; 
        my $location = "1"; 

        my $bodyTable = md5_hex($md5Con) . "_body"; 
        my $headerTable = md5_hex($md5Con) . "_header"; 

        my $createBodyTable = "CREATE TABLE IF NOT EXISTS `$bodyTable` (
        `id` INT(10) NOT NULL AUTO_INCREMENT PRIMARY KEY , 
        `bodyData` TEXT NOT NULL, 
        `bodyDataOutput` TEXT NOT NULL 
        ) ENGINE = MYISAM CHARACTER SET utf8 COLLATE utf8_general_ci;"; 

        my $createHeadTable = "CREATE TABLE IF NOT EXISTS `$headerTable` (
        `id` INT(10) NOT NULL AUTO_INCREMENT PRIMARY KEY , 
        `headData` TEXT NOT NULL, 
        `headDataOutput` TEXT NOT NULL 
        ) ENGINE = MYISAM CHARACTER SET utf8 COLLATE utf8_general_ci;"; 

        my $fileContents; 
        if($md5Con =~ m/\.php$/g) { 
         my $ftp = Net::FTP->new($DB_ftpserver, Debug => 0) or die "Cannot connect to some.host.name: [email protected]"; 
         $ftp->login($DB_ftpuser, $DB_ftppass) or die "Cannot login ", $ftp->message; 
         $ftp->get("/" . $root . $webpage, "c:/perlscripts/" . md5_hex($md5Con) . "-code.php") or die $ftp->message; 
         my $file = "c:/perlscripts/" . md5_hex($md5Con) . "-code.php"; 
         { 
          local($/); # undefine the record seperator 
          open FILE, "<", $file or die "Cannot open:$!\n"; 
          my $fileContents = <FILE>; 
          my $bodyContents; 
          my $headContents; 

          my @contentsArray = split(/<\/head>/is, $fileContents, 2); 

          #print $contentsArray[1]; 
          if(scalar @contentsArray == 2){ 
           $bodyContents = trim($contentsArray[1]); 
           $headContents = trim($contentsArray[0]) . "</head>"; 

           #print $headContents . "\n"; 

           $dbh->do($createBodyTable) or die " error: Couldn't create body table: " . DBI->errstr; 
           $dbh->do($createHeadTable) or die " error: Couldn't create header table: " . DBI->errstr; 

           $headDataUpload->execute($headerTable, $headContents, $headContents); 
           $bodyDataUpload->execute($bodyTable, $bodyContents, $bodyContents); 
           $insertData->execute($linkFromRoot, $linkTrue, $page_name, $table_name, $navigation, $location); 

           #unlink("c:/perlscripts/" . md5_hex($md5Con) . "-code.php"); 

          }else{ 
           print "<span class=\"red\">" . $md5Con . " cannot be used by our CMS, invalid data.</span><br />\n"; 
          } 
         } 
         $ftp->quit; 
        }elsif($md5Con =~ m/(?:(?:\.asp)|(?:\.aspx))$/g){ 

        }      
       } 
      } 
     } 
     }else{ 
     print "<span class=\"red\"> error: No pages where found. This CMS is designed for pre-existing sites. Please contact support for more information.</span><br />\n"; 
     } 

... 
.. 
. 
+3

Название языка Perl. Не 'perl' (это имя двоичного файла) и, конечно, не PERL. Пожалуйста, имейте это в виду. –

+5

В любом случае, ваша фундаментальная проблема связана с тем, что вы создаете таблицу (или, возможно, две) для каждой страницы. Если это правильно, битва была потеряна в тот момент, когда вы приняли это решение. Остальное - просто детали. Большая, еще более фундаментальная проблема заключается в том, что вы, кажется, используете метод программирования «Я все брошу все, что у меня есть, и посмотрим, какие палки», который, по меньшей мере, редко работает хорошо. –

+0

Я не уверен, был ли это ответ или нет. Вы, кажется, заявили, что имеете некоторые знания и знаете, о чем говорите. Я, с другой стороны, изучаю «Perl» в течение 2-3 недель и не делаю этого, поэтому я прошу о помощи. –

ответ

1

Было бы полезно, чтобы понять, ваш запрос и возникшая ошибка, отделенные от всей информации трассировки.

Похоже, вы пытаетесь использовать заполнитель для имени таблицы, то, что mysql не поддерживает.

Смежные вопросы