use Perl

• I still use this in Perl classes (Score:2)

  by brian_d_foy (44)

  #!/usr/local/bin/perl -w
   
  # $Id: twiddle-regex,v 1.2 1999/10/21 02:00:50 klassa Exp klassa $
   
  ##########################################################################
    # twiddle-regex
  #
  # Inspired by redemo.py in the python 1.5.2 distribution.
  #
  # Author: John Klassa
  # Date:   June, 1999
  #
  # Lets you enter target text as well as a regex, and gives you
  # visual feedback on how the latter does against the former.
  #######################################################################
  • Re:I still use this in Perl classes (Score:2)

    by BooK (2612)

    Thanks a lot! This time I'll save the script, not the URL. :-)
    • Re:I still use this in Perl classes (Score:1)

      by neuropsy (5433)

      Nice little script. BTW - on line 68, change 'fill' to '-fill'
  • Re:I still use this in Perl classes (Score:1)

    by grinder (1100)

    It sez here

        # Compile the regex in an eval block so we don't die.  Is there a
        # good way to tack on regex flags without resorting to the string
        # form of eval?  I like the plain block form better, just for doing
        # try/catch stuff.
    
        # ...
    
        $re = eval "qr/\$regex/$flags";

    Unless I'm much mistaken, that can be written more simply as

        $re = eval { qr/(?$flags)$regex/ };