Помогите переписать кусочек кода на perl в php
$sysstring = "curl + url";
open(foo,"$sysstring); # в php нет такой функции...
while(<foo>){ # на скобки тоже ругается...
# Пока поступают данные, проверяем на наличие в них слова "hidden"
while( /hidden name=(.*?)>/gs ) {
if(index($1, "ERROR") == 0) {
$errstring = $1;
$errstring =~ ( /value="(.*)"/ );
print "Error on preview is: $1\n";
}
}
---
Я новичек в php, помогите если не трудно, а там я дальше по аналогии...
|