Парсер Xml

[lamerz]

уже даже пробовал

#Открываем xml
open (IN,"
while ()
{

#....тут парсим регами

#далее insert в базу, все нормално влитает без иероглифов

}

[NeoNox]

Хех, странно..
вот эту строку убери
my $text = decodeFromUTF8(\'windows-1251\',$node->textContent);
нет там УТФ.
Выведи перед инсертом на принт данные, какие они?
А кракозяблы похожи на win1251->koi-8->iso
Есть идея хранить в базе в юникоде, подумай об этом.
В XML::LibXML есть функция encodeToUTF8.

[lamerz]

если убрать то вот что имею,

увлажнители воздуха

Наверно буду в итоге юзать самописный велосипед с регами.

От чего ушел к тому и пришел:)

[NeoNox]

Ага, это чистый юникод... Значит XML::LibXML в него преобразует. Интересно. Не делай руками, это не правильно.
Далее decodeFromUTF8 не используем тоже:

This Function transforms an UTF-8 encoded string the specified encoding. While transforms to ISO encodings may cause errors if the given stirng contains unsupported characters, both functions can transform to UTF-16 encodings as well.

Пробуй
use cyrillic qw/utf2win detect/;
utf2win($text);

[vladsu]

На сколько мне помнится весе модули работы с XML после открытия файла конвертят в UTF.

[lamerz]

Пустые строки вместо text

[NeoNox]

Код покажи.

[NeoNox]

Вариант с Encode

use Encode;
Encode::from_to($text, "utf8", "cp1251");

[lamerz]

use locale;
use POSIX qw(locale_h);
setlocale(LC_ALL, "ru_RU.CP1251");

use LWP::Simple;
use XML::LibXML;
use Text::Iconv;
use cyrillic qw/utf2win detect/;


use DBI;
require \'includes/submix.pl\';

my $dbh = DBconnect();

$dbh->do("delete from category");

#my $converter = Text::Iconv->new("utf-8", "windows-1251");

print "Content-type: text/html\\n\\n";

#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 $text =utf2win($node->textContent());

 my @attrs=$node->attributes();
 my (%attr,%TAGS)=();
 foreach (@attrs)
 {
  $attr{$_->getName()}=$_->getValue();
 };


## Формируем запрос
$dbh->do("INSERT INTO category VALUES (".$attr{id}.",\'".$attr{parentId}."\',\'".$text."\')");

#Вывод в Бр...
print "$attr{id}|$attr{parentId}|$text\\n
";
}

[NeoNox]

Вариант с Convert::Cyrillic

use Convert::Cyrillic;

$text = Convert::Cyrillic::cstocs(\'UTF8\', \'WIN\', $text)

[lamerz]

Спасибо Вам огромное что помогали, буду завтра пробовать на другой машине чтоб узнать вдруг эти глюки только у меня.

[lamerz]

Все четно, на другой машине и на другом хостинге тоже самое, я здаюсь LibXml меня победил:)