Необязательные многострочные строковые литералы

Question

В Perl можно писать многострочные строковые литералы, используя обычные кавычки или инструкции здесь-doc, но поскольку отступы кода считаются содержимым самой строки, это либо разрушает форматирование окружающего кода, либо требует перед тем, как использовать дополнительную строку. На данный момент я использую следующую подпрограмму для Unindent строкового литерала:

sub unindent { 
    local $_ = shift; 
    $_ =~ s/^\s*$//mg; 
    $_ =~ s/^(\s*>>>\s)//mg; 
    return $_; 
} 

print unindent " 
    >>> #pragma once 
    >>> #include <...> 
    >>> "; 

Но не изобретать колесо, я хотел бы спросить, есть ли уже что-то для этой цели встроенной в Perl или на CPAN?

Answer 1

После некоторых более погуглить, я нашел несколько пакетов с аналогичными характеристиками и частично решить эту проблему:

• Mojo::Util
• Filter::Undent
• Filter::Indent::HereDoc
• Heredoc::Unindent (не на CPAN по какой-то причине)

Первый вариант требуется множество зависимостей, которые необходимо установить (для простой функции unindent), остальные три предназначены для здесь только для документов. Ни один из этих пакетов, по-видимому, не поддерживает дополнительные маркеры (>>> в вопросе), которые, на мой взгляд, были бы более безопасными, чем простые отступы (из-за проблем смеси таблеток).

Answer 2

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

my $str= "Stuff One 
      Stuff Two 
      Stuff Three"; 

, потому что это более удобным для чтения, но фактическая строка должна стать:

my $str= "Stuff OneStuff TwoStuff Three"; 

или

my $str= 
"Stuff One 
Stuff Two 
Stuff Three"; 

правильно? Я не знаю модуля для очистки строки, и я считаю, что это может быть не тривиально из-за использования вкладок или пробелов, и должны ли появляться новые строки или новая строка после последней части? Вы могли бы, однако просто написать:

my $str= "Stuff One". 
     "Stuff Two". 
     "Stuff Three"; 

или

my $str= "Stuff One\n". 
     "Stuff Two\n". 
     "Stuff Three"; 

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

Answer 3

You appear to want Syntax::Feature::Qi. Это похоже на Python.

Причудливо, что на этом языке нет ничего такого.