Имеющиеся базы

Пример

use Msql;

my $db = Msql->connect;

my @databases = $db->listdbs;

print " Имеющиеся базы данных:\n\n" . join("\n",@databases);



Содержание раздела

---

---

Главная сайта

---