Perl разделить интересное поведение

Question

может кто-нибудь объяснить это странное поведение: путь Хава

I в строке, и я хочу, чтобы разбить его на каждой обратной косой черты

my $path = "D:\Folder\AnotherFolder\file.txt"; 

my @folders = split('\', $path); 

в предыдущем случае он не будет работать, не даже если избежать обратной косой черты, как это:

my @folders = split('\\', $path); 

, но в случае регулярного выражения будет работать:

my @folders = split(/\\/, $path); 

Почему так?

Answer 1

Если вы посмотрите на документацию, выполнив:

perldoc -f split 

вы увидите три формы аргументов, которые split могут принять:

split /PATTERN/,EXPR,LIMIT 
split /PATTERN/,EXPR 
split /PATTERN/ 

Это означает, что даже тогда, когда вы проходите split строку, как первый аргумент, perl принуждает его к регулярному выражению.

Если мы посмотрим на предупреждения, которые мы получаем при попытке сделать что-то подобное в re.pl:

$ my $string_with_backslashes = "Hello\\there\\friend"; 
Hello\there\friend 
$ my @arry = split('\\', $string_with_backslashes); 
Compile error: Trailing \ in regex m/\/ at (eval 287) line 6. 

мы видим, что первое, '\\' интерполируется как обратный слэш бегству с последующей фактической обратной косой черты, которая принимает значение один обратный слэш.

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

$ my @arry = split(/\/, $string_with_backslashes); 

, который не работает, потому что есть только один обратный слэш, который интерпретируется как просто избежать передняя косая черта после него (без окончания /), чтобы показать, что регекс закончился.

Answer 2

Я думаю amon дал лучший буквальный ответ на свой вопрос в своем комментарии:

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

Это означает, что split '\\' использует строку и split /\\/ использует регулярное выражение.

В качестве практического ответа, я хотел бы добавить следующее:

Возможно, вам следует рассмотреть возможность использования модуля подходит для разделения путей. File::Spec является основным модулем в Perl 5. Кроме того, вам нужно избегать обратной косой черты в двойной кавычки, которую вы еще не сделали. Вы также можете использовать одинарные кавычки, которые выглядят немного лучше, на мой взгляд.

use strict; 
use warnings; 
use Data::Dumper; 
use File::Spec; 

my $path = 'D:\Folder\AnotherFolder\file.txt'; # note the single quotes 
my @elements = File::Spec->splitdir($path); 
print Dumper \@elements; 

Выход:

$VAR1 = [ 
      'D:', 
      'Folder', 
      'AnotherFolder', 
      'file.txt' 
     ]; 

Answer 3

Один из способов аккуратнее, чтобы извлечь элементы пути, чтобы извлечь все последовательности символов, отличных от путь сепаратора.

use strict; 
use warnings; 

my $path = 'D:\Folder\AnotherFolder\file.txt'; 
my @path = $path =~ m([^/\\]+)g; 

print "$_\n" for @path; 

выход

D: 
Folder 
AnotherFolder 
file.txt 

Answer 4

Когда split используется в виде split STRING и не split REGEX, строка преобразуется в регулярное выражение. В вашем случае split '\\' будет преобразован в split /\/, поскольку первая обратная косая черта считается escape-символом.

Правильный способ сделать это split '\\\\', который будет переведен на split /\\/.