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

gestione D2W

Browse Source
This commit is contained in:
Alessandro Battilani
2020-11-01 18:35:54 +01:00
parent f693044c47
commit b76acb5893
2 changed files with 40 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
LoadCSVData.pl
View File

@@ -49,6 +49,7 @@ my $email_addr =
'andrea.carri@aseltd.eu,edoardo.cavalca@aseltd.eu,alessandro.battilani@gmail.com,alessandro.valletta@aseltd.eu';
my ( $email_msg, $email_obj );
my $G201_fcheck = 0;
my $D2W_fcheck = 0;
sub getTimeStamp
{ # parm [ts] => timestamp for filename; log => timestamp for log
@@ -504,7 +505,7 @@ 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 ) {
elsif ( $filecsvname =~ m/^D2W_ID\d\d\d\d_DT\d\d\d\d_\d*$/i ) {
my @strings = $filecsvname =~ /(.{1,3})_(.{1,6})_(.{1,6}).*/;
$unittype = $strings[0];
$unit = $strings[1];
@@ -550,8 +551,14 @@ while ( my $line = <FILE> ) {
getNodesType();
$G201_fcheck = 1;
}
if ( $unittype eq 'D2W' and $D2W_fcheck eq 0 ) {
print getTimeStamp("log")
. " - pid $$ >> Found $tooltype tool name: $tool\n";
getNodesType();
$D2W_fcheck = 1;
}
if ( $tooltype eq "MUX" or $tooltype eq "MUX" ) {
if ( $tooltype eq "MUX" or $tooltype eq "D2W" ) {
#$NodeData =~ s/Dis\./N\/A/g;
@NewData = grep /\S/, split( /\||;/, $NodeData );