mesa e recupero g301

2021-11-23 19:18:56 +01:00
parent 6d77fc7031
commit 21bb06f565
1 changed files with 3 additions and 1 deletions
--- a/UnitCsvReceiverSmart.pl
+++ b/UnitCsvReceiverSmart.pl
@@ -64,7 +64,9 @@ sub getUnitName {    # parm => file received ($trfile)
        $unit     = $strings[1];
    }
    elsif ( $filenamecsv =~ m/^(\d*_|)G301_ID\d\d\d\d_DT\d\d\d\d$/i ) {
-        my @strings = $filenamecsv =~ /(.{1,4})_(.{1,6})_(.{1,6}).*/;
+        my $filecsvname_clean =
+          substr( $filenamecsv, index( $filenamecsv, "G301" ) );
+        my @strings = $filecsvname_clean =~ /(.{1,4})_(.{1,6})_(.{1,6}).*/;
        $unittype = $strings[0];
        $unit     = $strings[1];
    }