From 21bb06f56585712a06d1ce62461c05b2b4b7021d Mon Sep 17 00:00:00 2001
From: Alessandro Battilani <alessandro.battilani@gmail.com>
Date: Tue, 23 Nov 2021 19:18:56 +0100
Subject: [PATCH] mesa e recupero g301

---
 UnitCsvReceiverSmart.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/UnitCsvReceiverSmart.pl b/UnitCsvReceiverSmart.pl
index 7a211b6..16d5bb8 100644
--- 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];
     }