Простое решение

ALTER TABLE RENAME

При использовании команды ALTER TABLE RENAME обязательно следите за тем, чтобы количество старых названий колонок соответствовало количеству новых названий колонок. В противном случае переименования не произойдет.

Например в таблице index есть колонки name и name1, и мы хотим переименовать их в Aname и Bname. Вот пример кода:

#!/usr/bin/perl -w

require "tinysql.pm";

%config=(
'base_root' =>'/home/localhost/public_html/basa/data'
);

$head=&tiny_sql(
'command' =>'ALTER TABLE RENAME col=name,name1 TO col=Aname,Bname',
'base_root' =>$config{'base_root'},
'table_name' =>'index'
);

В результате выполнения - указанные колонки будут переименованы, а переменная $head примет значение - 1. В то же время произойтет резервное копирование текущей таблицы в таблицу с расширением .old, в нашем примере появится резервная копия index.old которую можно использовать для восстановления информации.

Примечание: Если Вы использовали в программе команду ALTER TABLE RENAME несколько раз подряд для одной и той же таблицы, то сохранится только предпоследнее состояние таблицы.