tolti ; dai file editati

LoadCSVData.pl

@@ -344,10 +344,12 @@ else {
 
 my ( $fileDate, $fileTime ) = split( /\s/, <FILE> );
 my ( $unittype, $unit )     = split( /\s/, uc <FILE> );
+$unit =~ s/;+$//;
 
 while ( my $line = <FILE> ) {
     my ( $first, $NodeData ) = split( /;/, $line, 2 );
     if ( defined $first and ( $first ne '' ) ) {
+        $first =~ s/;+$//;
         if ( !defined $NodeData or ( $NodeData =~ m/^;+/ ) ) {
             my @info = ( split( /[\/,\.]/, $first ) );
             if ( defined $info[3] && $info[3] =~ m/^DT\d\d\d\d$/i ) {
@@ -373,6 +375,7 @@ while ( my $line = <FILE> ) {
         }
         else {
             $NodeData =~ s/\x0d{0,1}\x0a\Z//s;
+            $NodeData =~ s/;+$//;
 
             #$NodeData =~ s/\r\n\z//;
 

UnitCsvReceiverSmart.pl

@@ -31,6 +31,7 @@ sub getUnitName {    # parm => file received ($trfile)
       or warn getTimeStamp("log") . " >> Error: opening input file $filename\n";
     my ( $fileDate, $fileTime ) = split( /\s/, <FILE> );
     my ( $unittype, $unit )     = split( /\s/, uc <FILE> );
+    $unit =~ s/;+$//;
     close FILE;
     return $unit;
 }