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
Randy
undef $/;
#print "<p>$curlargs<p>";
#print "<p>$sysstring<p>";
open(foo, "$sysstring|") || die ("Failed FO $!_");
while(<foo>){
# 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) {
$e="yes";
$errstring = $1;
$errstring =~ ( /value="(.*)"/ );
--
PHP General Mailing List (http://www.php.net/)
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
To contact the list administrators, e-mail: [EMAIL PROTECTED]
