OpenForum RSS: XML, Perl

OpenForum RSS: XML, Perl https://opennet.dev/openforum/vsluhforumID9/9659.html Здраствуйте, скрипт должен брать данные из XML и записывать в mysql:<br>Код XML<br><br><?xml version="1.0"?><br><dataset><br><dataset><br> <mailbox><br> <username>bion</username><br> <name>ТОВ Бион</name><br> <active>0</active><br> </mailbox><br> <mailbox><br> <username>romeo</username><br> <name>Жених Джульеты</name><br> <active>1</active><br> </mailbox><br><mailbox><br> <username>kamaz</username><br> <name>Russian car</name><br> <active>1</active><br> </mailbox><br></dataset><br> <br>Таблица MYSQL:<br><br>username name active<br>bion Бион 1<br>kamaz Russian car 1<br>romeo Romeo 1<br><br><br>#!/usr/bin/perl -w<br> <br> use strict;<br> use DBI;<br> use XML::XPath;<br> <br>#Параметры подключения к базе<br> <br>my $db_host="";<br>my $db_name="";<br>my $db_user="";<br>my $db_pass="";<br> <br> <br>#Подключение к базе данных<br> <br>my $dbh = DBI->connect("dbi:mysql:$db_name:$db_host", "$db_user", "$db_pass") || die $DBI::errstr;<br> <br>#Говорим что мы будем использовать UTF-8, во избежания проблем с кодировками в DB.<br>$dbh->{'mysql_enable_utf8'} = 1;<br>$dbh->do('SET NAM XML, Perl (drake0103) https://opennet.dev/openforum/vsluhforumID9/9659.html#1 Fri, 29 Mar 2013 13:57:48 GMT <br>Все, пофиксил.<br>