ダブルネガティブを使用：
/[^\S\r\n]/
つまり、not-not-whitespace（大文字のSは補数）またはnot-carriage-returnまたはnot-newlineです。アウターnot（つまり、^文字クラスでの補完）をドモーガンの法則で分配すると、これは「空白文字ですが、キャリッジリターンや改行ではありません」と同等です。パターンとパターンの両方\rを含めると\n、すべてのUnix（LF）、クラシックMac OS（CR）、およびDOS風（CR LF）の改行規則が正しく処理されます。
私の言葉をそれで理解する必要はありません：
#! /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]。