Mini Shell
Mini Shell
| Direktori : /proc/self/root/usr/share/doc/perl-Regexp-Assemble-0.35/eg/ |
| Current File : //proc/self/root/usr/share/doc/perl-Regexp-Assemble-0.35/eg/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;
}