From 12725945948146f3acd7507d87a4836c4edc0634 Mon Sep 17 00:00:00 2001
From: battilo <alessandro.battilani@gmail.com>
Date: Sun, 12 Nov 2017 09:59:36 +0100
Subject: [PATCH] tolto lista file ftp e messaggi log

---
 LoadCSVData.pl | 17 +++++++++++------
 prova.pl       |  4 ++--
 2 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/LoadCSVData.pl b/LoadCSVData.pl
index 9374ee7..87e19bb 100644
--- a/LoadCSVData.pl
+++ b/LoadCSVData.pl
@@ -119,11 +119,15 @@ sub matlabCalc {
     } else {
         $matlab_cmd = 'matlab_' . $matlab_cmd . '.cmd';
         my @out_matlab = `ssh1 $matlab_ip 'cmd /c $matlab_cmd ' $tool`;
-        print getTimeStamp("log")
-            . " - pid $$ >> $tool MatLab calc executed: $out_matlab[-1]\n";
-        #print getTimeStamp("log") . " - @out_matlab";
-        #print getTimeStamp("log") . " - pid $$ >> $out_matlab[-1]";
+        if (index($out_matlab[-1], "Failure") != -1) {
+            print getTimeStamp("log")
+                . " - pid $$ >> $tool MatLab calc failed.\n";
+            print getTimeStamp("log") . " - pid $$ >> Execution ended.\n";
+            exit(1);
+        }
     }
+    print getTimeStamp("log")
+        . " - pid $$ >> $tool MatLab calc executed.\n";
     return;
 }
 
@@ -233,8 +237,9 @@ sub trxelab {
       . $ftp->message . "\n";
 
     print getTimeStamp("log")
-      . " - pid $$ >> ftp target files list:\n"
-      . Dumper($ftp->ls());
+      . " - pid $$ >> ftp target lists "
+      . scalar $ftp->ls()
+      . " elements.\n";
 
     $ftp->quit;
     print getTimeStamp("log")
diff --git a/prova.pl b/prova.pl
index 8208d83..0027df3 100755
--- a/prova.pl
+++ b/prova.pl
@@ -4,5 +4,5 @@ use strict;
 
 use Data::Dumper qw(Dumper);
 
-chdir('/home/alex/Documenti');
-system('dir');
\ No newline at end of file
+my @arr = (2,3,4,5,6);
+print scalar @arr . ".\n"; # First way to print array size
\ No newline at end of file