One Hat Cyber Team

Your IP : 216.73.216.180

Server IP : 162.240.179.46

Server : Linux vps-14493116.nutrivittasaude.com.br 5.14.0-611.49.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Tue Apr 21 16:39:08 EDT 2026 x86_64

Server Software : Apache

PHP Version : 8.2.31

Buat File | Buat Folder

Dir : ~/usr/share/doc/perl-Regexp-Assemble/examples/

View File Name : 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;
}