Sử dụng phủ định kép:
/[^\S\r\n]/
Đó là, không-không-khoảng trắng (vốn S bổ sung) hoặc không-vận chuyển-trở lại hoặc không-dòng mới. Phân phối bên ngoài không ( nghĩa là bổ sung ^trong lớp nhân vật) theo luật của De Morgan , điều này tương đương với khoảng trắng của nhưng không trả lại vận chuyển hoặc dòng mới. Bao gồm cả hai \rvà \ntrong mẫu xử lý chính xác tất cả các quy ước dòng mới Unix (LF), Mac OS (CR) và DOS-ish (CR LF) .
Không cần phải lấy lời của tôi cho 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";
}
Đầu ra:
"" => khớp
"\ f" => khớp
"\ t" => khớp
"\ r" => không khớp
"\ n" => không khớp
Lưu ý loại trừ tab dọc, nhưng điều này được đề cập trong v5.18 .
Trước khi phản đối quá gay gắt, tài liệu Perl sử dụng kỹ thuật tương tự. Một chú thích trong phần Whitespace Lần lượt của Perlrechar class đọc
Trước Perl v5.18, \skhông khớp với tab dọc. [^\S\cK](tối nghĩa) phù hợp với những gì \struyền thống đã làm.
Phần tương tự của perlrechar class cũng gợi ý các cách tiếp cận khác không xúc phạm sự phản đối của giáo viên ngôn ngữ đối với các tiêu cực kép.
Các quy tắc ngôn ngữ và ngôn ngữ Unicode bên ngoài hoặc khi công /atắc có hiệu lực, \sphù hợp [\t\n\f\r ]và, bắt đầu từ Perl v5.18, tab dọc , \cK. Hủy bỏ \rvà \nđể lại /[\t\f\cK ]/cho phù hợp với khoảng trắng nhưng không phải là dòng mới.
Nếu văn bản của bạn là Unicode, hãy sử dụng mã tương tự như phụ bên dưới để tạo mẫu từ bảng trong phần tài liệu đã nói ở trên .
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;
}
Các ứng dụng khác
Thủ thuật phủ định kép cũng thuận tiện cho việc ghép các ký tự chữ cái. Hãy nhớ rằng \wphù hợp với các ký tự từ tiếng Nhật, các ký tự chữ cái và chữ số và dấu gạch dưới. Chúng ta xấu xí - người Mỹ đôi khi muốn viết nó như, nói,
if (/[A-Za-z]+/) { ... }
nhưng một lớp nhân vật tiêu cực kép có thể tôn trọng miền địa phương:
if (/[^\W\d_]+/) { ... }
Thể hiện một ký tự chữ nhưng không phải chữ số hoặc gạch dưới. Cách này hơi mờ. Một lớp nhân vật POSIX truyền đạt ý định trực tiếp hơn
if (/[[:alpha:]]+/) { ... }
hoặc với thuộc tính Unicode như szbalint đề xuất
if (/\p{Letter}+/) { ... }
[\r\f].