Çift negatif kullanın:
/[^\S\r\n]/
Yani, boşluk değil (başkent S tamamlar) veya satırbaşı veya satırsonu değil. Değil dış Dağıtma ( yani , tamamlayıcı ^birlikte karakter sınıfında) De Morgan yasa , bu eşdeğerdir “boşluk değil satırbaşı veya satır.” Hem dahil \rve \nklasik Mac OS (CR) ve DOS imsi (CR LF), desende doğru Unix (LF) tüm kolları yeni satır konvansiyonlar .
Benim sözüme gerek yok:
#! /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";
}
Çıktı:
"" => eşleşme
"\ f" => eşleme
"\ t" => eşleme
"\ r" => eşleşme yok
"\ n" => eşleşme yok
Dikey sekmenin hariç tutulduğuna dikkat edin , ancak bu v5.18'de ele alınmaktadır .
Çok sert itiraz etmeden önce, Perl belgeleri aynı tekniği kullanır. Bir dipnot perlrecharclass ait “Boşluk” bölümünde okur
Perl v5.18'den önce \sdikey sekmeyle eşleşmiyordu. [^\S\cK](belirsiz) \sgeleneksel olarak yapılanlarla eşleşir .
Perlrecharclass aynı bölümde ayrıca çift negatifler için dil öğretmenlerinin muhalefet rahatsız olmaz diğer yaklaşım önerir.
Zaman dışında yerel ve Unicode kuralları veya /aanahtar etkisi olduğu “ \skibrit [\t\n\f\r ]ve, Perl v5.18, dikey sekmede başlayan \cK.” Boşlukları eşleştirin, yeni satır için değil, atın \rve \nbırakın /[\t\f\cK ]/.
Metniniz Unicode ise , yukarıda belirtilen belgeler bölümündeki tablodan bir desen oluşturmak için aşağıdaki alt bölüme benzer kodu kullanı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;
}
Diğer uygulamalar
Çift negatif hile, alfabetik karakterleri eşleştirmek için de kullanışlıdır. Bunun \w"kelime karakterleri", alfabetik karakterler , rakam ve alt çizgi ile eşleştiğini unutmayın . Biz çirkin Amerikalılar bazen bunu şöyle derler,
if (/[A-Za-z]+/) { ... }
ancak çift negatif karakter sınıfı yerel ayara saygı duyabilir:
if (/[^\W\d_]+/) { ... }
“Bir kelime karakterini ancak rakam ya da alt çizgiyi değil” bu şekilde ifade etmek biraz opaktır. POSIX karakter sınıfı amacı daha doğrudan iletir
if (/[[:alpha:]]+/) { ... }
veya szbalint'in önerdiği gibi bir Unicode özelliği ile
if (/\p{Letter}+/) { ... }
[\r\f].