convert spaces to tabs

diff --git a/hnb.pl b/hnb.pl
index 1a3498d..3664d51 100644 (file)
--- 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(<>) {
 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
+}