Deregex

[Dylan]

Description:

Decompile regexes made with qr//

# Thanks go to Arien for simplifying and enhancing :)
sub deregex {
    my $regex = shift;
    my ($ops, $pat) = $regex =~ /^\(\? ([msix-]+) : (.*) \)$/x
        or die "Unknown qr// format";

    $pat =~ s!/!\\/!g;
    $ops =~ s/-.*//;
    return "/$pat/$ops";
}

[Arien]

You're missing a $ in my (regex) = @_. Also, you can qr// an empty string, which will break your regex.

Simplifying and enhancing a bit more results in something like:

sub deregex {
    my $regex = shift;
    my ($ops, $pat) = $regex =~ /^\(\? ([msix-]+) : (.*) \)$/x
        or die "Unknown qr// format";

    $pat =~ s!/!\\/!g;
    $ops =~ s/-.*//;
    return "/$pat/$ops";
}

— Arien

[Dylan]

Oopsy. I must've removed it when I removed the $self, from it (It was a method). Thanks a lot!

[belg4mit]

But a qr already stringifies as a valid regexp. Unless your intent is to make something which can be passed back into qr, which is not the same thing, but that doesn't seem to be the case.

--
perl -pew "s/\b;([mnst])/'$1/g"

[Dylan]

It's for error messages, actually. "... doesn't match ..." type thing.