| Server IP : 162.214.67.83 / Your IP : 216.73.217.31 Web Server : Apache System : Linux dedi-13542965.clustter.com.br 5.14.0-687.20.1.el9_8.x86_64 #1 SMP PREEMPT_DYNAMIC Tue Jun 30 06:22:49 EDT 2026 x86_64 User : jforte ( 1063) PHP Version : 8.2.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/perl-Regexp-Assemble/examples/ |
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;
}