PERL TO PHP
| From: | programmer | Date: | Wed, 12 Sep 2001 03:40:58 +0000 |
| Subject: | PERL TO PHP | ||
| Groups: | php.general | ||
| Request: | Send a blank email to php-general+get-66980@lists.php.net to get a copy of this message | ||
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="(.*)"/ );