metadata_transfer.pl

#!/usr/bin/perl -w


use English;
use strict;
use warnings;


use Getopt::Long;


my ($inputFile, $outputFile, $ne, $toolHelp) = ();


GetOptions("i|input=s" => \$inputFile,
           "o|output=s" => \$outputFile,
           "e|ne=s" => \$ne,
           "h|help!" => \$toolHelp
          );


if($toolHelp || $inputFile eq "" || $outputFile eq "") {
    Help();
    exit 0;
}


open(INPUT, "<$inputFile") || die "Can't open $inputFile: $!";
open(OUTPUT, ">$outputFile") || die "Can't open $outputFile: $!";


while (my $line = <INPUT>) {
    chomp($line);
    my @arr = split("###", $line);


    print OUTPUT "<Counter ID=\"$arr[0]\" colName=\"$arr[1]\" timeFormula=\"$arr[2]\" nwFormula=\"$arr[3]\" unit=\"Integer number\">
<Description>$arr[4]</Description>
</Counter>\n";
}


close OUTPUT;
close INPUT;


sub Help {
    print " Usage: perl $0 -i inputFile -o outputFile -e NE\n";
}