Convert Perl Regex to PHP

[curtiss]

Is there any chance someone might be able to convert the following regex from Perl to PHP for me? I don't have a very firm grasp on regexes in Perl or PHP, so I'm not sure what I would use to achieve this same goal in PHP.

Basically, what the following code does is go through the value of a string, and pulls two separate variables out of that string (those variables are represented in the regex by "(.*?)"). Then, we can store those two things as separate variables.

				$setting =~ s/\'(.*?)\'\,\"(.*?)\"//ig;
				my $tag   = $1;
				my $value = $2;

I could probably use something like:

$setting = preg_replace('/\'\,"/','|',$setting);
$setting = preg_replace('/\'/','',$setting);
$setting = preg_replace('/"/','',$setting);
$setting = preg_split('/|/',$setting);
$tag = $setting[0];
$value = $setting[1];

but that seems like an awful lot of code to accomplish three lines of Perl.

[Till]

What you want is PHP's preg_match_all().

[curtiss]

Huzzah!

It worked. Thank you. It took quite a bit of work to figure out exactly how that function works, but I did finally figure it out, and I've got it working nicely.

Thank you.

Just so you know, this is the code I finally ended up using:

				preg_match_all('/\'(.*)\'\,\"(.*)\"/', $setting, $settings, PREG_PATTERN_ORDER);
				$tag = "yabb_".$settings[1][0];
				$value = $settings[2][0];
				$$tag = $value;

[curtiss]

Okay, so I've got a new, related problem.

I'm now trying to parse a Perl file that contains a bunch of variables. Unfortunately, the file contains variables that are defined in the following four different ways:

$var_name = 1;
$var_name = "text";
$var_name = q^Lots of text^;
$var_name = qq~Even more text~;

I'm not sure how to parse this file. I orginally thought about simply wrapping the whole string with <?php ?> tags, and parsing it that way, but PHP won't recognize the variables defined with the q^. I then tried using a preg_match_all regex (which I think is the best way to go), but unfortunately, I don't know how to use the "|" identifier when one of your possibilities is nothing.

For instance, here is one of the many configurations I've tried:

preg_match_all('/\$(.*) = ("|q\^|qq~|)(.*)(|\^|"|~)\;(.*)/',$ysetting,$out, PREG_PATTERN_ORDER);

That almost gets me what I want, but, unfortunately, it is not taking the terminating quote, ^, etc. off the end of the variable definition on some of my variables. Even stranger, on one or two of the variable definitions, it actually cuts out my variable definition altogether.

Here is the full code I'm currently using to get this info:

$ysettings = file("$varsdir/Settings.pl") OR die("Could not access Settings.pl");

foreach($ysettings as $ysetting) {
	chomp($ysetting);
	preg_match_all('/\$(.*) = ("|q\^|qq~|)(.*)(|\^|"|~)\;(.*)/',$ysetting,$out, PREG_PATTERN_ORDER);
	if($out[0][0] == "") {
		next($ysettings);
	}
	else {
		$tag = "yabb_".$out[1][0];
		$value = $out[3][0];
		$message .= "$tag = $value<br />";
		$$tag = $value;
	}
}

You can see the output of the variable definitions by going to http://dchelp.net/yabblog/

I'm working on a PHP login script that uses a bunch of information from a user's YaBB forum in order to allow them to log users into their boards through their web sites. The output of the entire login script is what you'll see when you click on the link above. I've got temporary debug information in there right now that shows you the output from the block of code I posted above (the information that's added to "$message" during the foreach loop).

EDIT - I've also attached the Perl file that I'm trying to parse with this code, in case you need to see that. I've saved it as a txt file, but, on the user's server, it will actually be a PL file.