X-Git-Url: https://git.rmz.io/dotfiles.git/blobdiff_plain/61d7dd11d4a450a64f2817ee4db0ec7fa5880b42..b9e4a0c3af29391c27e9a020693541b9a86c4d14:/bin/work/import_csv_kldb.pl?ds=inline

diff --git a/bin/work/import_csv_kldb.pl b/bin/work/import_csv_kldb.pl
new file mode 100755
index 0000000..b41e63f
--- /dev/null
+++ b/bin/work/import_csv_kldb.pl
@@ -0,0 +1,29 @@
+#! /usr/bin/perl
+use strict;
+use warnings;
+
+my $src = $ARGV[0];
+my $dst = $ARGV[1];
+my $klid = $ARGV[2];
+
+# mtnkr,ta_pkt1,ta_pkt2,ta_pkt3,[..]
+open(IN, "<", $src) or die $!;
+# klid,mtknr,ta_name,ta_pkt1
+open(OUT, ">", $dst) or die $!;
+defined($klid) or die "klid not defined!";
+
+my @ta_name;
+while (<IN>) {
+    chomp;
+    my @l = split(/,/);
+    if ($l[0] eq 'mtknr') { 
+        @ta_name = @l; 
+        next; 
+    } 
+    for (my $i = 1; $i < @l; $i++) {
+        print OUT "$klid,$l[0],$ta_name[$i],$l[$i]\n";
+    }
+}
+close IN;
+close OUT;
+