> I've created a subrutine to acces DB, but while sending the Query it get an
> error.
>
> My function looks like:
>
> sub DbSqlQuery
>    {
>    local $str_query = @_ if @_;

(Why are you using local? 'local' is deprecated in favor of 'my'.)

$str_query is a scalar, @_ is an array. Putting a scalar on the left of an
assignment forces the assignment to be scalar context--and in scalar context
the array returns the number of elements (1 in this case).
Try something more like:
my $str_query = $_[0];
-- or --
my $str_query = shift @_; # grabs first element of @_ array


>    print $str_query;
>    <... blah, blah ..>
>    }
>
> And my program call it like:
>
> <... blah, blah ..>
> $str_Query = "SELECT admin_ID, admin_name FROM admins WHERE (admin_login =
> '$str_Login');
> print "Content-type: text/plain\n\n TEST: $str_Query :: \n";
> &DbSqlQuery($str_Query);
> <... blah, blah ..>
>
>
> When I run, I get the following output:
>
> SELECT admin_ID, admin_name FROM admins WHERE (admin_login = 'my value') :: 1
>   ERROR: 1
>       1064 (You have an error in your SQL syntax near '1 ' at line 1)
>
>
>
>
> Where it comes the '1'?
>
> I must use pointers or similar?
>
>
>
> --
>
>
> saludos,
>
>
>       J. Alejandro Ceballos Z.   |
>       ---------------------------+---------------------------
>   http://alejandro.ceballos.info |
>    [EMAIL PROTECTED] |  "Las batallas contra las mujeres
>   -------------------------------+  son las únicas que se ganan huyendo".
>                                  |
>                                  |          -- Napoleon Bonaparte.
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>

--------------------------------------------------------------
"I'll say this about Linux: it's the first time I've seen Unix
on the right platform."--Steve Ballmer, president of Microsoft
(NB: Microsoft used to own SCO, which did, and still does,
produce a Unix for the Intel platform.)
--------------------------------------------------------------

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to