tukusejssirs has asked for the wisdom of the Perl Monks concerning the following question:
I try to run the following code
It warns me: Use of uninitialized value $cols_type in concatenation (.) or string at ./test6.pl line 142. How can I prevent this error?use warnings; use strict; use autodie; my $databas = "db"; my $password = "pass"; my $user = "postgres"; $dsn = "DBI:Pg:dbname = $database"; $dbh = DBI->connect($dsn, $user, $password, { RaiseError => 1 }) or di +e "ERROR: The database could not be opened."; create_table($dbh, $schema, $table, "col1 char(20)"); sub create_table { # my ($dbh, $schema, $table, $cols_type) = @_; my $dbh = $_[0]; my $schema = "$_[1]"; my $table = "$_[2]"; my $cols_type = "$_[3]"; $dbh->do("create table $schema.$table ($cols_type);"); # Hear it +happens; line 142 return; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Uninitialized value and a dot between $schema and $table
by stevieb (Canon) on Aug 08, 2019 at 21:13 UTC | |
by tukusejssirs (Beadle) on Sep 18, 2019 at 18:46 UTC | |
Re: Uninitialized value and a dot between $schema and $table
by holli (Abbot) on Aug 08, 2019 at 21:13 UTC | |
by tukusejssirs (Beadle) on Aug 08, 2019 at 21:40 UTC | |
by shmem (Chancellor) on Aug 08, 2019 at 22:14 UTC | |
Re: Uninitialized value and a dot between $schema and $table
by erix (Prior) on Aug 09, 2019 at 10:02 UTC |
Back to
Seekers of Perl Wisdom