Question

我写下了一个永久单元:

package sql;
use strict;
use XML::Simple;
use DBI;
use DBD::mysql;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(DBImport DataFill);
our @EXPORT = qw(DBImport DataFill);

our $dbh;

sub DBConnect() {
    my $platform = "mysql";
    my $database = "databasename";
    my $host = "localhost";
    my $user = "user";
    my $pw = "password";
    my $dsn = "dbi:mysql:$database:localhost";
    $dbh = DBI->connect($dsn, $user, $pw);
    $dbh->do( SET NAMES utf8 );
    return $dbh;
}

sub Query($) {
    my $sth = $dbh->prepare(shift);
    $sth->execute;
    while (my $ref = $sth->fetchrow_hashref()) {
        print $ref->{ email };
    }
    $sth->finish();
}

BEGIN{
    $dbh = &DBConnect();
}

END{
    $dbh->disconnect();
}
1;

并且一经尝试使用:

#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use sql;

&Query("SELECT * FROM users");

但它没有工作。

错误信息: 不详的路段: Query calls at /var/www/domains/gabordx.tauri.hu/www/main.pl line 7. ->“&Query(从用户中选取”);”

问题是什么?

感谢!

Answer 1

页: 1 学历:

our @EXPORT_OK = qw(Query DBImport DataFill);
our @EXPORT = qw(Query DBImport DataFill);

页: 1 一揽子计划,如此,

sql::Query("SELECT * FROM users");

Answer 2

您可以直接称呼该模块的名称,预定名称如下:

sql::Query("SELECT * FROM users");

或可从模块中进口

our @EXPORT_OK = qw(Query DBImport DataFill); # In the module

use sql qw(Query); # In caller code

或你可以不停地从 s头出口。

our @EXPORT = qw(Query DBImport DataFill);

http://perldoc.perl.org/Exporta。

Answer 3

一种方式是出口这一功能:

our @EXPORT = qw(DBImport DataFill Query);

http://perldoc.perl.org/Exporter.html>rel=“nofollow”>perldoc Exporter

友情链接