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

miglioramenti mail di errore/warning

Browse Source
This commit is contained in:
Alessandro Battilani
2021-01-19 23:10:32 +01:00
parent fe6312a615
commit 8715a70cec
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
LoadCSVData.pl
View File

@@ -60,6 +60,11 @@ my @warnings;
my $MatlabErrors = ''; my $MatlabErrors = '';
my $MatlabWarnings = ''; my $MatlabWarnings = '';
sub uniq {
my %seen;
grep !$seen{$_}++, @_;
}
sub getTimeStamp sub getTimeStamp
{ # parm [ts] => timestamp for filename; log => timestamp for log { # parm [ts] => timestamp for filename; log => timestamp for log
my $format = "%04d%02d%02d%02d%02d%02d"; my $format = "%04d%02d%02d%02d%02d%02d";
@@ -144,7 +149,7 @@ sub matlabCalc {
@errors = grep( /^Error/, @matlabOutputErrorArray ); @errors = grep( /^Error/, @matlabOutputErrorArray );
@warnings = grep( !/^Error/, @matlabOutputErrorArray ); @warnings = grep( !/^Error/, @matlabOutputErrorArray );
$MatlabErrors = join( "<br>", @errors ); $MatlabErrors = join( "<br>", @errors );
$MatlabWarnings = join( "<br>", @warnings ); $MatlabWarnings = join( "<br>", uniq(@warnings) );
my $exit_value = $? >> 8; my $exit_value = $? >> 8;
if ( $exit_value == 124 ) { if ( $exit_value == 124 ) {