Re^2: regular expression to match specific members of a bus

Thanks hippo.. I was not aware of the Test::More library, I do think that it works to explain what I was looking to do pretty well

I included the tests with the working and non working regex

#!/usr/bin/perl

use strict;
use warnings;
use Test::More;


my $regex = "/pce_rx_n1/";

like( "pce_rx_n1", $regex, "Matching my regex" );
like( "pce_rx_n1_blah", $regex, "Matching my regex" );
#
#these fail because my $regex matches n1 and n10 and n13
#
unlike( "pce_rx_n13", $regex, "Not Matching my regex" );
unlike( "pce_rx_n10_blah", $regex, "Not Matching my regex" );

#fix the regex with the 
#zero look-ahead negative assertion
$regex = "/pce_rx_n1(?!\\d)/";

like( "pce_rx_n1", $regex, "Matching my regex" );
like( "pce_rx_n1_blah", $regex, "Matching my regex" );
unlike( "pce_rx_n12", $regex, "Not Matching my regex" );
unlike( "pce_rx_n10_blah", $regex, "Not Matching my regex" );

done_testing;
[download]

Comment on Re^2: regular expression to match specific members of a bus_name Download Code

Replies are listed 'Best First'.
Re^3: regular expression to match specific members of a bus_name by hippo (Archbishop) on Feb 12, 2016 at 13:37 UTC
Thank you - that is much clearer. Here is your code with only the first regex changed and it now passes all the tests. HTH, Hippo. #!/usr/bin/perl use strict; use warnings; use Test::More; my $regex = qr/pce_rx_n1\D*$/; like( "pce_rx_n1", $regex, "Matching my regex" ); like( "pce_rx_n1_blah", $regex, "Matching my regex" ); # #these fail because my $regex matches n1 and n10 and n13 # unlike( "pce_rx_n13", $regex, "Not Matching my regex" ); unlike( "pce_rx_n10_blah", $regex, "Not Matching my regex" ); #fix the regex with the #zero look-ahead negative assertion $regex = "/pce_rx_n1(?!\\d)/"; like( "pce_rx_n1", $regex, "Matching my regex" ); like( "pce_rx_n1_blah", $regex, "Matching my regex" ); unlike( "pce_rx_n12", $regex, "Not Matching my regex" ); unlike( "pce_rx_n10_blah", $regex, "Not Matching my regex" ); done_testing; [download]	[reply] [d/l]
Re^4: regular expression to match specific members of a bus_name by boleary (Scribe) on Feb 12, 2016 at 13:56 UTC
That was originally what I was trying for :) somehow I never used the `\D*$` though. I do like the `qr`!	[reply] [d/l] [select]