Hola necesito pasar este escript en perl a PHP:
#!/usr/local/bin/perl
if ( $ENV{'REQUEST_METHOD'} eq 'POST' ) {
my $str="";
while (<STDIN>) {$str=$str.$_;}
...
}
mi problema es que no encuentro el equivalente a:
while (<STDIN>) {$str=$str.$_;}
para capturar información que me llega vía POST
HE hecho esto:
if ($_SERVER['REQUEST_METHOD'] == 'POST'){
$consola = fopen("php://stdin", "r");
do { // Inicio del bucle
$read = trim(fread($consola, 512));
$cabeceras.=$read;
} while ($read != "");
echo "Saliendo...";
fclose($consola);
}
¿es correcto?
gracias a todos