Can anybody help me convert this perl code to PHP

This line in particular
while( /hidden name=(.*?)>/gs ) {

but I have included more of the source below:

Thanks in Advanace


undef $/;
#print "<p>$curlargs<p>";
#print "<p>$sysstring<p>";
open(foo, "$sysstring|")  ||  die ("Failed FO $!_");
# pull out the hidden fields...the pattern starts with "hidden name=" and
# ends with ">"
while( /hidden name=(.*?)>/gs ) {
# see if there was some kind of error
if(index($1, "ERROR") == 0) {
$errstring = $1;
$errstring =~ ( /value="(.*)"/ );

PHP General Mailing List (
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
To contact the list administrators, e-mail: [EMAIL PROTECTED]

Reply via email to