bin/work/import_csv_kldb.pl

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 my $src = $ARGV[0];
   6 my $dst = $ARGV[1];
   7 my $klid = $ARGV[2];
   8
   9 # mtnkr,ta_pkt1,ta_pkt2,ta_pkt3,[..]
  10 open(IN, "<", $src) or die $!;
  11 # klid,mtknr,ta_name,ta_pkt1
  12 open(OUT, ">", $dst) or die $!;
  13 defined($klid) or die "klid not defined!";
  14
  15 my @ta_name;
  16 while (<IN>) {
  17     chomp;
  18     my @l = split(/,/);
  19     if ($l[0] eq 'mtknr') {
  20         @ta_name = @l;
  21         next;
  22     }
  23     for (my $i = 1; $i < @l; $i++) {
  24         print OUT "$klid,$l[0],$ta_name[$i],$l[$i]\n";
  25     }
  26 }
  27 close IN;
  28 close OUT;
  29