?????????? ????????? - ??????????????? - /usr/share/doc/perl-Regexp-Assemble/examples/unquotemeta
???????
#! /usr/bin/perl # # unquotemeta - how to fix up quotemeta # # part of the Regexp::Assemble module # David Landgren, copyright (c) 2005 use strict; for my $ord( 0 .. 255 ) { my $ch = chr($ord); my $qm = quotemeta($ch); my $fix = fixup($qm); print "o=$ord c=$ch q=$qm f=$fix\n"; } sub fixup { my $ch = shift; $ch =~ s/^\\([^-\w$()*+.\/?@\[\\\]^{|}])$/$1/; $ch; }
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????