Використовуйте подвійний мінус:
/[^\S\r\n]/
Тобто, не-пробільний простір (з великої літери доповнює) або не-перевезення-повернення чи не-нова лінія. Розподіляючи зовнішнє не ( тобто доповнення ^до класу символів) із законом Де Моргана , це еквівалентно "пробілу, але не поверненню каретки чи новій лінії ". Включаючи як \rі \nв шаблон, правильно обробляє всі конвенції Unix (LF), класичні Mac OS (CR) та DOS-ish (CR LF) newline .
Не потрібно сприймати моє слово за це:
#! /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:]]+/) { ... }
або із властивістю Unicode, як пропонує szbalint
if (/\p{Letter}+/) { ... }
[\r\f].