Revision 278 (by dpavlin, 2004/03/14 12:37:14) moved tests in own directory, added test to demonstrate XML::Simple feature
to remove spaces from begin and end attribute value (which is wrong for
delimiters as WebPAC uses them)
 
#!/usr/bin/perl -w

use strict;
use OpenIsis;
use parse_format;
use Text::Iconv;
use Data::Dumper;

Text::Iconv->raise_error(1);     # Conversion errors raise exceptions
my $codepage = Text::Iconv->new('852','iso-8859-2');

my $row = {
          '981' => [ '^aSlu§bena dokumentacija RH' ],
          '225' => [ '^aSjednice Sabora' ],
          '712' => [ '^3011492^aHrvatski sabor' ],
          '710' => [ '^3011801^aHrvatska narodna banka' ],
          '210' => [ '^aZagreb^cHrvatski sabor^d2000' ],
          '102' => [ '^aHR' ],
          '607' => [ '^3025257^aHrvatska' ],
          '606' => [ '^3000916^abankarski sustav', '^3001926^adevizne priŸuve' ],
          '990' => [ '^aH10.0=Sabor.sjd-M:004317' ],
          '200' => [ '^aIzvjeç†e o stanju financijskog i bankarskog sustava Republike Hrvatske u 1990. godini s osvrtom na devizne priŸuve NBJ, dug SFRJ i "staru" deviznu çtednju^f[Hrvatska narodna banka]' ],
          '900' => [ '004317' ],
          'mfn' => 1,
	  '101' => [ '^ahrv' ],
          '300' => [ '^aIzvjeç†e podneseno na 8. sjednici ZastupniŸkog doma Hrvatskog dr§avnog sabora' ]
};

my $fmt = 'eval{"225a" eq "pero"}900 101a';
$fmt = 'eval{v102^a eq "HR" && v607^3 == "025257"}900 101a';

my ($d,$s) = parse_format('isis', $fmt ,$row, 0, $codepage);

print "d: $d s: $s\n";