Remove UTF-8 BOM if present
This commit is contained in:
parent
d3f486f7c4
commit
edd58efa44
@ -86,6 +86,7 @@ foreach my $file (@files) {
|
|||||||
# Read and parse the header line to create column mapping
|
# Read and parse the header line to create column mapping
|
||||||
my $header = <$fh>;
|
my $header = <$fh>;
|
||||||
chomp $header;
|
chomp $header;
|
||||||
|
$header =~ s/^\xef\xbb\xbf//; # Remove UTF-8 BOM if present (byte sequence)
|
||||||
print "Header: $header\n" unless $emailCsvArg;
|
print "Header: $header\n" unless $emailCsvArg;
|
||||||
|
|
||||||
# Parse header to get column indices by name
|
# Parse header to get column indices by name
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user