Perl to PHP
| From: | programmer | Date: | Wed, 12 Sep 2001 07:30:54 +0000 |
| Subject: | Perl to PHP | ||
| References: | 1 | Groups: | php.general |
| Request: | Send a blank email to php-general+get-67121@lists.php.net to get a copy of this message | ||
Here is a chunk of code:
while( /hidden name=(.*?)>/gs ) {
# see if there was some kind of error
####################################
if(index($1, "ERROR") == 0) {
$errstring = $1;
$errstring =~ ( /value="(.*)"/ );
print "Error on preview is: $1\n";
exit -1;
###########################################
Can anybody convert the code to PHP surounded by #
Thanks,
Randy
}