#!/usr/bin/perl use strict; use warnings; use YAPE::Regex::Explain; $\ = "\n*************\n"; # Your original print YAPE::Regex::Explain->new(qr/[a-zA-Z]/)->explain; print YAPE::Regex::Explain->new(qr/[a-zA-Z]+/)->explain; print YAPE::Regex::Explain->new(qr/([a-zA-Z]+)/)->explain; # The solution print YAPE::Regex::Explain->new(qr/^([a-zA-Z]+)$/)->explain;
Flavio (perl -e "print(scalar(reverse('ti.xittelop@oivalf')))")
Don't fool yourself.In reply to Re: Regular expressions
by polettix
in thread Regular expressions
by DDH
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |