Пропустить строку подключения с PHP на Perl-скрипт

Question

Я хочу использовать Perl-скрипт на веб-сервере для создания некоторых инструкций вставки на основе информации, поступающей из порта. У меня есть сайт на базе PHP, который говорит с db, я хочу узнать, как я могу подключиться к одному и тому же соединению PHP db через perl и записывать свои вставные инструкции во время функции perl script. (Извините, я новичок в perl, и я не создал этот скрипт perl.)

Answer 1

Подключение к MySQL с Perl довольно просто. Просто используйте те же детали, что и при использовании w/PHP, при условии, что оба сценария находятся на одном сервере (или ваша СУБД принимает внешние подключения).

use DBI; 
$dbh = DBI->connect("dbi:mysql:databasename:localhost", 'username', 'password'); 

Answer 2

Вы можете использовать одну и ту же базу данных с теми же учетными данными, но не с тем же соединением.

Если вы не знаете учетные данные, зайдите в свой php-скрипт и найдите команду mysql_connect или что-то более современное, чтобы создать соединение db. Боюсь, я не знаком с этим, поэтому я не могу вам помочь. Возьмите имя сервера, порт, имя базы данных и имя пользователя/пароль и используйте его с DBI в своей программе Perl.

use strict; 
use warnings; 
use DBI; 

my $dbh = DBI->connect('dbi:mysql:db:hostname', $username, $password); 

Теперь вы можете использовать эту ручку $dbh базы данных для вставки данных в вашей БД, например, например:

my $sth = $dbh->prepare('INSERT INTO my_table (foo, bar) VALUES (?, ?)'); 
$sth->execute('val1', 'val2'); 

# or more fancy, if you have an array ref with more array refs: 

foreach my $line (@$data) { 
    $sth->execute(@$line); 
}