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.004 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
