3664d511c68b755613f216cab1f4dbde04647eb1
[koha-hnb-currency-import.git] / hnb.pl
1 #!/usr/bin/perl
2
3 # curl http://www.hnb.hr/tecajn/f`date +%d%m%y`.dat | ./hnb.pl | sudo mysql koha_ffzg
4
5 # http://www.hnb.hr/tecajn/hopiszap.htm
6
7 use warnings;
8 use strict;
9
10 my $zag = <>;
11 chomp $zag;
12
13 my ( $broj, $izrada, $dd, $mm, $yyyy, $rows ) = unpack 'A3A8A2A2A4A2', $zag;
14
15 warn "# $broj - $izrada - $dd $mm $yyyy - $rows\n";
16
17 while(<>) {
18         chomp;
19         s/(\d+),(\d{6})/$1.$2/gs;
20         my ( $sifra, $oznaka, $broj, $kupovni, $srednji, $prodajni ) = unpack 'A3A3A3A15A15A15', $_;
21         warn "$sifra|$oznaka|$broj|$kupovni|$srednji|$prodajni|\n";
22
23         print qq{
24                 INSERT INTO currency SET currency='$oznaka',symbol='$oznaka',rate=$srednji,active=0
25                 ON DUPLICATE KEY UPDATE rate=$srednji ;
26         };
27
28 }