Mega Code Archive

 

Categories / Perl / Database

 

Listing Valid DSNs

#!/usr/bin/perl use strict; use DBI; my @drivers; @drivers = DBI->available_drivers; foreach my $driver (@drivers) {   print "$driver driver is available\n";   my @dsns = DBI->data_sources($driver);   foreach my $dsn (@dsns) {     print "\tDSN: $dsn\n";   } }