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

fix grep suffix case insensitive

Browse Source
This commit is contained in:
Alessandro Battilani
2021-05-08 00:18:56 +02:00
parent 1da1ed3ca1
commit d1695a111a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
UnitCsvReceiverSmart.pl
View File

@@ -94,7 +94,7 @@ while ( my $line = $tail->GetLine() ) {
$trfile = "/home/" . $truser . $trfile; $trfile = "/home/" . $truser . $trfile;
if ( if (
( grep( /^$suffix$/, @ext ) ) ( grep( /^$suffix$/i, @ext ) )
and ( $filename =~ and ( $filename =~
m/^(\d\d_\d\d\d\d_|)(DT\d\d\d\d|LOC\d\d\d\d|GD\d\d\d\d)$/i m/^(\d\d_\d\d\d\d_|)(DT\d\d\d\d|LOC\d\d\d\d|GD\d\d\d\d)$/i
or $filename =~ m/^G201_ID\d\d\d\d_DT\d\d\d\d_\d*$/i or $filename =~ m/^G201_ID\d\d\d\d_DT\d\d\d\d_\d*$/i