metadata_transfer.pl

发布时间：2020-12-15 21:04:59 所属栏目：大数据来源：网络整理

导读：#!/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,? ? ? ? ? ?"

#!/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 NEn"; }

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!