如何從字符串perl中刪除空字符

Question

我需要遠程空間，新行字符，標簽等。 我試圖以不同的方式做到這一點。

 $entry =~ s/^\s*(.*?)\s*$/$1/; 
 $entry =~ /^(?:[\t ]*(?:\r?\n|\r))+/;
 chomp($entry);

對於第一行正則表達式，它不會刪除空字符\\ 0，之后我得到帶有空值的字符串。 第二個正則表達式也沒有幫助。
請幫助從字符串中刪除所有空格，如果字符串為空，則不應通過屏障

if ($entry)

Thx提前。

Answer 1

要刪除所有不可打印的字符（其中\\ 0是一個）和所有空格字符，請執行以下操作：

s/[[:^print:]\s]//g

要從開頭和結尾刪除它們，請執行以下操作：

s/\A[[:^print:]\s]|[[:^print:]\s]\z/;

Answer 2

如果你想刪除所有白色字符（空格，制表符），然后執行

$ entry = ~s / \\ s // g

應該夠了。 我還不完全清楚你還想要刪除什么。 空字符串不會通過：

if（$ entry）