Как найти строку, которая не содержит пробелов в perl

Question

my $string3 = "anima ls"; 
my $t3 = $string3 =~ /[^\s]+/; 
print "$t3\n"; 

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

Answer 1

Регулярное выражение [^\s]+ выполняет поиск по меньшей мере одного символа, который не является пробелом. Это лучше написано как \S+. Регулярное выражение, которое соответствует любой строке, которая не содержит символа пробела, является довольно

/^\S+$/