miglioramenti mail di errore/warning

LoadCSVData.pl

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