cleaning up bin

[dotfiles.git] / bin / work / import_csv_kldb.pl

diff --git a/bin/work/import_csv_kldb.pl b/bin/work/import_csv_kldb.pl
new file mode 100755 (executable)
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;
+