Re: regex match multiple line

The first thing that leaps at /me is the inappropriate escaping of the sigil in the regex. The next is that you ask would-be helpers to take at face value -- that is, without code to back up the claim -- that "(you) created a hash...." ... which, for the limited purpose of this WAG, I'll take for fact, since it's a plausible sample of a hash.

But the next big ugly is is that you haven't given us enough with which to confidently jump off a cliff.

... but here goes anyway (sure hope the water's deep down there) (code and output updated for clarity):

use strict;
use warnings;
use 5.018;

# 1108508

my $error = qr/00000056|0000052D|05601111/;

my %pwd_reset_errors = (
    '0000052D' => "new password does not meet complexity requirements"
+,
    '00000056' => "wrong old password",
    '05601111' => "Friends don't let friends use Doze",
    '123xx51y' => "Not a Windows error (or undocumented)",
);

while ( my ( $key, $value ) = each %pwd_reset_errors ) {
   if ( $key =~ m/^$error.*/ ) {                          # Don't esca
+pe the sigil here!
      say "matched \$key: $key in \$error: \r\n\t \$value: $value\n";
   } else {
      say "Didn't find a match for $key [ $value ]) in regex $error\n"
+;
   }
}
[download]

Execution:

C:\>1108508.pl
Didn't find a match for 123xx51y [ Not a Windows error (or undocumente
+d) ]) in regex (?^u:00000056|0000052D|05601111)

matched $key: 00000056 in $error:
         $value: wrong old password

matched $key: 0000052D in $error:
         $value: new password does not meet complexity requirements

matched $key: 05601111 in $error:
         $value: Friends don't let friends use Doze
[download]

Note the use of qr in the declaration of the string you're trying to use (I think -- sorry, Xtal ball is gebroke!) as a regex... and, of course, the use of strict, warnings, etc.

...and that the irony in the messages IS intentional. :-)

++$anecdote ne $data

Comment on Re: regex match multiple line Select or Download Code

Replies are listed 'Best First'.
Re^2: regex match multiple line by natxo (Scribe) on Nov 26, 2014 at 22:48 UTC
Thanks! I get the irony ;-) In fact the $error is not the regex I want to match, but the other way round. I want to match the key of my hash as a regex to the error I get from Net::LDAP. I apologize for the confusion.	[reply]
Re^3: regex match multiple line by graff (Chancellor) on Nov 27, 2014 at 01:22 UTC
In case you haven't figured it out yet, you're really close. In your while loop, change this: `if ( $key =~ m/^$error.*/ ) {` [download] to this: `if ( $error =~ m/^$key:/ ) {` [download] Then again, maybe I totally misunderstood your question.	[reply] [d/l] [select]
Re^4: regex match multiple line by natxo (Scribe) on Nov 27, 2014 at 07:52 UTC
yes, that was the mistake :( Thanks!	[reply]
Re^3: regex match multiple line by james28909 (Deacon) on Nov 27, 2014 at 01:48 UTC
`while ( my ( $key, $value ) = each %pwd_reset_errors ) { if ( $key =~ m/^$error./ ) { ... }` [download] This iterates thru the hash list %pwd_reset_errors* right? So whats wrong with doing it like this above IF the key matches the error code? Why would you want to match it the other way around? I am just asking for better understanding :) To me its like you wanting to do soemthing of this nature: `my $one = 1; if ($one =~ 1){ ... }elsif(1 =~ $one){ ... }` [download] Why would it matter if $one eq 1 or 1 eq $one, they were both the same thing. But like i said i am just asking for better understanding. EDIT: I just realized that Net::LDAP error is quite different than your keys in the hash. You could split the error code from Net::LDAP so it just contains everything before ':' and then match either way. EDIT 2: I had to much coffee. ;l	[reply] [d/l] [select]