From 81407eba213bbfb209afe61634e7a66bd9028a4c Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 27 Jan 2012 11:58:27 +0100 Subject: [PATCH] convert spaces to tabs --- hnb.pl | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/hnb.pl b/hnb.pl index 1a3498d..3664d51 100644 --- a/hnb.pl +++ b/hnb.pl @@ -15,14 +15,14 @@ my ( $broj, $izrada, $dd, $mm, $yyyy, $rows ) = unpack 'A3A8A2A2A4A2', $zag; 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 +} -- 2.20.1