Как я могу предохранить Perl от интерпретации двойного обратного слэша в качестве символа обратной обратной косой черты?

Question

Как я могу напечатать строку (одиночную кавычку), содержащую символы с двойным обратным слепом \\, так как это не делает Perl каким-то образом интерполируя его на однослое \? Я не хочу изменять строку, добавив еще несколько символов escape.

my $string1 = 'a\\\b'; 
print $string1; #prints 'a\b' 

my $string1 = 'a\\\\b'; 
    #I know I can alter the string to escape each backslash 
    #but I want to keep string as is. 
print $string1; #prints 'a\\b' 

#I can also use single-quoted here document 
#but unfortunately this would make my code syntactically look horrible. 
my $string1 = <<'EOF'; 
a\\b 
EOF 
print $string1; #prints a\\b, with newline that could be removed with chomp 

Answer 1

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

my $string1 = <<'EOF'; 
a\\\b 
EOF 
print $string1; # Prints a\\\b, with newline 

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

Другие методы просто для того, чтобы жить с ним и правильно сбрасывать ваши строки (для небольших объемов данных) или размещать их в разделе __DATA__ или внешнем файле (для больших объемов данных).

Answer 2

Поскольку интерполяция обратной косой черты происходит в строковых литералах, возможно, вы могли бы объявить свои литералы с помощью другого произвольного символа, а затем заменить их на что-то еще позже.

my $string = 'a!!!b'; 
$string =~ s{!}{\\}g; 
print $string; #prints 'a\\\b' 

Конечно, это не должно быть !, любой символ, который не вступает в противоречие с нормальным характером в строке будет делать. Вы сказали, что вам нужно сделать несколько строк, так что вы могли бы поставить замену в функции

sub bs { 
    $_[0] =~ s{!}{\\}gr 
} 

my $string = 'a!!!b'; 
print bs($string); #prints 'a\\\b' 

P.S. Эта функция использует неразрушающий модификатор замещения /r, представленный в v5.14. Если вы используете более старую версию, то функция должна быть написана как этого

sub bs { 
    $_[0] =~ s{!}{\\}g; 
    return $_[0]; 
} 

Или, если вы хотите что-то более читаемый

sub bs { 
    my $str = shift; 
    $str =~ s{!}{\\}g; 
    return $str; 
} 

Answer 3

Если вы слегка сумасшедшие, и как идея используя экспериментальное программное обеспечение, которое обманывает внутренности perl для улучшения эстетики вашего кода, с сегодняшнего утра вы можете использовать модуль Syntax::Keyword::RawQuote, на CPAN.

use syntax 'raw_quote'; 
my $string1 = r'a\\\b'; 
print $string1; # prints 'a\\\b' 

Благодаря @melpomene для вдохновения.