使用双负数：
/[^\S\r\n]/
即，非空白（大写的S补充）或非回车或非换行符。用De Morgan的定律分配外部非字符（即，^字符类中的补语），等效于“空白，但不包括回车符或换行符”。在模式中同时包含和都可以正确处理所有Unix（LF），经典Mac OS（CR）和DOS-ish（CR LF）换行符约定。\r\n
无需相信我的话：
#! /usr/bin/env perl
use strict;
use warnings;
use 5.005; # for qr//
my $ws_not_crlf = qr/[^\S\r\n]/;
for (' ', '\f', '\t', '\r', '\n') {
my $qq = qq["$_"];
printf "%-4s => %s\n", $qq,
(eval $qq) =~ $ws_not_crlf ? "match" : "no match";
}
输出：
“” =>符合
“ \ f” =>匹配
“ \ t” =>匹配
“ \ r” =>没有匹配项
“ \ n” =>不匹配
请注意，垂直制表符已排除在外，但v5.18中已解决。
在反对之前，Perl文档使用了相同的技术。perlrecharclass的“空白”部分的脚注如下：
在Perl v5.18之前的版本，\s与垂直选项卡不匹配。[^\S\cK]（晦涩）与\s传统做法相符。
perlrecharclass的同一部分还建议了其他方法，这些方法不会冒犯语言教师对双重否定词的反对。
超出区域设置和Unicode规则或有效的/a开关时，“ \s匹配，[\t\n\f\r ]并且从Perl v5.18开始，垂直选项卡\cK。” 放弃\r并\n留给/[\t\f\cK ]/匹配的空格，但不要换行。
如果您的文本是Unicode，请使用与下面的子代码类似的代码从上述文档部分的表中构建模式。
sub ws_not_nl {
local($_) = <<'EOTable';
0x0009 CHARACTER TABULATION h s
0x000a LINE FEED (LF) vs
0x000b LINE TABULATION vs [1]
0x000c FORM FEED (FF) vs
0x000d CARRIAGE RETURN (CR) vs
0x0020 SPACE h s
0x0085 NEXT LINE (NEL) vs [2]
0x00a0 NO-BREAK SPACE h s [2]
0x1680 OGHAM SPACE MARK h s
0x2000 EN QUAD h s
0x2001 EM QUAD h s
0x2002 EN SPACE h s
0x2003 EM SPACE h s
0x2004 THREE-PER-EM SPACE h s
0x2005 FOUR-PER-EM SPACE h s
0x2006 SIX-PER-EM SPACE h s
0x2007 FIGURE SPACE h s
0x2008 PUNCTUATION SPACE h s
0x2009 THIN SPACE h s
0x200a HAIR SPACE h s
0x2028 LINE SEPARATOR vs
0x2029 PARAGRAPH SEPARATOR vs
0x202f NARROW NO-BREAK SPACE h s
0x205f MEDIUM MATHEMATICAL SPACE h s
0x3000 IDEOGRAPHIC SPACE h s
EOTable
my $class;
while (/^0x([0-9a-f]{4})\s+([A-Z\s]+)/mg) {
my($hex,$name) = ($1,$2);
next if $name =~ /\b(?:CR|NL|NEL|SEPARATOR)\b/;
$class .= "\\N{U+$hex}";
}
qr/[$class]/u;
}
其他应用
双负技巧也很容易匹配字母字符。请记住，它们\w匹配“单词字符”，字母字符，数字和下划线。我们丑陋的美国人有时想写成这样，
if (/[A-Za-z]+/) { ... }
但双负字符类可以遵守语言环境：
if (/[^\W\d_]+/) { ... }
用这种方式表示“单词字符，而不是数字或下划线”有点不透明。POSIX字符类更直接地传达意图
if (/[[:alpha:]]+/) { ... }
或使用szbalint建议的Unicode属性
if (/\p{Letter}+/) { ... }
[\r\f]。