Dear Experts.

I am utilising the Net::Telnet module in order to access a remote terminal to make an SQL query into a database.

As suggested within the documentation, I am utilising the cmd() command to interact with terminal. This command is recommended to read data into an array from the terminal (see code below). 

# 
# SQL Query to execute 
# 
$cmd = "select * from table A";
# 
# Wait for prompt - ">>" at terminal 
# 
$t->prompt('/\>\>\s*$/'); 
# 
# Send SQL Query to terminal 
# 
$t->cmd($cmd); 
# 
# Debug 
# 
print "cmd 1 = $cmd<p><p>" if $debug; 
# 
# Execute SQL command 
#
$cmd = "go"; 
# 
# Wait for prompt - "(1)>>" 
#
$t->prompt('/\(\1\)\>\>\s*$/'); 
# 
# Read in data from terminal to array 
#
@lines = $t->cmd($cmd); 
# 
# Debug 
# 
print "prompt_string = $prompt_string<p>" if $debug;
print "lines = $t->cmd($cmd)<p>" if $debug;
print "lines array = @lines<p>" if $debug;
print "cmd 2 = $cmd<p>" if $debug;

[download]
The debug generated is as follows: 
cmd 1 = select * from table A 
lines = Net::Telnet=<edited>->cmd(go) 
lines array = 
cmd 2 = go 
NoLines = 0

[download]
The code appears to compile correctly, however, when attempting to debug out the @lines array, I get a blank. I have also attempted to convert @lines to a scalar value to check how many lines it contains and this yields a 0.

It appears that for some reason, the @lines array has not been populated. Could anyone suggest a reason as to how to overcome this problem?

(I have manually queried the database with the SQL query which results in a 2 column/1 row table)

Thanks in advance...

update (broquaint): added formatting

In reply to CMD Command by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.