alex/ase_perl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gestione file D2W

Browse Source
This commit is contained in:
Alessandro Battilani
2020-11-01 17:34:29 +01:00
parent 51f5340f9c
commit f693044c47
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
LoadCSVData.pl
View File

@@ -504,6 +504,13 @@ elsif ( $filecsvname =~ m/^G201_ID\d\d\d\d_DT\d\d\d\d_\d*_\d*$/i ) {
$fileTime = $strings[6] . ":" . $strings[7] . ":" . $strings[8];
$tooltype = 'MUX';
}
elsif ( $filecsvname =~ m/^D2W_ID\d\d\d\d_DT\d\d\d\d$/i ) {
my @strings = $filecsvname =~ /(.{1,3})_(.{1,6})_(.{1,6}).*/;
$unittype = $strings[0];
$unit = $strings[1];
$tool = $strings[2];
$tooltype = 'D2W';
}
while ( my $line = <FILE> ) {
my ( $first, $NodeData ) = split( /;/, $line, 2 );
@@ -544,7 +551,7 @@ while ( my $line = <FILE> ) {
$G201_fcheck = 1;
}
if ( $tooltype eq "MUX" ) {
if ( $tooltype eq "MUX" or $tooltype eq "MUX" ) {
#$NodeData =~ s/Dis\./N\/A/g;
@NewData = grep /\S/, split( /\||;/, $NodeData );