FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

fhem.pl: unicodeEncoding in FileRead/FileWrite (Forum #126088)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25680 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2022-02-14 21:03:18 +00:00
parent 6ab9290eca
commit fbc5423a99
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/fhem.pl
View File

@ -5679,13 +5679,16 @@ FileRead($)
($err, @ret) = cfgDB_FileRead($fileName);
} else {
if(open(FH, $fileName)) {
@ret = <FH>;
close(FH);
my $FH;
if(open($FH, $fileName)) {
binmode($FH, ":encoding(UTF-8)") if($unicodeEncoding);
@ret = <$FH>;
close($FH);
chomp(@ret);
} else {
$err = "Can't open $fileName: $!";
}
}
return ($err, @ret);
@ -5711,12 +5714,14 @@ FileWrite($@)
return cfgDB_FileWrite($fileName, @rows);
} else {
if(open(FH, ">$fileName")) {
binmode (FH);
my $FH;
if(open($FH, ">$fileName")) {
binmode($FH);
binmode($FH, ":encoding(UTF-8)") if($unicodeEncoding);
foreach my $l (@rows) {
print FH $l,$nl;
print $FH $l,$nl;
}
close(FH);
close($FH);
return undef;
} else {