Re: Hlelp regarding regex

Your specification is extremely unclear. Could you possibly explain what exactly you're wanting to verify about the Y character in the string?

If you have trouble explaining what you want, you should at least give a list of examples of strings that you do want to match, and a counter list of failed matches.

The below regex matches your string, but given your unclear spec, it probably isn't useful.

my $x = "\\\\files\\builds\\data\\M9998SBQCACSYD30401S";
if ($x =~ /Y\D\d+\D*$/){
    print "This matches something, don't know if it's really what you 
+want";
}
[download]

Comment on Re: Hlelp regarding regex Download Code

Replies are listed 'Best First'.
Re^2: Hlelp regarding regex by Anonymous Monk on Jun 02, 2011 at 04:08 UTC
Sorry for the unclear spec...Hope the below is clear Spec:- After the last "\" $x should match the pattern Y(digit)(number).The reason is "$x" is given as an option by the user and we use the letter to distinguish the location of some files,we only want to process locations with letter Y.Can you please help? `my $x = "\\\\files\\builds\\data\\M9998SBQCACSYD30401S";-->should matc +h my $x = "\\\\files\\builds\\data\\M9998SBQCACSAD30401S";-->Should not +match` [download]	[reply] [d/l]
Re^3: Hlelp regarding regex by bart (Canon) on Jun 02, 2011 at 08:39 UTC
$x should match the pattern Y(digit)(number) Surely you mean `Y(letter)(number)`? Try this: `$x =~ /Y[A-Z]\d+[^\d\\]$/` [download] as in `for my $x ("\\\\files\\builds\\data\\M9998SBQCACSYD30401S", "\\\\file +s\\builds\\data\\M9998SBQCACSAD30401S") { if($x =~ /Y[A-Z]\d+[^\d\\]$/) { print "$x matches\n"; } else { print "$x doesn't match\n"; } }` [download] which yields: `\\files\builds\data\M9998SBQCACSYD30401S matches \\files\builds\data\M9998SBQCACSAD30401S doesn't match` [download] (`[^\d\\]` makes sure you matched the last number, and no backslash follows.)	[reply] [d/l] [select]
Re^3: Hlelp regarding regex by wind (Priest) on Jun 02, 2011 at 15:25 UTC
Ideally, you'd provide a list of more than 2 strings, but your description helps. The following will probably suit your needs: `my @list = ( # Good "\\\\files\\builds\\data\\M9998SBQCACSYD30401S", # Bad "\\\\files\\builds\\data\\M9998SBQCACSAD30401S", ); for my $x (@list) { if ($x =~ /Y[A-Z]\d[^\\]*$/){ print "$x - matches\n"; } else { print "$x - doesn't match\n"; } }` [download] Given that these are file paths, I personally would rely on File::Basename or File::Spec to separate the filenames from the directories before doing the tests. That way the code would still work on other platforms.	[reply] [d/l]