+++ /dev/null
-#!/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\9fuve' ],
- '990' => [ '^aH10.0=Sabor.sjd-M:004317' ],
- '200' => [ '^aIzvjeç\86e o stanju financijskog i bankarskog sustava Republike Hrvatske u 1990. godini s osvrtom na devizne pri\9fuve NBJ, dug SFRJ i "staru" deviznu çtednju^f[Hrvatska narodna banka]' ],
- '900' => [ '004317' ],
- 'mfn' => 1,
- '101' => [ '^ahrv' ],
- '300' => [ '^aIzvjeç\86e podneseno na 8. sjednici Zastupni\9fkog 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";
--- /dev/null
+#!/usr/bin/perl -w
+
+use strict;
+use OpenIsis;
+use Text::Iconv;
+use XML::Simple;
+use Data::Dumper;
+
+Text::Iconv->raise_error(1); # Conversion errors raise exceptions
+
+#my $to = "UTF-8";
+my $to = "ISO-8859-2";
+
+my $isis_codepage = Text::Iconv->new('852',$to);
+
+my $isis_db="/data/isis_data/small/ps/PERI/PERI";
+my $row_id = 11;
+
+my $db = OpenIsis::open( $isis_db );
+
+my $row = OpenIsis::read( $db, $row_id );
+
+use isis_sf;
+
+print isis_sf($row,'200'),"\n";
+
+my $xml = '<?xml version="1.0" encoding="ISO-8859-2"?><xml>truæ</xml>';
+#my $xml_codepage = Text::Iconv->new('ISO-8859-2','UTF-8');
+#$xml = XMLin($xml_codepage->convert($xml));
+
+$xml = XMLin($xml);
+
+#undef $xml_codepage;
+my $xml_codepage = Text::Iconv->new('UTF-8','iso-8859-2');
+$xml = $xml_codepage->convert($xml),"\n";
+
+print Dumper($xml),"$xml\n";
+
--- /dev/null
+#!/usr/bin/perl -w
+
+use strict;
+use OpenIsis;
+use Data::Dumper;
+
+my @mfns = @ARGV || ( 1 );
+
+my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' );
+
+#my $row = OpenIsis::read( $db, $mfn, "MHL V205" );
+foreach my $mfn (@mfns) {
+ print "mfn: $mfn\n";
+
+ my $row = OpenIsis::read( $db, $mfn );
+
+ print Dumper($row);
+}
+
--- /dev/null
+#!/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\9fuve' ],
+ '990' => [ '^aH10.0=Sabor.sjd-M:004317' ],
+ '200' => [ '^aIzvjeç\86e o stanju financijskog i bankarskog sustava Republike Hrvatske u 1990. godini s osvrtom na devizne pri\9fuve NBJ, dug SFRJ i "staru" deviznu çtednju^f[Hrvatska narodna banka]' ],
+ '900' => [ '004317' ],
+ 'mfn' => 1,
+ '101' => [ '^ahrv' ],
+ '300' => [ '^aIzvjeç\86e podneseno na 8. sjednici Zastupni\9fkog 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";
--- /dev/null
+#!/usr/bin/perl -w
+
+use strict;
+use XML::Simple;
+use IO::File;
+use Data::Dumper;
+
+my $xml = '<?xml version="1.0" encoding="ISO-8859-2"?><xml foo="a" foo_a=" a" foo_a_=" a " fooa_="a ">truæ</xml>';
+
+my $xml_file = shift @ARGV;
+
+if ($xml_file) {
+ my $fh = new IO::File($xml_file) || die "can't open $xml_file: $!";
+ $xml = XMLin($fh);
+} else {
+ $xml = XMLin($xml);
+}
+
+print Dumper($xml),"\n";
+
+++ /dev/null
-#!/usr/bin/perl -w
-
-use strict;
-use OpenIsis;
-use Text::Iconv;
-use XML::Simple;
-use Data::Dumper;
-
-Text::Iconv->raise_error(1); # Conversion errors raise exceptions
-
-#my $to = "UTF-8";
-my $to = "ISO-8859-2";
-
-my $isis_codepage = Text::Iconv->new('852',$to);
-
-my $isis_db="/data/isis_data/small/ps/PERI/PERI";
-my $row_id = 11;
-
-my $db = OpenIsis::open( $isis_db );
-
-my $row = OpenIsis::read( $db, $row_id );
-
-use isis_sf;
-
-print isis_sf($row,'200'),"\n";
-
-my $xml = '<?xml version="1.0" encoding="ISO-8859-2"?><xml>truæ</xml>';
-#my $xml_codepage = Text::Iconv->new('ISO-8859-2','UTF-8');
-#$xml = XMLin($xml_codepage->convert($xml));
-
-$xml = XMLin($xml);
-
-#undef $xml_codepage;
-my $xml_codepage = Text::Iconv->new('UTF-8','iso-8859-2');
-$xml = $xml_codepage->convert($xml),"\n";
-
-print Dumper($xml),"$xml\n";
-
+++ /dev/null
-#!/usr/bin/perl -w
-
-use strict;
-use OpenIsis;
-use Data::Dumper;
-
-my @mfns = @ARGV || ( 1 );
-
-my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' );
-
-#my $row = OpenIsis::read( $db, $mfn, "MHL V205" );
-foreach my $mfn (@mfns) {
- print "mfn: $mfn\n";
-
- my $row = OpenIsis::read( $db, $mfn );
-
- print Dumper($row);
-}
-