Conversión de Perl a PHP
![Nota Nota](https://perlenespanol.com/foro/styles/prosilver/imageset/icon_post_target.gif)
Hola a todos, soy nuevo en el foro. Me encargaron la conversión de un script escrito en Perl a PHP y, aunque alguna vez hice algo en Perl, estoy teniendo problemas para entender esta parte del código:
Un ejemplo de valor de esa cookie es: 200.89.160.121.4741192116196533
Básicamente no sé qué es lo que tendría que asignar a $val.
¿Alguien me puede dar una pista?
Gracias
Using perl Syntax Highlighting
sub getCookie {
my %cookies = fetch CGI::Cookie;
my @arryCookies=(((exists $cookies{'test'}) && ($cookies{'test'}->value)) ? $cookies{'test'}->value : (''));
return $arryCookies[0];
}
my $cookie_id = &getCookie;
my ($val) = $cookie_id =~ /\d+\.\d+\.\d+\.\d+\.(.*)/;
my %cookies = fetch CGI::Cookie;
my @arryCookies=(((exists $cookies{'test'}) && ($cookies{'test'}->value)) ? $cookies{'test'}->value : (''));
return $arryCookies[0];
}
my $cookie_id = &getCookie;
my ($val) = $cookie_id =~ /\d+\.\d+\.\d+\.\d+\.(.*)/;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Un ejemplo de valor de esa cookie es: 200.89.160.121.4741192116196533
Básicamente no sé qué es lo que tendría que asignar a $val.
¿Alguien me puede dar una pista?
Gracias