Regex practice script

I use this script for practicing regex:

#!/usr/bin/env perl
use strict;
use warnings;
use 5.014;

my $string;
my $pattern;

while ( ( say "Input template string:" ) && ( $string = <> ) ) {
    while ( ( say "Input pattern:" ) && ( $pattern = <STDIN> ) ) {
        chomp $pattern;
        my $regex = qr/$pattern/p;
        $string =~ $regex;
        say "${^PREMATCH} \x{25a0}\x{25a0}${^MATCH}\x{25a0}\x{25a0} ${
+^POSTMATCH}";
    }
}
[download]

Comment on Regex practice script Download Code

Replies are listed 'Best First'.
Re: Regex practice script by jwkrahn (Abbot) on Jul 25, 2011 at 08:23 UTC
`while ((say "Input template string:") && ($string = <>) ) { while ((say "Input pattern:") && ($pattern = <STDIN>)) {` [download] That should be: `while ((say "Input template string:") && defined(my $string = <>) ) { while ((say "Input pattern:") && defined(my $pattern = <STDIN>)) {` [download] If you enter "0" for either `$string` or `$pattern` your loop will end prematurely.	[reply] [d/l] [select]
Re^2: Regex practice script by JavaFan (Canon) on Jul 25, 2011 at 14:15 UTC
If you enter "0" for either $string or $pattern your loop will end prematurely. Rubbish. It's impossible to enter a false string. All strings entered contain a newline.	[reply]
Re^2: Regex practice script by kindlychung (Initiate) on Jul 25, 2011 at 15:35 UTC
Tested it, not really an issue here, but thanks for paying attention.	[reply]