counter_transfer.pl

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

导读：#!/usr/bin/perl -w use English; use strict; use warnings; use Getopt::Long; my ($inputFile,$outputFile,$toolHelp) = (); GetOptions("i|input=s" = $inputFile,? ? ? ? ? ?"o|output=s" = $outputFile,? ? ? ? ? ?"h|help!" = $toolHelp ? ? ? ? ?

#!/usr/bin/perl -w use English; use strict; use warnings; use Getopt::Long; my ($inputFile,$outputFile,$toolHelp) = (); GetOptions("i|input=s" => $inputFile,? ? ? ? ? ?"o|output=s" => $outputFile,? ? ? ? ? ?"h|help!" => $toolHelp ? ? ? ? ? ); if($toolHelp || $inputFile eq "" || $outputFile eq "") { ? ? Help(); ? ? exit 0; }else{ ? ? my $removeSpaceCMD="sed -i 's/[ ]*###[ ]*/###/g' $inputFile"; ? ? system($removeSpaceCMD); } 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[1]" OMeSName="$arr[0]"> ? ? ? ? <Unit>Integer number</Unit> ? ? ? ? <TimeRawFormula>$arr[2]($arr[1])</TimeRawFormula> ? ? ? ? <ObjectRawFormula>$arr[3]($arr[1])</ObjectRawFormula> ? ? ? ? <Description> ? ? ? ? ? $arr[4] ? ? ? ? </Description> ? ? ? </Counter>n"; } close OUTPUT; close INPUT; sub Help { ? ? print " Usage: perl $0 -i inputFile -o outputFilen"; }

（编辑：李大同）

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