Как я могу canonicalize пути файлов Windows в Perl?

Question

Update:

я могу сделать это более простая проблема:

Я хочу, чтобы выяснить, что правильное регулярное выражение будет заменить любое одиночное возникновение обратного слеша с двумя косыми чертами назад.

Я хочу, чтобы превратить это:

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 Regex:

• всех вхождений одных задних косых черт на два назад слэши
• всех вхождений одной косых черт, чтобы два назад слэша

Я попробовал следующее:

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

, где% VIDEOLOG_PROPERTIES_FILE% содержит:

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, а затем второе регулярное выражение выглядит как комментарий.

Это работает для меня, если я изменю его на -e 's#\\#\\\\#g; s#/#\\\\#g'.

Конечно, вы можете сделать это с помощью одного регулярного выражения, так как вы используете ту же замену оба раза.

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 не обрабатывает два -e флагов - без запятой «между» двумя командами. Вы должны написать его, как показано ниже (если вы потеряете d-цитату сразу после «Perl», то есть.)

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

я сделать что-то подобное, а потому, что 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