warn "# $broj - $izrada - $dd $mm $yyyy - $rows\n";
while(<>) {
- chomp;
- s/(\d+),(\d{6})/$1.$2/gs;
- my ( $sifra, $oznaka, $broj, $kupovni, $srednji, $prodajni ) = unpack 'A3A3A3A15A15A15', $_;
- warn "$sifra|$oznaka|$broj|$kupovni|$srednji|$prodajni|\n";
+ chomp;
+ s/(\d+),(\d{6})/$1.$2/gs;
+ my ( $sifra, $oznaka, $broj, $kupovni, $srednji, $prodajni ) = unpack 'A3A3A3A15A15A15', $_;
+ warn "$sifra|$oznaka|$broj|$kupovni|$srednji|$prodajni|\n";
- print qq{
- INSERT INTO currency SET currency='$oznaka',symbol='$oznaka',rate=$srednji,active=0
- ON DUPLICATE KEY UPDATE rate=$srednji ;
- };
+ print qq{
+ INSERT INTO currency SET currency='$oznaka',symbol='$oznaka',rate=$srednji,active=0
+ ON DUPLICATE KEY UPDATE rate=$srednji ;
+ };
-}
\ No newline at end of file
+}