使用Perl中的正則表達式匹配檢查Perl中的空格

Question

我有一個變量，如何在perl中使用正則表達式檢查字符串中是否包含空格？ 例如：

$test = "abc small ThisIsAVeryLongUnbreakableStringWhichIsBiggerThan20Characters";

因此，對於此字符串，應檢查字符串中是否有不超過x個字符的單詞。

Answer 1

#!/usr/bin/env perl

use strict;
use warnings;

my $test = "ThisIsAVeryLongUnbreakableStringWhichIsBiggerThan20Characters";
if ( $test !~ /\s/ ) {
    print "No spaces found\n";
}

請確保閱讀有關Perl中的正則表達式的信息。

Perl正則表達式教程perldoc perlretut

Answer 2

您應該看一下perl regex教程 。 根據他們的問題改編他們的第一個“ Hello World”示例將如下所示：

if ("ThisIsAVeryLongUnbreakableStringWhichIsBiggerThan20Characters" =~ / /) {
    print "It matches\n";
}
else {
    print "It doesn't match\n";
}

Answer 3

die "No spaces" if $test !~ /[ ]/;        # Match a space
die "No spaces" if $test =~ /^[^ ]*\z/;   # Match non-spaces for entire string

die "No whitespace" if $test !~ /\s/;     # Match a whitespace character
die "No whitespace" if $test =~ /^\S*\z/; # Match non-whitespace for entire string

Answer 4

要查找最長的不間斷非空格字符序列的長度，請編寫以下代碼

use strict;
use warnings;

use List::Util 'max';

my $string = 'abc small ThisIsAVeryLongUnbreakableStringWhichIsBiggerThan20Characters';

my $max = max map length, $string =~ /\S+/g;

print "Maximum unbroken length is $max\n";

輸出

Maximum unbroken length is 61