Язык программирования Perl

use DBI; # используем DBI my $path = '.'; # каталог с таблицами БД my $table = 'mollusc'; # DBF-файл # подключаемся к БД, используя драйвер DBD::XBase my $dbh = DBI->connect("dbi:XBase:$path") or die $DBI::errstr; # подготовим SQL-команду для многократного выполнения my $sth = $dbh->prepare("INSERT INTO $table (id, name, latin, area) VALUES (?, ?, ?, ?)") or die $dbh->errstr(); # в цикле читаем строки для загрузки в БД open my $text, '<', 'mollusc.txt' or die; # файл, откуда while (my $data = <$text>) { # читаем данные, chomp($data); # удаляя \n # и разбивая строку на поля по разделителю ';': my ($id, $name, $latin, $area) = split(';', $data); # добавляем запись, подставляя значения в команду $sth->execute($id, $name, $latin, $area) or die; } close $text; # закрываем тестовый файл $dbh->disconnect; # отсоединяемся от БД

Далее можно выполнять различные действия с данными в таблице, используя команды SQL, как это сделано в программе, где изменяются значения перечисленных колонок в записи с указанным идентификатором и удаляется запись по уникальному номеру:

use DBI; # использовать DBI my $path = '.'; # каталог, где расположены таблицы БД my $table = 'mollusc'; # DBF-файл # соединиться с БД, используя драйвер DBD::XBase my $dbh = DBI->connect("dbi:XBase:$path") or die $DBI::errstr; # изменить запись с указанным идентификатором, # заменяя значения перечисленных полей на новые $dbh->do("UPDATE $table SET name=?,area=? WHERE id=?", undef, 'Жемчужная пинктада', 'Австралия', 89147) or die; # удалить запись с идентификатором 93749 $dbh->do("DELETE FROM $table WHERE id=93749") or die; $dbh->disconnect; # отсоединиться от БД

Для выборки данных из таблицы используется SQL-команда SELECT, в которой можно указывать, данные из каких колонок записи нужно включить в выборку, а также по какому условию отбирать строки таблицы: