написание парсера на xml 0

ну, не всё, но некоторое можно делать подобным вот образом…

пока что на работе — винда.. и аська — миранда. но у неё есть xml-вывод истории.

для преобразования оной в формат licq пользуюсь таким вот скриптиком:

#!/usr/bin/perl -w
use strict 'vars';
my %author = (`echo -n Кто-то там|iconv -tcp1251`=>'R', '&ME;'=>'S');
my $xml = join '',;
$xml =~ s~(.*?)</event>~event($1)~eigms;
sub event
{
    my $event = $_[0];
    $event =~ m~(.*?)</from>~i;
    my $from = $author{$1};
    $event =~ m~(.*?)</time>~i;
    my $time = $1;
    $event =~ m~(.*?)</date>~i;
    my $date = $1;
    $date = `date -d "$date $time" +%s`;
    $date =~ s~\n~~g;
    $event =~ m~(.*?)</message>~ims;
    my $message = join "\n:",split /\r?\n/, $1;
    print "[ $from | 0001 | 0220 | 0000 | $date ]\n:$message\n";
}

понятно, что это не всё, что тебе надо, и, может быть, вообще не подходит, но, как образец идеи — самое оно.

ps: а вообще, CPAN шерстил?

Genie
ps: а вообще, CPAN шерстил?

Неа, пошерстю, 10x :)

Велосипед изобретаешь? Ну-ну…

PS

libxml2

tinyxml

msxml4

ado.net

Велосипед изобретаешь? Ну-ну…

ааа.. ммм. а мне надо было «здесь» и «сейчас» ;)

а не «найди», «скачай» и «разберись».

впрочем, это мелочи :)

libxml2

tinyxml

msxml4

ado.net

и что из них чисто перловое? :)

Неа, пошерстю, 10x :)

«perl-а нет, есть CPAN»…

про перл в вопросе не слова.у Libxml2 есть перловый интерфейс

Если что-то несложное, можешь поробовать XML::Simple.

LONGOBARD
Поделитесь plz ссылочками на эту тему (доки, примеры написания итд). Заранее спасибо. Гуглем искал, ничего толкового не нашел.

Я для конфигов юзал libxml. На Си если хочешь могу выкинуть куски кода