Perl無法連接數據庫

Question

我是Perl編程的新手。 我嘗試了基本的perl數據庫連接，並得到以下錯誤。 請任何人幫助如何解決此問題。

"use" not allowed in expression at ./database.pl line 4, at end of line
syntax error at ./database.pl line 4, near "use DBI
use strict"
Execution of ./database.pl aborted due to compilation errors.

database.pl文件

#!/usr/bin/perl

use DBI
use strict;

my $driver = "mysql";
my $database = "pj_order";
my $dsn = "DBI:$driver:database=$database;host=localhost";
my $userid = "root";
my $password = "root";

my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;

最后，我已經運行了database.pl文件，並得到以下錯誤。

"use" not allowed in expression at ./database.pl line 4, at end of line
syntax error at ./database.pl line 4, near "use DBI
use strict"
Execution of ./database.pl aborted due to compilation errors.

Answer 1

use DBI

應該

use DBI;

---

最好放在之后

use strict;

你還應該有

use warnings qw( all );