Regex 如何从字符串perl中删除空字符

我需要远程空间、新行字符、制表符等。我试着用不同的方法来做这件事

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

对于第一行正则表达式，它不会删除空字符\0，我得到的字符串后面有空值。第二个正则表达式也没用。
请帮助删除字符串中的所有空格，如果字符串为空，则不应通过该障碍

if ($entry)

---

Thx。如果要删除所有白色字符（空格、制表符），请执行以下操作

$entry=~s/\s//g

应该足够了。我不太清楚你还想删除什么。 空字符串将不会通过：

如果（$分录）

---

如果要删除所有白色字符（空格、制表符），请执行以下操作

$entry=~s/\s//g

应该足够了。我不太清楚你还想删除什么。 空字符串将不会通过：

如果（$分录）

---

要删除所有非大写字符（其中\0是一个）和所有空白字符，请执行以下操作：

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

要从开头和结尾删除它们，请执行以下操作：

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

---

要删除所有非大写字符（其中\0是一个）和所有空白字符，请执行以下操作：

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

要从开头和结尾删除它们，请执行以下操作：

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

---

请说得更具体些。你想删除什么或保留什么？如果只是空白，那么

s/\s//g

就可以了。请更具体一些。你想删除什么或保留什么？如果只是空白，那么

s/\s//g

就可以了谢谢你的回答，我怎么能在字符串中留空格，例如我有我需要删除空格和不可打印的字符，但不能在字符串中，现在我得到了谢谢你的回答，如何在字符串中保留空格例如，我需要删除角落处的空格和不可打印的字符，但不在字符串中，现在我得到

\s

不要删除换行符。

\s

不要删除换行符。