Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 

Usar AdSense de Google con Perl

 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Intermedio
Mensaje Jue Feb 02, 2006 6:04 pm
mydaboin
Perlero Nuevo
Perlero Nuevo
Registrado: 22 Abr 2004
Mensajes: 59
Ubicación: Pues Aqui, Preguntando
Usar AdSense de Google con Perl Responder citando

Hola como estan???

espero que bien, a ver si me ayudan con este pequeño problema.

necesito incluir una publicidad de google, la cual me da el siguiente codigo automatico:

<script type="text/javascript"><!--
google_ad_client = "pub-08559655624545";
google_ad_width = 468;
google_ad_height = 60;
google_ad_format = "468x60_as";
google_ad_type = "text_image";
google_ad_channel ="";
google_page_url = document.location;
google_color_border = ["FDFFCA","CCCCCC"];
google_color_bg = ["FDFFCA","FFFFFF"];
google_color_link = ["0000CC","000000"];
google_color_url = ["008000","666666"];
google_color_text = ["000000","333333"];
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>

como haría para adaptar este codigo a un .pl, hice un intento fallido el cual no mostro error pero no mostro la información ... mmm. .. respuestas??? .. sugerencias???
Mensaje Vie Feb 03, 2006 6:28 am
explorer
Moderador
Moderador
Registrado: 24 Jul 2005
Mensajes: 4130
Ubicación: Valladolid, España
Responder citando

Esto no es más que un trozo de código Javascript que debes meter dentro del código html de tu página web.
Si la página web la generas a través de un programa perl, tal cual le debe llegar al cliente, que es al final el que hace la petición a Google para que muestre los anuncios.
Debes comprobar que la salida del programa perl es una página html correcta. Lo puedes comprobar guardando la salida a un fichero externo, por ejemplo, prueba.html, y luego pruebas a leerlo desde tu navegador, a ver qué sale.
Mensaje Vie Feb 03, 2006 9:05 am
kidd
Creador de Perl en Español
Creador de Perl en Español
Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México
Responder citando

Hola:

Tiene razón explorer, básicamente deberías tener algo así:

Código:

print "Content-type: text/html\n\n";

print qq~
<script type="text/javascript"><!--
google_ad_client = "pub-08559655624545";
google_ad_width = 468;
google_ad_height = 60;
google_ad_format = "468x60_as";
google_ad_type = "text_image";
google_ad_channel ="";
google_page_url = document.location;
google_color_border = ["FDFFCA","CCCCCC"];
google_color_bg = ["FDFFCA","FFFFFF"];
google_color_link = ["0000CC","000000"];
google_color_url = ["008000","666666"];
google_color_text = ["000000","333333"];
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
~;



SALUDOS
Mensaje Sab Feb 04, 2006 8:50 am
mydaboin
Perlero Nuevo
Perlero Nuevo
Registrado: 22 Abr 2004
Mensajes: 59
Ubicación: Pues Aqui, Preguntando
Responder citando

kidd escribió:
Hola:

Tiene razón explorer, básicamente deberías tener algo así:

Código:

print "Content-type: text/html\n\n";

print qq~
<script type="text/javascript"><!--
google_ad_client = "pub-08559655624545";
google_ad_width = 468;
google_ad_height = 60;
google_ad_format = "468x60_as";
google_ad_type = "text_image";
google_ad_channel ="";
google_page_url = document.location;
google_color_border = ["FDFFCA","CCCCCC"];
google_color_bg = ["FDFFCA","FFFFFF"];
google_color_link = ["0000CC","000000"];
google_color_url = ["008000","666666"];
google_color_text = ["000000","333333"];
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
~;



SALUDOS


si es cierto, ya se hizo en HTML, pero no se quiere insertar en un top o un lateral, sino al final de presisamente un .pl, me explico, nosotros tenemos una seccion de noticias, donde se encuentran los titulos de las noticias es en perl, www.800guia.com/800tips se requiere que justo al final de esta hoja, se vea la dichosa publicidad de google, cuando se introduce dentro del área de html, encasilla el área de noticias, viendose como un cajon, y no se desea este efecto, sino que que justo al final de todas las noticias, salga la dichosa propaganda de google, para ello debo incluirla en mi scrip justo despues de mostrar todos los titulos de las noticias, la llamo por ejemplo:

