алгоритм конвертирования MySQL таблицы в Excel файл.
A: #!/usr/local/bin/perl
use DBI;
$table = "mssql_table";
$db = "msql_base";
$db_serv = "step.msql.server";
$user = "xakep";
$passwd = "parol";
$c = DBI->connect("DBI:mysql:$db:$db_serv", $user, $passwd);
$statement = "select count(*) from $table";
$cc = $c->prepare($statement);
$ccc = $cc->execute;
@row = $cc->fetchrow_array;
$n = $row[0];
$statement = "select * from $table";
$cc = $c->prepare($statement);
$ccc = $cc->execute;
open F, "$ARGV[0]";
for ($i=0; $i<$n; $i++) {
@row = $cc->fetchrow_array;
print F "$row[0];$row[1];$row[3]\n";
}
Принцип работы этого проверенного временем скрипта предельно прост – ты легко с ним разберешься. Для этого достаточно изучить документацию модуля DBI. Хотя я уверен, ты это уже сделал.
Для его запуска набери следующее:
./MySQL-Excel.pl output.xls, где output.xls – выходной Excel`евский файл.
Комментариев нет:
Отправить комментарий