1 |
dpavlin |
272 |
#!/usr/bin/perl -w |
2 |
|
|
|
3 |
|
|
use strict; |
4 |
|
|
use OpenIsis; |
5 |
|
|
use parse_format; |
6 |
|
|
use Text::Iconv; |
7 |
|
|
use Data::Dumper; |
8 |
|
|
|
9 |
|
|
Text::Iconv->raise_error(1); # Conversion errors raise exceptions |
10 |
|
|
my $codepage = Text::Iconv->new('852','iso-8859-2'); |
11 |
|
|
|
12 |
|
|
my $row = { |
13 |
|
|
'981' => [ '^aSlu§bena dokumentacija RH' ], |
14 |
|
|
'225' => [ '^aSjednice Sabora' ], |
15 |
|
|
'712' => [ '^3011492^aHrvatski sabor' ], |
16 |
|
|
'710' => [ '^3011801^aHrvatska narodna banka' ], |
17 |
|
|
'210' => [ '^aZagreb^cHrvatski sabor^d2000' ], |
18 |
|
|
'102' => [ '^aHR' ], |
19 |
|
|
'607' => [ '^3025257^aHrvatska' ], |
20 |
|
|
'606' => [ '^3000916^abankarski sustav', '^3001926^adevizne priuve' ], |
21 |
|
|
'990' => [ '^aH10.0=Sabor.sjd-M:004317' ], |
22 |
|
|
'200' => [ '^aIzvjeçe o stanju financijskog i bankarskog sustava Republike Hrvatske u 1990. godini s osvrtom na devizne priuve NBJ, dug SFRJ i "staru" deviznu çtednju^f[Hrvatska narodna banka]' ], |
23 |
|
|
'900' => [ '004317' ], |
24 |
|
|
'mfn' => 1, |
25 |
|
|
'101' => [ '^ahrv' ], |
26 |
|
|
'300' => [ '^aIzvjeçe podneseno na 8. sjednici Zastupnikog doma Hrvatskog dr§avnog sabora' ] |
27 |
|
|
}; |
28 |
|
|
|
29 |
|
|
my $fmt = 'eval{"225a" eq "pero"}900 101a'; |
30 |
|
|
$fmt = 'eval{v102^a eq "HR" && v607^3 == "025257"}900 101a'; |
31 |
|
|
|
32 |
|
|
my ($d,$s) = parse_format('isis', $fmt ,$row, 0, $codepage); |
33 |
|
|
|
34 |
|
|
print "d: $d s: $s\n"; |