Install the package libdbi-perl.
Create the databases/tables/users/permissions as needed.
This is a sample script:
#!/usr/bin/env perl use DBI; # MySQL CONFIG VARIABLES $host = "localhost"; $database = "your_database"; $tablename = "test"; $user = "this_is_me"; $pw = "this_is_my_password"; #connect to database $connect = DBI->connect('DBI:mysql:database=' . $database . ';host=' . $host, $user, $pw); # select stuffs my $sel = $connect->prepare("select * from $tablename"); $sel->execute; while( @row = $sel->fetchrow_array) { foreach (@row) { print; print "\t"; } print "\n"; }This code prints every row, tab-separated from the selected table.
No comments:
Post a Comment