?????????? ????????? - ??????????????? - /usr/share/doc/perl-Regexp-Assemble/examples/track-5.10
???????
/usr/bin/perl use strict; use warnings; use lib 'blib/lib'; use Regexp::Assemble; my $r = Regexp::Assemble->new->track(1)->add(qw(foo? bar{2} [Rr]at)); for my $w (qw(this food is rather barren)) { if ($w =~ /$r/) { print "$w matched by ", $r->source($^R), $/; } else { print "$w no match\n"; } }
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????