/usr/share/doc/libregexp-assemble-perl/examples/unquotemeta is in libregexp-assemble-perl 0.36-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | #!/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;
}
|