🚀 go-pugleaf

Bierzemy dokumentację:
     The POSIX character class syntax
         [:class:]
     is also available.  The available classes and their
     backslash equivalents (if available) are as follows:
         digit       \d
         space       \s      [2]
         word        \w      [3]

Fine. Equivalent. A zawsze \w to mniej pisania, prawda? No to go lu.
----------------------------------------------------------------------
#!/usr/bin/perl -w
use strict;
use utf8;
use open ':utf8', ':std';
my $s = 'abąćłó_,.';
for (split('', $s)) {
    print "$_ ";
    print /[[:word:]]/? 'T' : 'F', ' ', /\w/? 'T' : 'F', '   ';
    {
	use locale;
	print /[[:word:]]/? 'T' : 'F', ' ', /\w/? 'T' : 'F', '   ';
    }
    {
	use locale;
	use POSIX;
	setlocale(LC_ALL, "C");
	print /[[:word:]]/? 'T' : 'F', ' ', /\w/? 'T' : 'F', '   ';
    }
    print "\n";
}
----------------------------------------------------------------------
A oto wynik:
a T T   T T   T T   
b T T   T T   T T   
ą T T   T T   T T   
ć T T   T T   T T   
ł T T   T T   T T   
ó T T   T F   T F   
_ T T   T T   T T   
, F F   F F   F F   
. F F   F F   F F   
----------------------------------------------------------------------
Akuku!
Pierwsze zaskoczenie - 'use locale' powoduje, że o z kreską przestaje
być \w, ale nie przestaje być [:word:].
Drugie zaskoczenie - że kompletnie nie zależy to od tego, jakie
'locale' ustawimy.
A trzecie zaskoczenie, że w ogóle bez użycia 'locale' litery z ogonkami
są w klasie [:word:] (oraz [:alpha:]). Oczekiwałbym w takim miejscu
równoważności [[:alpha:]] i [A-Za-z].

Zdziwniej i zdziwniej.

  MJ