I apologize if this is a repeat.
The following code works on Perl v5.8.8, but does not on v5.10.0.
#!/usr/bin/perl
use strict;
sub getListIdx {
my $listref = shift;
my $sval = shift;
for (my $i=0; $i<=$#{@{$listref}}; $i++) {
if ($sval eq...
If the Perl DBI/DBD module came installed on all systems, I'd use it. However, my scripts have to run on a wide variety of systems, many of which I don't control what is installed. I've found that if the system has mysql installed, I have access to the mysql command line interface. Parsing...
I think you are right - it isn't Perl that is doing the stripping:
From a shell prompt, I run the following:
$ mysql -u foo -D dbname -e 'Select * from ADDRESS'
+----+-------------+---------+--------------+--------------+
| ID | DISPLAYNAME | OPTLOCK | IPADDRESS | BASEASSET_ID |...
I am executing the mysql command from within Perl scripts (long story why not using Perl DBI module). What I am finding is that Perl is stripping out the "table border" characters that are normally output by the mysql command when doing a select from a table.
For example, I get this:
ID...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.