From: Nicolas Boisselier Date: Wed, 10 Jun 2026 23:31:15 +0000 (+0200) Subject: bin/csv2human X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=894d33d9066a0e8cb9caf8cb30494f6b4663e638;p=nb.git bin/csv2human --- diff --git a/bin/csv2human b/bin/csv2human index a7471db4..47d7fc1e 100755 --- a/bin/csv2human +++ b/bin/csv2human @@ -53,8 +53,16 @@ my $ENCODE = 1; binmode STDOUT, ":utf8" if $ENCODE; #binmode STDOUT, "raw:"; #binmode STDOUT; +sub _realLength() { + my $str = shift; + $str = Encode::encode_utf8($str) if $ENCODE; + # NB 11.06.26 $str = Encode::encode('UTF-8', $str) if $ENCODE; + return length($str); +} + sub realLength() { $_[0] = Encode::decode_utf8($_[0]) if $ENCODE; + # NB 11.06.26 return length(Encode::encode('UTF-8',$_[0])); return length($_[0]); }