PerlでWindowsファイルパスを正規化するにはどうすればよいですか？

Question

アップデート：私はこの単純な問題を解決することができます

：

私は正しい正規表現は、2つのバックスラッシュとバックスラッシュのいずれか1回の発生に置き換えることであろうかを把握したい

。

は、私はこれをオンにする：

vlc.plugin.path = C:\Program Files\JekyllV0.9.2\\VLC_1.0.0\\plugins 

へ：

vlc.plugin.path = C:\\Program Files\\JekyllV0.9.2\\VLC_1.0.0\\plugins 

元の質問：私はPerlの正規表現を使用してファイルに次のように変更したい

：

perl" -p -i.orig -e "s#\\#\\\\#g" -e "s#/#\\\\#g" %VIDEOLOG_PROPERTIES_FILE% 

%のVIDEOLOG_PROPERTIES_FILE％は含まれています：2への単一のバックスラッシュの

• すべての出現は戻って戻って、私は次のことを試してみました

をスラッシュ単一前方の

すべてのオカレンスが2にスラッシュスラッシュ基本のために

vlc.plugin.path = C:\Program Files\JekyllV0.9.2/VLC_1.0.0/plugins 

Answer 1

置き換える：

同じ文字の別のインスタンスに隣接して表示されていないだけでスラッシュとバックスラッシュを置き換えるために

perl -p -i.orig -e "s#[/\\]#\\\\#g" %VIDEOLOG_PROPERTIES_FILE% 

：

perl -p -i.orig -e "s#(?<!/)/(?!/)#\\\\#g; s#(?<\\)\\(?!\\)#\\\\#g" %VIDEOLOG_PROPERTIES_FILE% 

Answer 2

私はPerlは盲目的にそのすべての-e引数を連結し、ので、それらはに押しつぶされているかなり確信していますs#\\#\\\\#gs#/#\\\\#g、そして2番目の正規表現はコメントのように見えます。

私が-e 's#\\#\\\\#g; s#/#\\\\#g'に変更すると、私のために働きます。

もちろん、同じ置換を両方使用しているので、1つの正規表現でこれを行うことができます。

Answer 3

[21:09:00][mgrad@zuza-3:~]$ perl -pe 's#\/#\/\/#g; s#\\#\\\\#g' test.txt 
vlc.plugin.path = C:\\Program Files\\JekyllV0.9.2//VLC_1.0.0//plugins 

Answer 4

perlは2つの-eのフラグを処理しないので、動作しません - 二つのコマンド「間」セミコロンなし。あなたは

perl -p -i.orig -e "s#\\#\\\\#g;" -e "s#/#\\\\#g" %VIDEOLOG_PROPERTIES_FILE% 

私は似た何かを（。あなたは正しい」perlの後にD-見積もりを失った場合、それはある）以下のようにそれを記述する必要がありますが、PerlはPC上で'/'をサポートしているので、私の好みはのためにありますスラッシュ。だから私は、次のようにします。

s![\\/]+!/!g; 

したがって、それは簡単に今、私は理由について単語こと

s![\\/]+!\\\\!g; 

に振り向いすることができます。時々、人々は、彼らは置くべきかどうかを把握することはできません連結されるパスの最初または最後のスラッシュ。時には二重のスラッシュでさえ終わることがあります。 （ただし、File::Specを使用していない場合）、この種の衝突を処理することは良いことです。特に道筋になるので、どんな種類のスラッシュでも好きな種類に変えたいと思っています。

また、私もこれを行う：

s!([\\/]+([.][\\/]+)?)+!/!g 

をそれはそれは何もしません、ドットで区切られたスラッシュの同じクラスタのこれらのケースをキャプチャしているので、それらのプログラムのパスワイズ/ < =>(/+.)+理由パス名のドットを扱うスクリプト、他のプログラムはエラーになります。

Answer 5

あなたがほしいFile::Spec->canonpathです。

更新：実際には、間違った勧告でした。これは内部関数呼び出しなどでは機能しますが、ファイルには単一のバックスラッシュが書き込まれます。しかし、次のように良い仕事します：

#!/usr/bin/perl 

use strict; 
use warnings; 

use Config::INI::Reader; 

my $config = Config::INI::Reader->read_handle(\*DATA); 

my $var1 = $config->{_}->{'vlc.plugin.path1'}; 
my $var2 = $config->{_}->{'vlc.plugin.path2'}; 

for my $v ($var1, $var2) { 
    $v =~ s! (?: [\\]{1,2}) | (?:/) !\\\\!gx; 
    print "$v\n"; 
} 

__DATA__ 
vlc.plugin.path1 = C:\Program Files\JekyllV0.9.2\\VLC_1.0.0\\plugins 
vlc.plugin.path2 = C:\Program Files\JekyllV0.9.2/VLC_1.0.0/plugins 

出力：

 
C:\\Program Files\\JekyllV0.9.2\\VLC_1.0.0\\plugins 
C:\\Program Files\\JekyllV0.9.2\\VLC_1.0.0\\plugins