Help for this page

Select Code to Download


  1. or download this
    # 
# SQL Query to execute 
...
print "lines = $t->cmd($cmd)<p>" if $debug;
print "lines array = @lines<p>" if $debug;
print "cmd 2 = $cmd<p>" if $debug;
  2. or download this
    cmd 1 = select * from table A 
lines = Net::Telnet=<edited>->cmd(go) 
lines array = 
cmd 2 = go 
NoLines = 0