my $dbh = connectpgdb(*,*,*,*,*);
... unmatched bracket error...
Just a total WAG, but if the quoted code was or was something like
the actual code and not
pseudo-code, remember that $, $) are Perl special
(package-global) variables (see perlvar), so there are
*, *) typeglobs of which they are subtypes (if that's the correct
terminology).
Win8 Strawberry 5.8.9.5 (32) Tue 01/26/2021 21:06:54
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings
my $dbh =
# connectpgdb(*,*,*,*,*) # syntax error
# connectpgdb(*,*,*,*,*)) # syntax error
# connectpgdb(*,*,) # syntax error
# connectpgdb(*) # syntax error
# connectpgdb(*,) # compiles and runs
connectpgdb(*)) # compiles and runs
;
while ($dbh) { print "foo \n"; $dbh = ''; }
sub connectpgdb { return $_[0]; }
^Z
foo
I can't duplicate the "unmatched bracket" error message you mention,
but running under Perl version 5.30.3 vice 5.8.9 yields more error messages
for my example code that are
associated with the failed definition (hence absence) of
$dbh, so maybe the "unmatched bracket" error is at the end of
a long string | cascade of messages that
begins with | stems from a syntax error.
(In the unlikely event you're running the actual code you posted. :)
Give a man a fish: <%-{-{-{-<
| [reply]
[d/l]
[select] |
