misc scripts & programs
katproto.girlonthemoon.xyz
1#!/usr/bin/perl
2#
3# newline-separated list of values from a mySQL database. used this with dreamwidth code
4
5use DBI;
6
7my $Client = HTTP::Tiny->new();
8
9my $db = "x";
10my $host = "x";
11my $port = "3306";
12
13my $dsn = "DBI:mysql:database=$db;host=$host;port=$port";
14
15my $username = "x";
16my $password = "x";
17
18my %attr = ( PrintError=>0, # turn off error reporting via warn()
19 RaiseError=>1 # report error via die()
20 );
21$dbh = DBI->connect($dsn, $username, $password, \%attr)
22 || die "ERROR: $DBI::errstr";
23
24$query = "SELECT user FROM user;";
25$sth = $dbh->prepare($query);
26$sth->execute();
27$data = $sth->fetchall_arrayref();
28$sth->finish;
29
30foreach $data ( @$data) {
31 ($name) = @$data;
32 print "$name\n";
33}
34
35$dbh->disconnect();