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

fix caricamento e invio ftp

Browse Source
This commit is contained in:
Alessandro Battilani
2021-04-19 23:40:40 +02:00
parent 461d687897
commit a3ab52eeec
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
LoadCSVData.pl
View File

@@ -437,14 +437,14 @@ elsif ( $filecsvname =~ m/^D2W_ID\d\d\d\d_DT\d\d\d\d_\d*$/i ) {
$unittype = $strings[0];
$unit = $strings[1];
$tool = $strings[2];
$tooltype = 'MUX';
$tooltype = 'D2W';
}
elsif ( $filecsvname =~ m/^G301_ID\d\d\d\d_DT\d\d\d\d_\d*$/i ) {
my @strings = $filecsvname =~ /(.{1,3})_(.{1,6})_(.{1,6}).*/;
my @strings = $filecsvname =~ /(.{1,4})_(.{1,6})_(.{1,6}).*/;
$unittype = $strings[0];
$unit = $strings[1];
$tool = $strings[2];
$tooltype = 'MUX';
$tooltype = 'G301';
}
while ( my $line = <FILE> ) {
@@ -498,7 +498,7 @@ while ( my $line = <FILE> ) {
$G301_fcheck = 1;
}
if ( $tooltype eq "MUX" ) {
if ( $tooltype eq "MUX" or $tooltype eq "D2W" or $tooltype eq "G301" ) {
#$NodeData =~ s/Dis\./N\/A/g;
@NewData = grep /\S/, split( /\||;/, $NodeData );
@@ -600,7 +600,7 @@ while ( my $line = <FILE> ) {
}
else {
my ( $y, $m, $d, $t ) = split( /[\s\/]/, $first );
if ( length($y) != 4 ) { # G201 con la data invertita
if ( length($y) != 4 ) { # G201/G301 con la data invertita
my $w = $y;
$y = $d;
$m = sprintf( '%02d', $m );