#!/usr/bin/perl
#
# newline-separated list of values from a mySQL database. used this with dreamwidth code

use DBI;

my $Client = HTTP::Tiny->new();

my $db = "x";
my $host = "x";
my $port = "3306";

my $dsn = "DBI:mysql:database=$db;host=$host;port=$port";

my $username = "x";
my $password = "x";

my %attr = ( PrintError=>0,  # turn off error reporting via warn()
             RaiseError=>1   # report error via die()
           );
$dbh = DBI->connect($dsn, $username, $password, \%attr)
			|| die "ERROR: $DBI::errstr";

$query = "SELECT user FROM user;";
$sth = $dbh->prepare($query);
$sth->execute();
$data = $sth->fetchall_arrayref();
$sth->finish;

foreach $data ( @$data) {
	($name) = @$data;
	print "$name\n";
}

$dbh->disconnect();