perlのサブプロセスからUTF文字列を取得する

Question

私は、Ubuntu Linux（バージョン16.04でもこの場合は無関係です）で背景を取得して設定する簡単なスクリプトを作成しています。問題は、私のフォルダ名がUTF-8でエンコードされていることです（特に中国語）。このように、現在の壁紙へのパスを取得することのようなので、失敗します。

file:///home/xieerqi/%E4%B8%8B%E8%BD%BD/testimage.jpg 

そこで、質問です：

my $user_background=qx/gsettings get org.gnome.desktop.background picture-uri/; 

出力print $user_backgroundの私は適切にエンコードされたのですかどのようにシェルコマンドから/復号化された文字列

my $unicode_String=Encode::decode('utf-8', $user_background); 

：perlの

に私はこれを試していませんでした

が動作しませんでした。 binmode(STDOUT,":utf8");を追加

もuse utf8;がバックグラウンドで作業をして設定することと同じ文字列を使用して、不思議

を動作しませんでした追加

を助けにはなりませんでした。

Answer 1

URLからパスを抽出するように思えます。ワンライナーとして

use open ':std', ':locale'; 
use feature qw(say); 

use Encode  qw(decode_utf8); 
use URI   qw(); 
use URI::Escape qw(uri_unescape); 

my $url = URI->new('file:///home/xieerqi/%E4%B8%8B%E8%BD%BD/testimage.jpg'); 

$url->scheme eq 'file' 
    or die("Invalid input\n"); 

my $path = decode_utf8(uri_unescape($url->path)); 

say $path; 

：

：

perl -CS -MEncode=decode_utf8 -MURI -MURI::Escape=uri_unescape \ 
    -e'CORE::say(decode_utf8(uri_unescape(URI->new($ARGV[0])->path)))' \ 
     file:///home/xieerqi/%E4%B8%8B%E8%BD%BD/testimage.jpg 

前のスニペットがUTF-8の端末を想定しているので、我々としても、デコードし、事実上、すぐにそれを次のエンコーディングを避けるかもしれません

perl -MURI -MURI::Escape=uri_unescape \ 
    -e'CORE::say(uri_unescape(URI->new($ARGV[0])->path))' \ 
     file:///home/xieerqi/%E4%B8%8B%E8%BD%BD/testimage.jpg 

Answer 2

それは私に正しいようです。文字はUTF-8でエンコードされてURLエンコードされているため、URLでファイルを正しく識別する必要があります。あなたは%E4%B8%8B%E8%BD%BDが

- `E4 B8 8B`, which is the character U+4E0B or 下 

- `E8 BD BD`, which is the character U+8F7D or 载 

下载に対応した文字列は、「ダウンロード」でそれを

を読むことができるように期待すべきではありません。そうですか？

文字列で実際に何をしたいですか？ picture-uriの代わりにpicture-filenameを使用すると、わかりやすいものが得られるかもしれません。

Answer 3

したがって、問題は明らかにgsettingsとなりました。コマンドラインであっても、デコードされていない中国語の文字列を返します。環境を強制的に、それは

$ LC_ALL=C gsettings get org.gnome.desktop.background picture-uri               
'file:///home/xieerqi/%E4%B8%8B%E8%BD%BD/ad32d5d0615e9572-121171d86d0c8618-e11082638606a82c303fee0b29697811.jpg' 

しかし、同じ文字列を返す場合でも

$ gsettings get org.gnome.desktop.background picture-uri                 
'file:///home/xieerqi/%E4%B8%8B%E8%BD%BD/ad32d5d0615e9572-121171d86d0c8618-e11082638606a82c303fee0b29697811.jpg' 

は、スカラーになりサブプロセスの出力との適切な方法は、decode_utf8()メソッドを使用しているようです。基本的にここで試したことがあり、正常に出力されました。

#!/usr/bin/env perl 

use strict; 
use warnings; 
use utf8; 
use Encode; 
my $stuff=qx/ls ~ /; 
my $utf_string = decode_utf8($stuff); 
print "$utf_string";