如何使用Perl将MySQL表的内容转储到文件？

Question

将MySQL表转储到Perl文件的最佳方法是什么？

我一直在用:

open( FILE, ">$filename" );
my $sth=$dbh->prepare("select * from table");
$sth->execute();
while ( my $row = $sth->fetchrow_arrayref ) {
    print FILE join( "|", @$row ), "\n";
}

Answer 1

你可以炮击mysqldump吗？这就是它的用途......