Re: Assigning mapped regex to a list

Two problems: First, note that each qr// has its own set of modifiers, so the /mix modifiers don't affect those regexes, and the ^ anchors to the beginning of the string, not each line. Second, the || operator places the =~ m// operation into scalar context, so it won't return the list of capture groups, just a true/false value for success/failure. The following works for me:

my $pre_regex = qr/^\s*define\s*\(\s*['"]/mix;
my $post_regex = qr/['"]\s*,\s*['"]([^'"]+)['"]/mix;
($db, $db_user, $db_pass) =
    map { $string =~ /$pre_regex $_ $post_regex/mix ? $1 : 'unknown' }
    qw(DB_NAME DB_USER DB_PASSWORD);
[download]

However, having said that, I don't quite understand this approach. What is this you're trying to parse, some kind of config file? Parsing parenthesized and quoted stuff can easily become nontrivial (escaping, nesting, etc.), and this regex approach seems a little too simplistic.

Comment on Re: Assigning mapped regex to a list Select or Download Code

Replies are listed 'Best First'.
Re^2: Assigning mapped regex to a list by huck (Prior) on Feb 27, 2017 at 21:02 UTC
What is this you're trying to parse, some kind of config file? ~~It is a fragment of a wordpress/wp-admin/setup-config.php file~~ It is a fragment of a wordpress/wp-config.php file, uggg	[reply]
Re^3: Assigning mapped regex to a list by haukex (Archbishop) on Feb 27, 2017 at 21:15 UTC
It is a fragment of a \wordpress\wp-config.php file Ah, ok, that makes a bit more sense. Using Perl to parse PHP... fun ;-) I don't know much about WordPress so I don't know if there might be a better way to get at these values, but I can see how a hack like this might be acceptable/necessary, as long as it's just those three variables and not too much more. Of course, if whoever edits the config file uses any more complicated PHP syntax or expressions, the above regex will break.	[reply]
Re^4: Assigning mapped regex to a list by Anonymous Monk on Feb 27, 2017 at 21:26 UTC
Think about it. He's extracting info that pertains to setting up a database from the very tool that sets up the database. You are dealing with a very clever troll here.	[reply]
Re^3: Assigning mapped regex to a list by huck (Prior) on Feb 27, 2017 at 21:24 UTC
I wish i knew why i am only seeing my typos when i look at the posted page, and not in the preview or edit box in this case i hilited the wrong file before clicking on save-results in agent ransack. saw it clear as day in the post.	[reply]
Re^2: Assigning mapped regex to a list by nysus (Parson) on Feb 27, 2017 at 21:08 UTC
Ah, of course, the qr operator actually compiles the regex so it makes sense they get their own modifiers. And I never would have figured out the \|\| operator throwing into scalar. Perfect. Thanks so much. $PM = "Perl Monk's"; $MCF = "Most Clueless ~~Friar~~ ~~Abbot~~ ~~Bishop~~ ~~Pontiff~~ ~~Deacon~~ Curate"; $nysus = $PM . ' ' . $MCF; Click here if you love Perl Monks	[reply]
Re^3: Assigning mapped regex to a list by Anonymous Monk on Feb 27, 2017 at 21:08 UTC
And thank you for not telling anyone what you are trying to do with this code.	[reply]
Re^2: Assigning mapped regex to a list by Anonymous Monk on Feb 27, 2017 at 20:57 UTC
"I don't quite understand this approach." And this is why I did not answer the OP's question. Not explaining what his goal is shows that the OP himself probably does not know what he is doing at all. He is trolling you, you see. Wasting your time.	[reply]