¡Hola!
¿¿¿Alguien sabe si hay alguna función en Perl que averigüe con qué navegador estoy abriendo la aplicación???
Necesito esto porque quiero mostrar los datos de un libro en un XML... pero Firefox no "detecta" la etiqueta <author> y Iexplorer sí. Lo que quiero hacer es lo siguiente:
Si uso Mozilla Firefox, el autor lo muestro en la etiqueta <description>.
Si uso Iexplorer, el autor lo muestro en la etiqueta <author>.
Podría, como último recurso, mostrar siempre el autor en la etiqueta <description> pero no querría hacer eso por el formato. La etiqueta <author> tiene un formato que me gusta más para mostrar el autor. La etiqueta <descripton> para mí que no tiene ningún formato especial...
¡¡¡Gracias!!!
-
- Publicidad
Función que averigüe el navegador que uso
5 mensajes
• Página 1 de 1
Función que averigüe el navegador que uso
por tammyrey » 2009-04-21 06:16 @303
- tammyrey
- Perlero nuevo
- Mensajes: 22
- Registrado: 2009-04-15 09:30 @437
Publicidad
por tammyrey » 2009-04-21 06:42 @321
He encontrado la siguiente función, que es probable que sirva:
Using perl Syntax Highlighting
#!/usr/bin/perl
# Example:
# print "Content-type: text/html\n\n";
# print is_firefox();
# /**
# * checks for user agent whether this is firefox or not
# * @param void
# * @return bool
# * @author svetoslavm##gmail.com
# * @link http://devquickref.com/
# */
sub is_firefox {
my $agent = '';
$agent = $ENV{"HTTP_USER_AGENT"} || '';
if (length($agent) && $agent =~ m/firefox/si) {
return 1;
}
return 0;
}
# Example:
# print "Content-type: text/html\n\n";
# print is_firefox();
# /**
# * checks for user agent whether this is firefox or not
# * @param void
# * @return bool
# * @author svetoslavm##gmail.com
# * @link http://devquickref.com/
# */
sub is_firefox {
my $agent = '';
$agent = $ENV{"HTTP_USER_AGENT"} || '';
if (length($agent) && $agent =~ m/firefox/si) {
return 1;
}
return 0;
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
- tammyrey
- Perlero nuevo
- Mensajes: 22
- Registrado: 2009-04-15 09:30 @437
por tammyrey » 2009-04-21 08:18 @387
:S como te dije... yo aún estoy un poco pez en esto del perl... ¿¿a qué te refieres con eso de ejecutarlo como si fuera un CGI??
Acabo de probarlo y me funciona... pero no sé el porqué... ahora solo me muestra el primer registro, no todos.... :S
Acabo de probarlo y me funciona... pero no sé el porqué... ahora solo me muestra el primer registro, no todos.... :S
- tammyrey
- Perlero nuevo
- Mensajes: 22
- Registrado: 2009-04-15 09:30 @437
por explorer » 2009-04-21 10:01 @459
En este sitio web hay una sección de Tutoriales, donde puedes ver la definición de un proceso CGI.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14482
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
5 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: Bing [Bot] y 2 invitados