Hi all
For some reason I keep geting this message.
Global symbol "$arguments" requires explicit package name at sql_handler.pm
line 37.
Global symbol "$arguments" requires explicit package name at sql_handler.pm
line 40.
Global symbol "$table" requires explicit package name at sql_handler.pm line 48.
Ig someone would so kind as to point out to me, where im going wrong and to
maybe share some tips,
I would be most grateful.
Kind Regards
Brent Clark
#--------------------------------- Code below --------------------
package sql_handler;
BEGIN {
use Exporter;
use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION = 0.1;
@ISA = qw(Exporter);
@EXPORT = qw(
&sql_insert
);
%EXPORT_TAGS = ();
@EXPORT_OK = qw();
}
use Carp 'croak';
use strict;
use warnings;
use DBI;
# Lets connect to the database
my $database = "world";
my $data_source = "DBI:mysql:database=$database;host=localhost";
my $username = "nicetry";
my $auth = "nicetryagain";
my $dbh = DBI->connect($data_source, $username, $auth, {'RaiseError' => 1} );
sub sql_insert {
my %arguments = @_;
# use Data::Dumper;
# print Dumper(\%arguments);
my @columns = keys %{ $arguments->{'fields'}};
my @vals = ();
foreach (@columns) {
my $val = $arguments->{$_};
$val =~ s/\'/\'\'/g;
$val =~ s/\n/\\n/g;
push @vals, "'".$val."'";
}
my @values = @_;
my $insert_query = "INSERT INTO $table (".join(',',@columns).")
VALUES(".join(',',@vals).")";
my $sth = $dbh->prepare($insert_query);
$sth->execute();
$sth->finish();
}
# Disconnect from the database.
$dbh->disconnect();
1;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
