Загрузить в базу данных с помощью Perl

Question

У меня есть сверкающий Perl-скрипт, который я использую для импорта данных непосредственно в базу данных в виде HTML-файла.Файл называется demo.htm.Скрипт работает без части соединения с базой данных, поскольку он удаляет то, что мне не нужно.Однако сейчас я пытаюсь прочитать в HTML-файл и ввод в базу данных, и эти адаптации не работают.БД, пользователь и пароль - все это «demo», и он использует базу данных SQL Server 2008 R2.

use warnings; 
use strict;  
use DBI;
use HTML::TreeBuilder;  

open (FILE, "demo") || die "couldn't open the file!";
open (F1, ">demo.htm") || die "couldn't open the file!";
open (F2, ">demo2.csv") || die "couldn't open the file!";

# database name, user and password
my $data_source = q/dbi:ODBC:demo/;
my $user = q/demo/;
my $password = q/demo/;

# Connect to the data source and get a handle for that connection.
my $dbh = DBI->connect($data_source, $user, $password)
or die "Can't connect to $data_source: $DBI::errstr";

print F1 "Name\|Lives In\|Commented\n";
print F2 "Name\|Lives In\|Commented\text\n";

my $tree = HTML::TreeBuilder->new_from_content(     do { local $/; <DATA> } ); 

for ( $tree->look_down( 'class' => 'postbody' ) ) 
{    
my $location = $_->look_down( 'class' => 'posthilit' )->as_trimmed_text;     

my $comment  = $_->look_down( 'class' => 'content' )->as_trimmed_text;     

my $name     = $_->look_down( '_tag'  => 'h3' )->as_text;     

$name =~ s/^Re:\s*//;     $name =~ s/\s*$location\s*$//;      

print "Name: $name\nLives in: $location\nCommented: $comment\n"; } 

# This query generates a result set with one record in it.
#my $sql = "SELECT 1 AS test_col";

my $sql = "insert into demo2 values \(Name, Lives In, Comeented, text)";

print $sql;
print "\n";

# Prepare the statement.
my $sth = $dbh->prepare($sql)
or die "Can't prepare statement: $DBI::errstr";

# Execute the statement.
$sth->execute();

}
print $b;
print " end\n";

# Disconnect the database from the database handle.
$dbh->disconnect;

Любая помощь в том, где я ошибся, будет принята с благодарностью.Пример HTML-кода -

<div class="postbody">         <h3><a href "foo">Re: John Smith <span class="posthilit">England</span></a></h3>         <div class="content">Is C# better than Visula Basic?</div>     </div> 

Answer 1

В вашем запросе SQL вы должны использовать данные, которые вы извлекли.

my $sql = "insert into demo2 values (?,?,?,?)";
...
$sth->execute($name,$location,$comment,'');