# Perl 字符串轉義序列 > 原文： [https://beginnersbook.com/2018/03/perl-string-escape-sequences/](https://beginnersbook.com/2018/03/perl-string-escape-sequences/) 在上一個教程中，我們學習了[如何使用 Perl 中的字符串](https://beginnersbook.com/2018/03/perl-strings/)。在本指南中，我們將討論**轉義字符**，它將幫助我們在某些情況下實現所需的輸出。 ## 在 Perl 中顯示電子郵件地址 字符`@`在 perl 中有特殊含義。正如我們已經知道的那樣，當我們將特殊字符放在雙引號字符串中時，perl 會嘗試對其進行插值。在下面的示例中，如果我們不在`@`之前放置反斜杠，則會拋出錯誤而不是顯示電子郵件，因為它會將`@gmail`視為[數組](https://beginnersbook.com/2017/05/perl-lists-and-arrays/)。 在單引號的情況下，不需要使用轉義序列，因為插值不會出現在單引號字符串中。 ```perl use strict; use warnings; my $email = "xyz\@gmail.com"; print "$email\n"; # no backslash needed as interpolation does not # work in single quotes. my $email2 = '[email?protected]'; print "$email2\n"; ``` 輸出： ```perl [email?protected] [email?protected] ``` ## 轉義雙引號字符串中的`$`符號 我們已經知道美元符號會插入變量的值。如果你想轉義`$`符號并避免插值，請使用我們上面做的相同技巧 - 用反斜杠作為前綴。 ```perl use strict; use warnings; my $name = 'Negan'; my $msg = 'I am Negan'; # escaping the first dollar sign but not escaping the second print "\$name: $name\n"; # escaping the first dollar sign but not escaping the second print "\$msg: $msg\n"; ``` 輸出： ```perl $name: Negan $msg: I am Negan ``` ## 如何轉義轉義字符反斜杠（`\`） 在上面的例子中，我們使用反斜杠來轉義特殊字符$和@。可能存在您希望在輸出中顯示反斜杠的情況。為此，你想要逃避反斜杠。讓我們舉個例子來理解這個： ```perl use strict; use warnings; my $say = 'I do like to use backslash \\'; print "$say\n"; ``` 輸出： ```perl I do like to use backslash \ ``` 如您所見，我們在輸出中顯示了`\`。 ## 轉義字符串中的雙引號 我們知道雙引號內的文本在 Perl 中被視為字符串。讓我們說我們想在 Perl 中顯示一個字符串，字符串本身有一個雙引號。我們將使用相同的方法，使用`\`來轉義引號。 ```perl use strict; use warnings; my $say = "I like to watch \"The Walking Dead\""; print "$say\n"; ``` 輸出： ```perl I like to watch "The Walking Dead" ``` ## 雙`q`運算符 - `qq` 我們可以用雙`q`運算符替換用于包含字符串的雙引號。這樣做的好處是我們不必擔心使用雙引號（`"`）和括號的轉義序列。 ```perl use strict; use warnings; my $name = 'Chaitanya'; print qq(My name is "$name" and I like brackets ()\n); ``` 輸出： ```perl My name is "Chaitanya" and I like brackets () ``` 請參閱我沒有使用雙引號和括號的轉義序列。 ## 單`q`運算符 - `q` 單`q`運算符就像單引號一樣工作。其中存在的特殊字符不進行插值。 讓我們采用上面在雙`q`運算符中看到的相同示例。 ```perl use strict; use warnings; my $name = 'Chaitanya'; print q(My name is "$name" and I like brackets ()\n); ``` 輸出： ```perl My name is "$name" and I like brackets ()\n ```