 Dom Mar 26, 2006 4:42 pm
|
 |
Iojis
Perlero Nuevo
|
Registrado: 26 Mar 2006
Mensajes: 9
|
|
| Emoticons en foro PERL... |
 |
|
Que tal de nuevo... Gracias por la ayuda brindada anteriormente, pero debo decir que no supe arreglarla segun mis necesidades. Es por eso que estoy pensando en soluciones alternativas.
La priemra que se me ocurrio es la que tienen muchos foros actualmente, un pop-up donde uno eliga la imagen que quiere, y esta automaticamente es trasladada a la casilla de texto donde esta el mensaje.
Yo estoy buscando un explicacion a esto en los tutorialesssss, pero no la encuentro.
Me serviria de mucho una ayuda u orientacion...
Mil gracias
Iojis
Path4x4.com
pd: Si quieren pueden ver el foro en Path4x4.com |
|
|
|
|
Lun Mar 27, 2006 5:24 am
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4084
Ubicación: Valladolid, España
|
|
|
|
|
Quizás si nos dieses más pistas de qué es lo que te pasaba...
En este foro se hace el mismo truco. Las caras se ponen como caracteres especiales o como palabras especiales, y luego, en el php que genera la página, se cambia a la imagen del emoticon.
Pero lo que se puede hacer en php en directo, también se puede hacer en Perl...
¿No te funcionó lo que te mandé? |
|
|
Lun Mar 27, 2006 3:39 pm
|
|
Iojis
Perlero Nuevo
|
Registrado: 26 Mar 2006
Mensajes: 9
|
|
| re: emoticons en perl |
|
|
no se si no lo supe usar o cual fue el drama, pero no me funciono.
Lo que quiero hacer es lo que esta hecho en phpBB el mismo sistema de emoticons, pero no puedo pensar de que manera hacer que se traslade la imagen o el codigo : ) al text box.
este es el codigo que tengo hasta ahora.....
| Código: |
$body =~ s/\:\)/[img src="http:\/\/path4x4.com\/bullets\/feliz.gif"]/g;
$body =~ s/\:\(/[img src="http:\/\/path4x4.com\/bullets\/triste.gif"]/g;
$body =~ s/d:/[img src="http:\/\/path4x4.com\/bullets\/boina.gif"]/g;
$body =~ s/:S/[img src="http:\/\/path4x4.com\/bullets\/confundido.gif"]/g;
$body =~ s/#16/[img src="http:\/\/path4x4.com\/bullets\/risa.gif"]/g;
$body =~ s/#10/[img src="http:\/\/path4x4.com\/bullets\/guino.gif"]/g;
$body =~ s/#19/[img src="http:\/\/path4x4.com\/bullets\/verguenza.gif"]/g;
$body =~ s/#23/[img src="http:\/\/path4x4.com\/bullets\/exclamacion.gif"]/g;
$body =~ s/#22/[img src="http:\/\/path4x4.com\/bullets\/pregunta.gif"]/g;
$body =~ s/#5/[img src="http:\/\/path4x4.com\/bullets\/contento.gif"]/g;
$body =~ s/#6/[img src="http:\/\/path4x4.com\/bullets\/cool.gif"]/g;
$body =~ s/#24/[img src="http:\/\/path4x4.com\/bullets\/flecha.gif"]/g;
$body =~ s/#7/[img src="http:\/\/path4x4.com\/bullets\/decepcionado.gif"]/g;
$body =~ s/#8/[img src="http:\/\/path4x4.com\/bullets\/diablo.gif"]/g;
$body =~ s/#18/[img src="http:\/\/path4x4.com\/bullets\/sorprendido.gif"]/g;
$body =~ s/#17/[img src="http:\/\/path4x4.com\/bullets\/sonrisa.gif"]/g;
$body =~ s/#15/[img src="http:\/\/path4x4.com\/bullets\/pensativo.gif"]/g;
$body =~ s/#13/[img src="http:\/\/path4x4.com\/bullets\/neutral.gif"]/g;
$body =~ s/#14/[img src="http:\/\/path4x4.com\/bullets\/mrgreen.gif"]/g;
$body =~ s/#11/[img src="http:\/\/path4x4.com\/bullets\/lloron.gif"]/g;
$body =~ s/#12/[img src="http:\/\/path4x4.com\/bullets\/loco.gif"]/g;
$body =~ s/#3/[img src="http:\/\/path4x4.com\/bullets\/increible.gif"]/g;
$body =~ s/#21/[img src="http:\/\/path4x4.com\/bullets\/idea.gif"]/g;
$body =~ s/#9/[img src="http:\/\/path4x4.com\/bullets\/enojado.gif"]/g;
|
es demasiado tedioso manejar eso, es un lio de codigo para hacer una pavada, por eso quiero acortar un poco el codigo buscando formas alternativas.
gracias por la ayuda.
iojis.
Path4x4.com |
|
|
Lun Mar 27, 2006 4:20 pm
|
|
kidd
Creador de Perl en Español
|
Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México
|
|
|
|
|
Hola:
Tienes razón es demasiado complicado como lo tienes y muy díficil de mantener, así que se me ocurre una solución:
| Código: |
#Declara aquí todos tus emoticons
#USAGE:
# [simbolo] => [imagen]
my %Emoticon =(
':)' => 'feliz.gif',
':-)' => 'feliz.gif',
':S' => 'confundido.gif',
'#16' => 'risa.gif',
'#10' => 'guino.gif'
);
#El URL a las imagenes de tus emoticons
my $emoticon_url = 'http://path4x4.com/bullets/';
|
Y después ya puedes hacer:
| Código: |
#Sustituir los emoticons
for my $key(keys %Emoticon){
my $code = "[img src=\"$emoticon_url"."$Emoticon{$key}\"]";
$body =~ s{\Q$key\E}{$code}gxsm;
}
|
Saludos |
|
|
Lun Mar 27, 2006 5:41 pm
|
|
Iojis
Perlero Nuevo
|
Registrado: 26 Mar 2006
Mensajes: 9
|
|
| buenisimo....... |
|
|
m encanto la idea............. ahora m voy a poner a probar........ mil gracias.
Iojis
Path4x4.com |
|
|
Lun Mar 27, 2006 5:48 pm
|
|
Iojis
Perlero Nuevo
|
Registrado: 26 Mar 2006
Mensajes: 9
|
|
| .. |
|
|
Excelente, funciono a la perfeccion.......... MUCHAS GRACIAS.!
Iojis
Path4x4.com |
|
|
Lun Mar 27, 2006 6:33 pm
|
|
kidd
Creador de Perl en Español
|
Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México
|
|
| Re: .. |
|
|
| Iojis escribió: | | Excelente, funciono a la perfeccion.......... MUCHAS GRACIAS! |
No hay problema  |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
