Re: [PERL] Arrays igen!

[Kaare Rasmussen <sslug@sslug>]

> Hvordan er syntaxen for at se hvor mange tabeller der er i en given db?

#!/usr/bin/perl
use DBI;
 
$dbname = "test";
$db = DBI->connect("dbi:Pg:dbname=$dbname") 
  or die("Unable to connect to $dbname");
 @tables = $db->tables;
 foreach $t (@tables) {
  print "$t\n";
 }                                                                            
  

-- 
Kaare Rasmussen            --Linux, spil,--        Tlf:        3816 2582
Kaki Data                tshirts, merchandize      Fax:        3816 2501
Howitzvej 75               Åben 14.00-18.00        Email: sslug@sslug
2000 Frederiksberg        Lørdag 11.00-17.00       Web:      www.suse.dk