tolti ; dai file editati

This commit is contained in:
2017-10-01 11:03:59 +02:00
parent ec228b4cd0
commit 0020087b32
2 changed files with 4 additions and 0 deletions

View File

@@ -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;
}