use LWP::Simple;
use XML::LibXML;
use Text::Iconv;
use Mysql;
require \'connect.pl\';
my $dbh = DBconnect();
# Выполнение запроса
$dbh->do("$insert") || die(print"Mysql error: $DBI::errstr\\n");
my $converter = Text::Iconv->new("utf-8", "windows-1251");
#my $XMLTEXT=get(\'http://mixmarket.biz/mixmldirect.plx?id=4294967238\');
#if(!$XMLTEXT){warn ("Проблемы с $XMLURL");exit;}
my $parser = XML::LibXML->new();
my $doc=$parser->parse_file(\'xml/TEMP.xml\');
my $results = $doc->findnodes(\'//categories/category\');
foreach my $node ($results->get_nodelist)
{
#пробовал и так
my $text = decodeFromUTF8(\'windows-1251\',$node->textContent);
#и так тоже
#my $text = $converter->convert($node->textContent());
my @attrs=$node->attributes();
my (%attr,%TAGS)=();
foreach (@attrs)
{
$attr{$_->getName()}=$_->getValue();
};
## Формируем запрос
my $insert = "INSERT INTO category VALUES (".$attr{id}.",\'".$attr{parentId}."\',\'".$text."\')";
## Выполнение запроса
$dbh->do("$insert");
}
Проблема моя в том что после insert в базе вмеcто русских букв хрень типа иероглифов:(
но если сделать print в браузер все ok
в чем проблема?
--------------------------
и тишина:)
Може я вопрос задал тупо или что?
