একটি দ্বৈত-নেতিবাচক ব্যবহার করুন:
/[^\S\r\n]/
এটি হ'ল-নন-হোয়াইটস্পেস (মূলধন এস পরিপূরক) বা নন-ক্যারিজ-রিটার্ন বা নন-লাইন। ডি মরগানের আইন দিয়ে বহিরাগত নয় ( অর্থাত্^ চরিত্রের শ্রেণীর পরিপূরক ) বিতরণ করা , এটি "হোয়াইট স্পেসের সমপরিমাণ তবে গাড়ীর ফেরত বা নতুন লাইনের নয়।" উভয় এবং প্যাটার্ন সহ সঠিকভাবে সমস্ত ইউনিক্স (এলএফ), ক্লাসিক ম্যাক ওএস (সিআর), এবং ডস-ইশ (সিআর এলএফ) নিউলাইন কনভেনশনগুলি পরিচালনা করে ।\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 এ সম্বোধন করা হয় ।
খুব কঠোরভাবে আপত্তি করার আগে পার্ল ডকুমেন্টেশন একই কৌশল ব্যবহার করে। পার্লেরচার্ক্লাসের "হোয়াইটস্পেস" বিভাগের একটি পাদটীকা reads
পার্ল v5.18 এর আগে, \sউল্লম্ব ট্যাবের সাথে মেলে না। [^\S\cK](অস্পষ্টভাবে) \stradition তিহ্যগতভাবে যা করেছে তার সাথে মেলে ।
Perlrecharclass একই অধ্যায় এছাড়াও অন্যান্য পন্থা যে ডাবল নেগেটিভ ভাষা শিক্ষকদের বিরোধী পক্ষে অপমানকর হবে না দাড়ায়।
বাইরের স্থানীয় এবং ইউনিকোড বিধিগুলির বাইরে বা যখন /aস্যুইচটি কার্যকর হয়, " পার্ল v5.18, উল্লম্ব ট্যাব থেকে শুরু হয় এবং \sম্যাচ করে ” " বাতিল করুন এবং ত্যাগ করার ম্যাচিং হোয়াইটস্পেস কিন্তু সম্পর্কে newline না করার জন্য।[\t\n\f\r ]\cK\r\n/[\t\f\cK ]/
যদি আপনার পাঠ্যটি ইউনিকোড হয়, উল্লিখিত ডকুমেন্টেশন বিভাগে টেবিল থেকে একটি প্যাটার্ন তৈরি করতে নীচের সাবটির মতো কোড ব্যবহার করুন ।
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_]+/) { ... }
এইভাবে "একটি শব্দের চরিত্র তবে অঙ্ক বা আন্ডারস্কোর নয়" প্রকাশ করা কিছুটা অস্বচ্ছ। একটি পসিক্স অক্ষর-শ্রেণি অভিপ্রায়টি আরও সরাসরি যোগাযোগ করে
if (/[[:alpha:]]+/) { ... }
অথবা স্যালব্লিন্টের পরামর্শ অনুসারে একটি ইউনিকোড সম্পত্তি সহ
if (/\p{Letter}+/) { ... }
[\r\f]।