| Server IP : 162.214.74.102 / Your IP : 216.73.217.80 Web Server : Apache System : Linux dedi-4363141.lrsys.com.br 3.10.0-1160.119.1.el7.tuxcare.els25.x86_64 #1 SMP Wed Oct 1 17:37:27 UTC 2025 x86_64 User : lrsys ( 1015) PHP Version : 5.6.40 Disable Function : exec,passthru,shell_exec,system MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/perl-Regexp-Assemble-0.35/eg/ |
Upload File : |
#! /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;
}