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

SHOW TABLES

Пример использования: команды SHOW TABLES

 SHOW TABLES с дополнительными параметрами:

• SHOW TABLES info
• SHOW TABLES comment
• SHOW TABLES columns
• SHOW TABLES numbers
• SHOW TABLES lastid

Примеры использования команды:

Пример 1

#!/usr/bin/perl -w
require "tinysql.pm";

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

$head=&tiny_sql(
'command' =>'SHOW TABLES',
'base_root' =>$config{'base_root'}
);

print "Список доступных таблиц:";
foreach (keys %{$head}) {
 print "$_";
}

При вызове команды SHOW TABLES без параметров - возвращается ссылка на хэш - $head, в котором ключи - названия доступных таблиц.

Пример 2

#!/usr/bin/perl -w
require "tinysql.pm";

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

$head=&tiny_sql(
 'command' =>'SHOW TABLES columns',
'base_root' =>$config{'base_root'},
'table_name' =>'index'
);

print "Поля таблицы index:";
foreach (keys %{$head}) {
 print "$_";
}

В этом примере также возвращается ссылка на хэш - $head, который содержит в качестве ключей - имена колонок таблицы.

Пример 3

#!/usr/bin/perl -w
require "tinysql.pm";

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

$head=&tiny_sql(
 'command' =>'SHOW TABLES numbers',
'base_root' =>$config{'base_root'},
'table_name' =>'index'
);

print "Колонки таблицы index:";
print $head;

В этом примере возвращается скаляр $head, который содержит количество строк в таблице.

Пример 4 

#!/usr/bin/perl -w
require "tinysql.pm";

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

$head=&tiny_sql(
 'command' =>'SHOW TABLES lastid',
'base_root' =>$config{'base_root'},
'table_name' =>'index'
);

print "Колонки таблицы index:";
foreach (keys %{$head}) {
 print "$_";
}

В этом примере возвращается скаляр $head, который содержит id, который будет присвоен при занесении следующей строки.

Пример 5 

#!/usr/bin/perl -w
require "tinysql.pm";

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

$head=&tiny_sql(
 'command' =>'SHOW TABLES comment',
'base_root' =>$config{'base_root'},
'table_name' =>'index'
);

print "Колонки таблицы index:";
foreach (keys %{$head}) {
 print "$_";
}

В этом примере возвращается скаляр $head, который содержит пользовательский комментарий к таблице.

Пример 6 

#!/usr/bin/perl -w
require "tinysql.pm";

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

$head=&tiny_sql(
 'command' =>'SHOW TABLES info',
 'base_root' =>$config{'base_root'}
);

print "Колонки таблицы index:";
foreach (keys %{$head}) {
 print "$_";
}

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

$$head{'comment'} - пользовательский комментарий к таблице

$$head{'lastid'} - id, который будет присвоен следующему элементу в таблице

$$head{'fields'} - поля, которые заведены в таблице

$$head{'numbers'} - текущее количество записей в таблице


Примечание

Команда SHOW TABLES не читает всю таблицу, а только заголовки, поэтому скорость работы команды не зависит от размера текстового файла.