[tpm] Regex question
andy+lists at veracity.ca
Tue Jul 8 08:30:44 PDT 2008
( my $bar ) = $foo =~ m#(\w+-\d+)#;
# check $bar for defined-ness in case regexp didn't match
Note slightly different syntax if you want to have $bar be a substituted
version of $foo:
my $foo = "ABC-987-01";
( my $bar = $foo ) =~ s/ABC/DEF/;
# $bar now "DEF-987-01"
On Tue, Jul 08, 2008 at 11:00:40AM -0400, Madison Kelly wrote:
> I've got a simple problem I often come across, and I've got a way to
> make it work. However, I've always felt there must be a more ...
> elegant way of doing it.
More information about the toronto-pm