Fellow monks I come to you with yet another question...

I am close to finishing a Perl/Tk program to test regexes that lets the user enter a regex, the text they want to fiddle with, then prints out the result. Regex options are handled via checkboxes so that they can mix and match to see what happens.

My problem is getting the user built regex to actually evaluate. I've tried using eval with {}, "", '' and nothing at all, but to no avail.

Here's the code I'm playng with at present: 

sub do_it{
    $regex .= $options;
    my $blah = $user_text;
    eval{$user_text =~ $regex};
    print "User text: $user_text\n";
    }

[download]

The $options is built from the check boxes. But $user_text is never getting changed- e.g. $regex=s/e/y/ $user_text=there - still sends $user_text back as there, not thyre.

Can someone please throw some light on this and point me in a direction to solve this?

Thanks!

In reply to Question on evaulating a user built regex by Popcorn Dave

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.