######################################################################## use v6; use Mysql;

say 'mysql client version: ', Mysql::get_client_info();

my $mysql = Mysql::new();

# host, user, password, database $mysql.connect('localhost', 'parrot', 'baDworD', 'parrot');

$mysql.query('select * from hello;');

my $r = $mysql.use_result();

my @table_copy;

my $row = $r.fetch_row(); my $elems = $row.elems(); while (defined $row) { my @row_copy; my $i = 0; while ($i < $elems) { print "'", $row[$i], "'"; @row_copy.push($row[$i]); ++$i; if ($i < $elems) { print ", "; } } say ''; $row := $r.fetch_row(); @table_copy.push(\@row_copy); }

say "-------Stored copy------";

$r.free();

for @table_copy -> $rc { my $elems = $rc.elems(); my $i = 0; while ($i < $elems) { print "'", $rc[$i], "'"; ++$i; if ($i < $elems) { print ", "; } } say ''; }

#End