perl - 我如何在 here-doc 中使用\(反斜杠) 并在打印时显示它？

Question

print <<EOTEXT;

      (`-') (`-')  _<-. (`-')_            <-. (`-')  
     _(OO ) ( OO).-/   \( OO) )     .->      \(OO )_ 
,--.(_/,-.\(,------.,--./ ,--/ (`-')----. ,--./  ,-.)
\   \ / (_/ |  .---'|   \ |  | ( OO).-.  '|   `.'   |
 \   /   / (|  '--. |  . '|  |)( _) | |  ||  |'.'|  |
_ \     /_) |  .--' |  |\    |  \|  |)|  ||  |   |  |
\-'\   /    |  `---.|  | \   |   '  '-'  '|  |   |  |
    `-'     `------'`--'  `--'    `-----' `--'   `--'

EOTEXT

这是我喜欢在控制台中显示的 ascii 艺术。然而似乎“\”没有出现。有没有办法让它出现。

Answer 1

在双引号字符串文字中，\是转义序列的开始。当后面跟着一个非单词字符时，它会导致生成该字符。例如，\|和 \␠生产 |和一个空间分别。当然，\\生产 \ , 所以我们可以使用 \\我们想要的地方\在双引号字符串文字中。

Here docs ( << 字符串文字) 充当双引号字符串文字，除非 << 后面的标记是单引号。然后生成的字符串与输入完全匹配。

所以我们可以选择在 \ 之前添加到每个特殊字符( \ 、 $ 和 @ )，或者我们可以简单地单引号标记。

print <<'EOTEXT';

      (`-') (`-')  _<-. (`-')_            <-. (`-')  
     _(OO ) ( OO).-/   \( OO) )     .->      \(OO )_ 
,--.(_/,-.\(,------.,--./ ,--/ (`-')----. ,--./  ,-.)
\   \ / (_/ |  .---'|   \ |  | ( OO).-.  '|   `.'   |
 \   /   / (|  '--. |  . '|  |)( _) | |  ||  |'.'|  |
_ \     /_) |  .--' |  |\    |  \|  |)|  ||  |   |  |
\-'\   /    |  `---.|  | \   |   '  '-'  '|  |   |  |
    `-'     `------'`--'  `--'    `-----' `--'   `--'

EOTEXT