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

corretto numero file remoti ftp

Browse Source
This commit is contained in:
battilo
2017-11-12 21:19:12 +01:00
parent 1272594594
commit 815536f686
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
LoadCSVData.pl
View File

@@ -117,7 +117,7 @@ sub matlabCalc {
system(@args) == 0 system(@args) == 0
or die( getTimeStamp("log") . " - pid $$ >> system @args failed: $?\n" ); or die( getTimeStamp("log") . " - pid $$ >> system @args failed: $?\n" );
} else { } else {
$matlab_cmd = 'matlab_' . $matlab_cmd . '.cmd'; $matlab_cmd = 'matlab_' . uc $matlab_cmd . '.cmd';
my @out_matlab = `ssh1 $matlab_ip 'cmd /c $matlab_cmd ' $tool`; my @out_matlab = `ssh1 $matlab_ip 'cmd /c $matlab_cmd ' $tool`;
if (index($out_matlab[-1], "Failure") != -1) { if (index($out_matlab[-1], "Failure") != -1) {
print getTimeStamp("log") print getTimeStamp("log")
@@ -238,7 +238,7 @@ sub trxelab {
print getTimeStamp("log") print getTimeStamp("log")
. " - pid $$ >> ftp target lists " . " - pid $$ >> ftp target lists "
. scalar $ftp->ls() . scalar @{ $ftp->ls() }
. " elements.\n"; . " elements.\n";
$ftp->quit; $ftp->quit;