diff -r a3c7bd201da7 -r 9590972c2caf lib/scripts/yxml --- a/lib/scripts/yxml Sun Feb 28 21:19:58 2016 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,37 +0,0 @@ -#!/usr/bin/env perl -# -# Author: Makarius -# -# yxml.pl - simple XML to YXML converter -# - -use warnings; -use strict; - -use XML::Parser; - -binmode(STDOUT, ":utf8"); - -sub handle_start { - print chr(5), chr(6), $_[1]; - for (my $i = 2; $i <= $#_; $i++) { - print ($i % 2 == 0 ? chr(6) : "="); - print $_[$i]; - } - print chr(5); -} - -sub handle_end { - print chr(5), chr(6), chr(5); -} - -sub handle_char { - print $_[1]; -} - -my $parser = new XML::Parser(Handlers => - {Start => \&handle_start, - End => \&handle_end, - Char => \&handle_char}); - -$parser->parse(*STDIN) or die $!;