Webmaster Forum / Perl / Getting Started / July 2008

#!/usr/bin/perl

use strict;
use DBI;

##Conect to database
my $dbh = DBI->connect('string','user','password') or die "Can't connect to
database";

#query
my $data = $dbh->selectall_arrayref("SELECT field1, field2 FROM table");

#open file for append >>,
#  > for write
#  >> for append
#  Doc about this http://www.tizag.com/perlT/perlfileopen.php
open(FILE,">>file.txt") or die "Can't open file: $!";

#read each line of query
foreach my $line(@$data){
 print FILE "$line->{field1}, $line->{field2}\n";
}

#close file
close (FILE)

#disconnect from database
$dbh->disconnect;

luke devon schreef:

Alternative:

   mysql db -e 'query' >> file