余り頻繁に使うモジュールでは無いのでメモっとく。 #/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use Perl6::Say; use SQL::Translator; my $dbh = DBI->connect("dbi:mysql:world", "root", ""); my $table = $dbh->selectrow_arrayref("show create table City;")->[1] . ";\n\n"; my $tr = SQL::Translator->new; $tr->parser("SQL::Translator::Parser::MySQL"); $tr->producer("SQL::Translator::Producer::YAML"); my $parse