def form(re)
re.each do |r|
i,cols,vals = 0,'|','|'
r.column_names.each do |n|
cols << "%-20s|" % n
vals << "%-20s|" % r[n].to_s[0..19]
if ((i+=1) == 5)
puts cols
puts "+" + (("%s+" % (" "*20))*5)
puts vals
puts "+" + (("%s+" % ("="*20))*5)
i,cols,vals = 0,'|','|'
end
end
puts cols
puts "+" + (("%s+" % (" "*20))*5)
puts vals
puts "+" + (("%s+" % ("="*20))*5)
puts "+"*106
end
end
conn=DBI.connect('DBI:....', 'uname', 'pwd')
form(conn.execute('select * from table')
Tag Archive for DBI
formatted output of DBI result set
Perl DBI drivers
#!/usr/bin/env perl
use DBI;
#use strict;
foreach( @{ $DBI::EXPORT_TAGS{ sql_types } } )
{
printf "%s=%d
", $_, &{"DBI::$_"};
}