&google;

en esta área, debería aplicar la propaganda que me fue dado para HTML, pero adaptado a perl, consegui una forma pero no funciona, otra seria llamar una imagen cualquiera y posecionar el archivo html sobre esta, comúnmente se hace así, ya que sobre el top se muestra la propaganda en las paginas echas en html o en PHP, ahora se puede o no mostrar esa publicidad adaptada a perl????.


Por lo que veo debere empaparme en dreamweaver, para hacer las plantillas y ver si así no tendre tantos problemas para mostrar esta publicidad, de todas formas les agradecería de antemano en lo que me puedan ayudar, gracias.
Mensaje Sab Feb 04, 2006 9:59 am
g013m
Perlero Nuevo
Perlero Nuevo
Registrado: 15 Jul 2005
Mensajes: 15
Responder citando

Puedes crear plantillas HTML y separarlas de tu código Perl, creo que esa es la manera más efectiva de crear páginas o aplicaciones web, esto lo puedes hacer usando algunos módulos como HTML::Template, Template Toolkit, en la página hay un pequeño Tutorial de HTML::Template.
Lo que harias es crear la plantilla HTML en un lado y todo lo que vayas a hacer en Perl en otro y listo, no te enredas tanto con eso Wink

Saludos.
Mensaje Sab Feb 04, 2006 10:03 am
explorer
Moderador
Moderador
Registrado: 24 Jul 2005
Mensajes: 4130
Ubicación: Valladolid, España
Responder citando

mydaboin escribió:
para ello debo incluirla en mi scrip justo despues de mostrar todos los titulos de las noticias, la llamo por ejemplo:

&google;

en esta área, debería aplicar la propaganda que me fue dado para HTML, pero adaptado a perl.

Por lo que veo debere empaparme en dreamweaver, para hacer las plantillas y ver si así no tendre tantos problemas para mostrar esta publicidad, de todas formas les agradecería de antemano en lo que me puedan ayudar, gracias.

Yo veo que la parte de noticias no es más que una tabla. Si la propaganda quieres que vaya al final, primero métela dentro de un campo div con alineamiento centrado después de la tabla, y dentro de él, el código que te ha pasado Google. Eso lo puedes hacer de forma muy sencilla en el código Perl con sólo pintar la parte de Google después de haber hecho la tabla.
Veo que tienes puesto que ha de ser un banner gráfico de 468x60 puntos. Como no sabemos cómo será ese gráfico, lo que más puede desentonar son los colores del banner con los colores de fondo de la página (blanco). Pero ahí no puedes influir...
¿No puedes decirnos más claramente el error que te da? ¿O es que no sale nada directamente? En ese caso necesitaríamos ver algo de código para ver qué es lo que haces.
Mensaje Sab Feb 04, 2006 11:00 am
kidd
Creador de Perl en Español
Creador de Perl en Español
Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México
Responder citando

Hola:

En ese caso es sumamente sencillo, por ejemplo:

Código:

#Creamos la función google
sub google{

print qq~
<script type="text/javascript"><!--
google_ad_client = "pub-08559655624545";
google_ad_width = 468;
google_ad_height = 60;
google_ad_format = "468x60_as";
google_ad_type = "text_image";
google_ad_channel ="";
google_page_url = document.location;
google_color_border = ["FDFFCA","CCCCCC"];
google_color_bg = ["FDFFCA","FFFFFF"];
google_color_link = ["0000CC","000000"];
google_color_url = ["008000","666666"];
google_color_text = ["000000","333333"];
//--></script>

<p>

<table>
<td>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</td>
</table>
~;

}



Entonces en tu script, ya cuando hayas terminado todas las funciones para imprimir tu noticia puedes poner:

Código:

google();



SALUDOS
Mensaje Lun Feb 06, 2006 8:50 am
mydaboin
Perlero Nuevo
Perlero Nuevo
Registrado: 22 Abr 2004
Mensajes: 59
Ubicación: Pues Aqui, Preguntando
Responder citando

Muchas, muchassss gracias a todos, Kidd esta perfecto ahora ... Very Happy
Publicar nuevo tema   Responder al tema    Foros de discusión -> Intermedio Todas las horas son GMT - 6 Horas
Página 1 de 1



Powered by phpBB © 2001, 2005 phpBB Group