Untitled Document

From gsanin@ventuer.com Wed May 1 14:59:05 2002 From: gsanin@ventuer.com (Gonzalo Sanin) Date: Wed, 01 May 2002 10:59:05 -0400 Subject: [Perl] Seminario en Dallas "Seguridad Total en sus Sistemas" Message-ID: --------------070609090005060500000207 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit --------------070609090005060500000207 Content-Type: text/html; charset=us-ascii; name="Spanish Version.html" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="Spanish Version.html" Untitled Document

Seguridad Total en sus Sistemas es un evento de dos días que dará respuesta a muchas preguntas que se hacen hoy día las compañías acerca de la seguridad en sus sistemas. Ya sea su negocio pequeño ó una gran multinacional, Usted aprenderá recomendaciones valiosas y técnicas para prevenir innecesarios momentos fuera de linea y en efecto una perdida de ingresos.

Día 1:

Técnicas del Hacker - Tres horas de Presentación-Discusión acerca de como los hackers logran acceso a sus sistemas y que hacer para prevenirlo.

Políticas de Seguridad - Como desarrollar políticas de seguridad..

Firewalls - Una demostración de las tecnologías de Firewall y como configurarlol. Presentación del Watchguard Firewall 1000.

Día 2:

Virtual Private Network (VPN) - Un día completo de Presentación- Discusión de diversas implementaciones de VPN y la tecnología utilizada para asegurar sus datos.

IPSec
PPTP
Certificados Digitales
Firmas Digitales

Ventuer Services Presenta

Seguridad Total en sus Sistemas
Dallas, Texas

Mayo 13 y 14, 2002

$495 por persona

Lugar:
The Women's Museum
3800 Parry Avenue
Dallas, TX 75226

Para Registrarse <click aqui>

ó
llamar a nuestras oficinas al 954-434-0056
Davie, Florida USA



Descubra entrenamiento adicional y oportunidades de seminarios traídos a ustedes por Ventuer Services, Inc.

Ventuer Services ofrece ambos, entrenamiento en nuestro salón de clases ó en el sitio de nuestros clientes en cualquier parte, no importa que tan remoto sea el lugar.

Chequea nuestra página web para detalles en los cursos de las siguientes compañías de tecnología:

Watchguard Technologies
Redhat Linux
Citrix Systems
Tarantella
Packeteer

Para información <click aqui>

@Ventuer Services también brinda consultoría técnica y servicios de integración de sistemas.

Para mayor información, por favor visite nuestro sitio web www.ventuer.com ó contactenos llamando al (954).434-0056

Para remover de esta lista <click aqui>

--------------070609090005060500000207 Content-Type: text/plain; charset="ISO-8859-1" Content-Disposition: inline ############################################################# This message is sent to you because you are subscribed to the mailing list . To unsubscribe, E-mail to: To switch to the DIGEST mode, E-mail to To switch to the INDEX mode, E-mail to Send administrative queries to --------------070609090005060500000207-- From randrade@abl.com.mx Mon May 6 16:47:01 2002 From: randrade@abl.com.mx (Roberto Andrade Fonseca) Date: 06 May 2002 11:47:01 -0500 Subject: [Perl] Preparando la =?ISO-8859-1?Q?reuni=F3n?= de mayo Message-ID: <1020703621.12054.2.camel@ingrid.andrade.casa> Hola: Ya estoy preparando la reuni=F3n de Perl Mongers ValleMexico del mes mayo. Ya habl=E9 con Ra=FAl G=F3mez, estamos solicitando el auditorio de la CFE p= ara el jueves 23 de mayo a las 16:00 horas. Temas posibles: 1. Continuamos con mod_perl, Gran Jefe y Perl 6. Salvador Ortiz. 2. Tengo una propuesta de un porgrama en Perl: sql-ledger. Por h . 3. =BFQu=E9 es Perl Mongers ValleMexico?. Roberto Andrade F. 4. Asuntos varios. Esta tem=E1tica es preliminar, por favor confirmen, corrijan o env=EDen nuevas propuestas. --=20 Saludos, Roberto Andrade Fonseca randrade@abl.com.mx From aldus@todito.com Mon May 6 20:27:38 2002 From: aldus@todito.com (Luis Medrano Zaldivar) Date: Mon, 6 May 2002 15:27:38 -0500 (CDT) Subject: [Perl] como tener control sobre paginas de web Message-ID: <200205062027.g46KRcr1370138@cmail2.todito.com> Hola Lista, Tengo un problema me acaband de encargar un script para llevar las estadisticas de mas de mil paginas por ejemplo: Cual pagina tiene la mayor cantidad de visitas horas de mayor trafico por pagina y demas. Mi pregunta alguien tiene una idea de como puedo atacar este problema??.. Saludos, Luis -- From nezumi@prodigy.net.mx Tue May 7 11:39:15 2002 From: nezumi@prodigy.net.mx (Alejandro G. Bedoya) Date: Tue, 07 May 2002 06:39:15 -0500 Subject: [Perl] como tener control sobre paginas de web References: <200205062027.g46KRcr1370138@cmail2.todito.com> Message-ID: <008b01c1f5bb$d18183a0$0400a8c0@chicas.com.mx> Revisa las estadisticas del apache... --- Sinceramente... Alejandro G. Bedoya InterAccion.COM Ponemos su Internet en Acci=F3n ----- Original Message ----- =46rom: "Luis Medrano Zaldivar" To: Sent: Monday, May 06, 2002 3:27 PM Subject: [Perl] como tener control sobre paginas de web > Hola Lista, > > Tengo un problema me acaband de encargar un script para > llevar las estadisticas de mas de mil paginas por ejemplo: > > Cual pagina tiene la mayor cantidad de visitas > horas de mayor trafico por pagina > y demas. > > Mi pregunta alguien tiene una idea de como puedo atacar > este problema??.. > > Saludos, > Luis > > -- > > > _______________________________________________ > Perl mailing list > Perl@tlali.iztacala.unam.mx > http://tlali.iztacala.unam.mx/mailman/listinfo/perl > From aldus@todito.com Wed May 8 22:58:46 2002 From: aldus@todito.com (Luis Medrano Zaldivar) Date: Wed, 8 May 2002 17:58:46 -0500 (CDT) Subject: [Perl] Concatenando variables Message-ID: <200205082258.g48MwkH1264184@cmail2.todito.com> Lista, Tengo una duda como le puedo hacer una concatenacion de la siguiente forma: @foo=$foouno.$foodos.@fooarray.$footres De ante mano yo se que esto no esta jalando. Pero mi pregunta es como puedo hacer para vaciar todas esas variables en @foo en el orden en que estan en el ejemplo anterior. Saludos, Luis -- From gwolf@campus.iztacala.unam.mx Wed May 8 23:11:58 2002 From: gwolf@campus.iztacala.unam.mx (Gunnar Wolf) Date: Wed, 8 May 2002 18:11:58 -0500 (CDT) Subject: [Perl] Concatenando variables In-Reply-To: <200205082258.g48MwkH1264184@cmail2.todito.com> Message-ID: > Lista, > > Tengo una duda como le puedo hacer una concatenacion de > la siguiente forma: > > @foo=3D$foouno.$foodos.@fooarray.$footres > > De ante mano yo se que esto no esta jalando. Pero mi > pregunta es como puedo hacer para vaciar todas esas > variables en @foo en el orden en que estan en el ejemplo > anterior. No est=E1s hablando de variables escalares, sino que de una lista, por lo que no tiene sentido hablar de una concatenaci=F3n. Enl=EDstalas: @foo=3D($foouno,$foodos,@fooarray,$footres); Saludos, --=20 Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52-55)5623-1118 PGP key 1024D/8BB527AF 2001-10-23 Fingerprint: 0C79 D2D1 2C4E 9CE4 5973 F800 D80E F35A 8BB5 27AF From alex@iztacala.unam.mx Wed May 8 23:17:32 2002 From: alex@iztacala.unam.mx (Jesus Alejandro Juarez Robles) Date: Wed, 8 May 2002 18:17:32 -0500 (CDT) Subject: [Perl] Concurso para elegir el logotipo del Congreso Nacional de Software Libre 2003 In-Reply-To: <200205082258.g48MwkH1264184@cmail2.todito.com> Message-ID: CONSOL Congreso Nacional de Software Libre Despu=E9s de la buena aceptaci=F3n que tuvo el Congreso Nacional de Softwar= e Libre 2002, y en virtud de que no contamos con un logotipo generado por la comunidad, el Comit=E9 Organizador lanza la presente CONVOCATORIA Se convoca a los usarios del software libre, a dise=F1adores gr=E1ficos, artistas pl=E1sticos y al p=FAblico en general a participar en el Concurso = para elegir el logotipo del Congreso Nacional de Software Libre 2003, seg=FAn la= s siguientes REGLAS 1. Podr=E1 participar cualquier persona, sin importar su nacionalidad, lu= gar de residencia, edad o gen=E9ro. 2. Debe enviar al Comit=E9 Organizador un logotipo de 300 x 300 pixels co= mo dimensiones m=E1ximas. El logotipo no debe ser animado, llevar=E1 tres tintas o colores como m=E1ximo, y ser=E1 presentado para el concurso ya sea en formato .PNG = o .JPG. 3. Para participar en este concurso se deber=E1n enviar los datos solicitados en el formulario localizado en: http://www.consol.org.mx/cgi-bin/logo/envio.cgi Los datos solicitados son: nombre, direcci=F3n postal, tel=E9fono y co= rreo electr=F3nico. El formulario le permite enviar el archivo gr=E1fico correspondiente. 4. Los trabajos enviados se convertir=E1n propiedad del CONSOL. Se dar=E1 cr=E9dito por su autor=EDa a el o los autores. El logotipo podr=E1 ser utilizado en la p=E1gina web, diplomas, gafete= s, programas, papeler=EDa, publicidad, playeras, gorras y otros art=EDcul= os promocionales del congreso. 5. Los premios para los ganadores del concurso son: o Primer Lugar + Entrada Gratuita al Programa de Conferencias del CONSOL 2003 + Entrada Gratuita a los tutoriales o cursos que se impartan e= n el CONSOL 2003 + Una gorra y una playera del CONSOL 2003 + Diploma o Segundo y Tercer Lugares + Entrada Gratuita al Programa de Conferencias del CONSOL 2003 + Una gorra y una playera del CONSOL 2003 + Diploma 6. La convocatoria que abierta a partir de las 00:00 horas del 9 de mayo de 2002 y se cierra a las 24:00 del 31 de mayo de 2002. 7. Todos los trabajos enviados se expondr=E1n una vez finalizado el concu= rso 8. El jurado est=E1 formado por el Comit=E9 Organizador, quien podr=E1 auxiliarse de las personas que considere conveniente para la selecci= =F3n de los trabajos ganadores. 9. Los resultados son inapelables. 10. Cualquier situaci=F3n no definida en las presentes reglas ser=E1 resue= lta por el Comit=E9 Organizador. Si tiene alguna duda escriba a comite@softwarelibre.org.mx Alex -- alex@OpenBSD.Org.MX From jcgalici@cbbanorte.com.mx Thu May 9 17:09:19 2002 From: jcgalici@cbbanorte.com.mx (Jose Antonio Galicia) Date: Thu, 9 May 2002 12:09:19 -0500 (CDT) Subject: [Perl] OT: Oferta laboral Message-ID: Para llevar a buen puerto una aplicaci=F3n que estamos desarrollando requerimos de un par de perleros. El proyecto implica acceso a base de datos, manejo de XML, mod_perl y esas cochinadas. El trabajo ser=EDa como externos con posibilidad de ser contratado a futuro. Interesados mandar curriculum y ejemplos de c=F3digo a: jcgalici@cbbanorte.com.mx Saludos, To=F1o. --- I can hire one half of the working class to kill the other half. -- Jay Gould From maximoaparicio77@hotmail.com Sun May 12 04:45:34 2002 From: maximoaparicio77@hotmail.com (maximo aparicio) Date: Sun, 12 May 2002 00:45:34 -0400 Subject: [Perl] hola amigos Message-ID: hola como estan, tengo un problemita con perl me gustaria que me pudiesen ayudar, estoy haciendo mi tesis para una empresa que administra ISP de internet , mi tesis consiste en administrar algunos de los servicios de un ISP, estoy haciendo el modulo de seguridad del sistema y la verdad es el modulo de mayor importancia del proyecto, yo estoy ahciendo con cookie.lib pero no se manejarlo bien , no se si me podrian ayudar cual seria la mejor forma de realizar un modulo de seguridad en perl .. la idea es que se introduzcan login y pasword eso ya esta ya lo tengo , el problema es cuando el cliente se loguea por un brouser entonces ya el no puede abrir otro para pedir la pagina .pl asi que eso yo devo controlarlo tambien, bueno les agradeceria su ayuda amigos.... _________________________________________________________________ Hable con sus amigos en línea, pruebe MSN Messenger: http://messenger.msn.es From randrade@abl.com.mx Tue May 14 21:55:05 2002 From: randrade@abl.com.mx (Roberto Andrade Fonseca) Date: 14 May 2002 16:55:05 -0500 Subject: [Perl] (OT) En busca de programadores Message-ID: <1021413305.1659.8.camel@ingrid.andrade.casa> Hola: Tengo en puerta algunos proyectos en Perl, con MySQL y PostgreSQL, as=ED que necesito conocer la disponibilidad de programadores. Por favor env=ECen curr=ECculum, que contenga: Nombre Edad Domicilio Tel=E9fono(s) e-mail Escolaridad Indicar ------- Habilidades: perl, cgi, mod_perl. Mason, AxKit, DBI/DBD, HTML, Javascript, XML, MySQL, PostgreSQL, Oracle, Interbase, Informix,SGML, LaTex, Apache, PHP,... Posibilidad de capacitar en los puntos anteriores: =BFcu=E0les? (NO deben manejar todo, don't worry) Disponibilidad de tiempo Proyectos realizados Salario deseado Contestar en privado. --=20 Saludos, Roberto Andrade Fonseca randrade@abl.com.mx From mcjeduardo@yahoo.com Wed May 15 18:56:42 2002 From: mcjeduardo@yahoo.com (=?iso-8859-1?q?Eduardo=20Martinez?=) Date: Wed, 15 May 2002 20:56:42 +0200 (CEST) Subject: [Perl] Graficando con Perl Message-ID: <20020515185642.47826.qmail@web11606.mail.yahoo.com> Hola a todos. ¿Alguien conoce algún módulo para graficar con Perl? Tengo una tabla de datos en texto plano y quiero graficarlos y generar un PNG para poder ponerlos en un HTML. Gracias por su ayuda. ===== "Do or Do Not, there is no try" -Yoda. The Empire Strikes Back _______________________________________________________________ Do You Yahoo!? Yahoo! Messenger Comunicación instantánea gratis con tu gente. http://messenger.yahoo.es From mcjeduardo@yahoo.com Wed May 15 18:56:42 2002 From: mcjeduardo@yahoo.com (=?iso-8859-1?q?Eduardo=20Martinez?=) Date: Wed, 15 May 2002 20:56:42 +0200 (CEST) Subject: [Perl] Graficando con Perl Message-ID: <20020515185642.50903.qmail@web11603.mail.yahoo.com> Hola a todos. ¿Alguien conoce algún módulo para graficar con Perl? Tengo una tabla de datos en texto plano y quiero graficarlos y generar un PNG para poder ponerlos en un HTML. Gracias por su ayuda. ===== "Do or Do Not, there is no try" -Yoda. The Empire Strikes Back _______________________________________________________________ Do You Yahoo!? Yahoo! Messenger Comunicación instantánea gratis con tu gente. http://messenger.yahoo.es From francisco@vmicrosistemas.com Thu May 16 03:15:34 2002 From: francisco@vmicrosistemas.com (Fco. Valladolid Hdez.) Date: Wed, 15 May 2002 22:15:34 -0500 (CDT) Subject: [Perl] Graficando con Perl In-Reply-To: <20020515185642.50903.qmail@web11603.mail.yahoo.com> Message-ID: Gd.pm. creo que hace algo asi.. o checate algo en cpan.org Saludos. Fco. Valladolid Hdez. --- ---------------------------- francisco@vmicrosistemas.com http://vmicrosistemas.com On Wed, 15 May 2002, [iso-8859-1] Eduardo Martinez wrote: > Hola a todos. > > =BFAlguien conoce alg=FAn m=F3dulo para graficar con Perl? > Tengo una tabla de datos en texto plano y quiero graficarlos y generar > un PNG para poder ponerlos en un HTML. > > Gracias por su ayuda. > > =3D=3D=3D=3D=3D > "Do or Do Not, there is no try" > -Yoda. The Empire Strikes Back > > _______________________________________________________________ > Do You Yahoo!? > Yahoo! Messenger > Comunicaci=F3n instant=E1nea gratis con tu gente. > http://messenger.yahoo.es > > _______________________________________________ > Perl mailing list > Perl@tlali.iztacala.unam.mx > http://tlali.iztacala.unam.mx/mailman/listinfo/perl > > From nezumi@prodigy.net.mx Wed May 15 22:14:31 2002 From: nezumi@prodigy.net.mx (Alejandro G. Bedoya) Date: Wed, 15 May 2002 17:14:31 -0500 Subject: [Perl] Samplear con PERL References: <20020515185642.47826.qmail@web11606.mail.yahoo.com> Message-ID: <003401c1fc5d$e409f360$0400a8c0@chicas.com.mx> Hablando de gr=E1ficas, alguien conoce un m=F3dulo simple que permita= resamplear imagenes JPG al vuelo. Lo que quiero hacer es que de un catalogo de i= magenes haga "thumbnails" al vuelo, me dijeron que habia algo similar para ph= p. --- Sinceramente... Alejandro G. Bedoya InterAccion.COM Ponemos su Internet en Acci=F3n From gwolf@campus.iztacala.unam.mx Thu May 16 00:40:08 2002 From: gwolf@campus.iztacala.unam.mx (Gunnar Wolf) Date: Wed, 15 May 2002 19:40:08 -0500 (CDT) Subject: [Perl] Samplear con PERL In-Reply-To: <003401c1fc5d$e409f360$0400a8c0@chicas.com.mx> Message-ID: > Hablando de gr=E1ficas, alguien conoce un m=F3dulo simple que permita res= amplear > imagenes JPG al vuelo. Lo que quiero hacer es que de un catalogo de image= nes > haga "thumbnails" al vuelo, me dijeron que habia algo similar para php. Creo que buscas GD: http://cpan.valueclick.com/modules/by-category/18_Images_Pixmaps_Bitmaps/GD= / Aunque en una de esas te puede venir bien Image (aunque no me he asomado a =E9l): http://cpan.valueclick.com/modules/by-category/18_Images_Pixmaps_Bitmaps/Im= age/ O, en general, lo que encuentres ac=E1: http://cpan.valueclick.com/modules/by-category/18_Images_Pixmaps_Bitmaps/ --=20 Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52-55)5623-1118 PGP key 1024D/8BB527AF 2001-10-23 Fingerprint: 0C79 D2D1 2C4E 9CE4 5973 F800 D80E F35A 8BB5 27AF From sog@msg.com.mx Thu May 16 01:11:30 2002 From: sog@msg.com.mx (Salvador Ortiz Garcia) Date: 15 May 2002 20:11:30 -0500 Subject: [Perl] Samplear con PERL In-Reply-To: <003401c1fc5d$e409f360$0400a8c0@chicas.com.mx> References: <20020515185642.47826.qmail@web11606.mail.yahoo.com> <003401c1fc5d$e409f360$0400a8c0@chicas.com.mx> Message-ID: <1021511490.6801.31.camel@monica> On Wed, 2002-05-15 at 17:14, Alejandro G. Bedoya wrote: > Hablando de gr=E1ficas, alguien conoce un m=F3dulo simple que permita res= amplear > imagenes JPG al vuelo. Lo que quiero hacer es que de un catalogo de image= nes > haga "thumbnails" al vuelo, me dijeron que habia algo similar para php. Por ah=ED encuentras Image::GD::Thumbnail, yo no lo he probado. Pero con GD vil y simple no es complicado: ... my $orig =3D GD::Image->newFromJpeg(...); my ($ox,$oy) =3D $orig->getBouds(); my $thub =3D GD::Image->new($ox/$scala,$oy/$scala); $thumb->copyResized($orig,0,0,0,0,$ox/$scala,$oy/$scala,$ox,$oy); ... print SALIDA $thumb->jpeg; Ahora que si quieres algo m=E1s grande y con muchos "features", puedes usar PerlMagick, aunque no s=E9 si existe ImageMagick para Windows. Saludos. Salvador Ortiz. From francisco@vmicrosistemas.com Sun May 19 08:46:30 2002 From: francisco@vmicrosistemas.com (Fco. Valladolid Hdez.) Date: Sun, 19 May 2002 03:46:30 -0500 (CDT) Subject: [Perl] Rutina de conversion.. Message-ID: Alguien sabe de alguna rutina o modulo en Perl para convertir cantidades numericas a su expresion en letra..? Gracias. Saludos. Fco. Valladolid Hdez. --- ---------------------------- francisco@vmicrosistemas.com http://vmicrosistemas.com From nezumi@prodigy.net.mx Sun May 19 02:34:27 2002 From: nezumi@prodigy.net.mx (Alejandro G. Bedoya) Date: Sat, 18 May 2002 21:34:27 -0500 Subject: [Perl] Samplear con PERL References: <20020515185642.47826.qmail@web11606.mail.yahoo.com> <003401c1fc5d$e409f360$0400a8c0@chicas.com.mx> <1021511490.6801.31.camel@monica> Message-ID: <002201c1fedd$b2d02ee0$0400a8c0@chicas.com.mx> Ciertamente... Esto hace "resampleo cubico" para que quede bonito, o = solo un resize que queda un poquito feo???? Se usa con un vil??? use GD; Se supone que se debe de agregar el modulo al perl porque lo probe en= mi maquina linux y me dijo que no lo encontro... el problema ser=EDa dec= irle al ISP si lo tiene( ya le pregunte y ni me contesto), pero probandolo po= dria saber... --- Sinceramente... Alejandro G. Bedoya InterAccion.COM Ponemos su Internet en Acci=F3n ----- Original Message ----- =46rom: "Salvador Ortiz Garcia" To: "Alejandro G. Bedoya" Cc: "Lista de perl" Sent: Wednesday, May 15, 2002 8:11 PM Subject: Re: [Perl] Samplear con PERL On Wed, 2002-05-15 at 17:14, Alejandro G. Bedoya wrote: > Hablando de gr=E1ficas, alguien conoce un m=F3dulo simple que permi= ta resamplear > imagenes JPG al vuelo. Lo que quiero hacer es que de un catalogo de imagenes > haga "thumbnails" al vuelo, me dijeron que habia algo similar para = php. Por ah=ED encuentras Image::GD::Thumbnail, yo no lo he probado. Pero con GD vil y simple no es complicado: ... my $orig =3D GD::Image->newFromJpeg(...); my ($ox,$oy) =3D $orig->getBouds(); my $thub =3D GD::Image->new($ox/$scala,$oy/$scala); $thumb->copyResized($orig,0,0,0,0,$ox/$scala,$oy/$scala,$ox,$oy); ... print SALIDA $thumb->jpeg; Ahora que si quieres algo m=E1s grande y con muchos "features", puede= s usar PerlMagick, aunque no s=E9 si existe ImageMagick para Windows. Saludos. Salvador Ortiz. _______________________________________________ Perl mailing list Perl@tlali.iztacala.unam.mx http://tlali.iztacala.unam.mx/mailman/listinfo/perl From gwolf@campus.iztacala.unam.mx Sun May 19 22:22:53 2002 From: gwolf@campus.iztacala.unam.mx (Gunnar Wolf) Date: Sun, 19 May 2002 17:22:53 -0500 (CDT) Subject: [Perl] Rutina de conversion.. In-Reply-To: Message-ID: > Alguien sabe de alguna rutina o modulo en Perl para convertir cantidades > numericas a su expresion en letra..? Ah=ED te va la m=EDa. Probablemente exista alg=FAn m=F3dulo, probablemente = puedas hacerlo mejor, pero... Se me hizo un trabajo m=E1s simple de reimplementar que de buscar en el momento que lo hice. sub cantidad { # Recibe una cantidad y la regresa convertida a la cadena equivalente e= n # espa=F1ol. Regresa como segundo valor la parte fraccional. # Manejamos hasta centenas de millones. my ($num, $cadena, $pos, $cent, %t); $num =3D shift; return ('cero','00') if $num=3D=3D0; $cadena =3D ''; $pos =3D 0; %t =3D ('unidad' =3D> [qw(cero un dos tres cuatro cinco seis siete ocho= nueve)], =09 'decena' =3D> ['', qw(diez veinte treinta cuarenta cincuenta sesenta s= etenta ochenta noventa)], =09 'centena' =3D> ['',qw(cien doscientos trescientos cuatrocientos quinie= ntos seiscientos setecientos ochocientos novecientos)], =09 # casitos especiales... =09 'dieces' =3D> [qw(diez once doce trece catorce quince dieciseis diecis= iete dieciocho diecinueve)] ); # Que sea un n=FAmero v=E1lido, o no lo procesamos return undef unless $num =3D~ /^\d+(\.\d+)?/; $num =3D~ s/\.(\d+)//; $cent =3D $1; while ($num) { =09$pos++; =09my $digito =3D chop($num); =09if ($pos =3D=3D 1 or $pos =3D=3D 4 or $pos =3D=3D 7) { =09 if (substr($num,-1,1) =3D=3D 1) { =09=09$cadena =3D "$t{dieces}[$digito] $cadena"; =09=09chop $num; =09=09$pos++; =09 } else { =09=09$cadena =3D "$t{unidad}[$digito] $cadena"; =09=09$cadena =3D "y $cadena" if substr($num,-1,1); =09 } =09} elsif ($pos =3D=3D 2 or $pos =3D=3D 5 or $pos =3D=3D 8) { =09 $cadena =3D "$t{decena}[$digito] $cadena"; =09} elsif ($pos =3D=3D 3 or $pos =3D=3D 6 or $pos =3D=3D 9) { =09 $cadena =3D "$t{centena}[$digito] $cadena"; =09 $cadena =3D "mil $cadena" if (($pos =3D=3D 3 or $pos =3D=3D 9) and (= substr($num,-1,1) or substr($num,-2,1) or substr($num,-3,1))); =09 $cadena =3D "millones $cadena" if ($pos =3D=3D 6 and (substr($num,-1= ,1) or substr($num,-2,1) or substr($num,-3,1))); =09} else { =09 # No entiendo... Probablemente est=E9 fuera de rango. =09 # Mejor regresar undef a regresar algo falso. =09 return undef; =09} } return ($cadena,sprintf('%02d',$cent)); } --=20 Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52-55)5623-1118 PGP key 1024D/8BB527AF 2001-10-23 Fingerprint: 0C79 D2D1 2C4E 9CE4 5973 F800 D80E F35A 8BB5 27AF From francisco@vmicrosistemas.com Tue May 21 10:59:12 2002 From: francisco@vmicrosistemas.com (Fco. Valladolid Hdez.) Date: Tue, 21 May 2002 05:59:12 -0500 (CDT) Subject: [Perl] Rutina de conversion.. In-Reply-To: Message-ID: Gracias de antemano.. voy a checarla... Saludos. Fco. Valladolid Hdez. --- ---------------------------- francisco@vmicrosistemas.com http://vmicrosistemas.com From joel_munoz@hotmail.com Tue May 21 17:23:38 2002 From: joel_munoz@hotmail.com (Joel Muñoz) Date: Tue, 21 May 2002 17:23:38 +0000 Subject: [Perl] lectura interactiva de archivo Message-ID: Hola Foro estoy tratando de leer la salida estandar de un " tail -f nombre_archivo.log " para poder procesar esa salida. Por ejemplo estoy buscando la cadena TIME_OUT en ese archivo log y esa cadena se esta presentando muchas veces, asi que quiero leer el archivo conforme se este creando y cuando se genere ese TIME_OUT poder enviar un correo electronico al responsable para que verifique el proceso en la maquina. No puedo borrar el archivo log, solo leerlo, y copiarlo no me ayudaria mucho porque tendria que estarlo leyendo cada n segundos y llevar una bitacora de cual fue el ultimo tiempo en el que se leyo/copio el archivo de log. Alguien tiene alguna sugerencia? Chas gracias JMM _________________________________________________________________ Chat with friends online, try MSN Messenger: http://messenger.msn.com From mcjeduardo@yahoo.com Tue May 21 17:35:00 2002 From: mcjeduardo@yahoo.com (=?iso-8859-1?q?Eduardo=20Martinez?=) Date: Tue, 21 May 2002 19:35:00 +0200 (CEST) Subject: [Perl] Problemas con modulos Message-ID: <20020521173500.95492.qmail@web11604.mail.yahoo.com> Hola a todos. Despues de haber instalado el modulo GD::Graph y algunas dependencias que tenia, crei haber resuelto todos mis problemas, sin embargo al hacer un pequeño script de pruebas: use GD::Graph; @data = ( ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"], [ 1, 2, 5, 6, 3, 1.5, 1, 3, 4], [ sort { $a <=> $b } (1, 2, 5, 6, 3, 1.5, 1, 3, 4) ] ); $graph = GD::Graph::bars->new(400, 300); $graph->set( x_label => 'X Label', y_label => 'Y label', title => 'Some simple graph', y_max_value => 8, y_tick_number => 8, y_label_skip => 2 ); my $gd = $my_graph->plot(\@data); open(IMG, '>file.png') or die $!; binmode IMG; print IMG $gd->png; close IMG; Pero al ejecutarlo, obtengo los siguientes errores: Bareword "Cwd::cwd" not allowed while "strict subs" in use at /usr/opt/perl5/lib/site_perl/5.005/GD/Text.pm line 271. BEGIN not safe after errors--compilation aborted at /usr/opt/perl5/lib/site_perl/5.005/GD/Text.pm line 479. BEGIN failed--compilation aborted at /usr/opt/perl5/lib/site_perl/5.005/GD/Text/Align.pm line 50. BEGIN failed--compilation aborted at /usr/opt/perl5/lib/site_perl/5.005/GD/Graph.pm line 38. BEGIN failed--compilation aborted at /home/admin/prueba.pl line 2. ¿Qué me falto hacer? Espero puedan ayudarme. Saludos ===== "Do or Do Not, there is no try" -Yoda. The Empire Strikes Back _______________________________________________________________ Do You Yahoo!? Yahoo! Messenger Comunicación instantánea gratis con tu gente. http://messenger.yahoo.es From sog@msg.com.mx Wed May 22 04:50:33 2002 From: sog@msg.com.mx (Salvador Ortiz Garcia) Date: 21 May 2002 23:50:33 -0500 Subject: [Perl] lectura interactiva de archivo In-Reply-To: References: Message-ID: <1022043033.22557.18.camel@monica> On Tue, 2002-05-21 at 12:23, Joel Mu=F1oz wrote: >=20 > Hola Foro >=20 > estoy tratando de leer la salida estandar de un " tail -f nombre_archivo.= log=20 > " > para poder procesar esa salida. El asunto es m=E1s simple pues emular un "tail -f" es trivial en perl: open(FILE,'archivo.log'); while(1) { # Forever while($_ =3D ) { if(/TIME_OUT/) { #Lo que tengas que hacer } } #Se acabo?, no me digas! :-) sleep(1); # Espera un momentito seek(FILE, 0, 1); # limpia eof # Y va de nuez } Saludos, Salvador Ortiz. From randrade@abl.com.mx Thu May 23 02:19:37 2002 From: randrade@abl.com.mx (Roberto Andrade Fonseca) Date: 22 May 2002 21:19:37 -0500 Subject: [Perl] Se porpone la =?ISO-8859-1?Q?reuni=F3n?= del grupo de usuarios de Perl! Message-ID: <1022120377.1731.2.camel@ingrid.andrade.casa> Hola: En virtud de que no recib=ED contestaci=F3n de los posibles ponentes para =20 la reuni=F3n programada para ma=F1ana 23 de mayo, SE POSPONE LA REUNI=D3N p= ara el 6 de Junio. Les aviso en cuanto confirmen los ponentes. ya habl=E9 con Ra=FAl G=F3mez p= ara contar con el Auditorio de la CFE para ese d=EDa. --=20 Saludos, Roberto Andrade Fonseca randrade@abl.com.mx From gwolf@campus.iztacala.unam.mx Wed May 29 16:55:59 2002 From: gwolf@campus.iztacala.unam.mx (Gunnar Wolf) Date: Wed, 29 May 2002 11:55:59 -0500 (CDT) Subject: [Perl] =?iso-8859-1?Q?Generando_reportes=2C_calculando_anchos=2E=2E=2E_?= =?iso-8859-1?Q?=BFOpini=F3n=3F?= Message-ID: Necesito su ayuda para discernir cu=E1l es la mejor opci=F3n de entre las siguientes - O si hay alguna que no he considerado. Hice un generador de reportes del cual estoy bastante orgulloso. Quien lo ha visto -supongo- entender=E1 por qu=E9 - Me cost=F3 uno y medio ;-) Pero = tengo una duda: =BFC=F3mo me conviene averiguar el ancho que tendr=E1 cada una de= las columnas de mi reporte? No, no tengo manera de saberlo de antemano. Esto porque tengo campos de ancho variable, o porque el usuario puede solicitar que se le aplique una funci=F3n (SUM, COUNT, TRIM) al campo, y no puedo depender de los anchos que declar=E9 al crear cada campo. Mi base de datos es relativamente peque=F1a - Actualmente tengo unos 7000 registros en la tabla m=E1s grande, y estimo que manejar=E9 m=E1ximos de 15= 000. La computadora que actuar=E1 como servidor (tanto de BD, con Postgres, como de aplicaci=F3n, con CGIs en Perl [no conoc=ED mod_perl a tiempo para dise= =F1ar el programa como c=F3modos modulitos :-( ]) calculo que ser=E1 una PII a un= os 400MHz, y dudo que tenga m=E1s de 64MB RAM. Se me ocurren dos maneras de averiguar el ancho m=E1ximo de cada columna, aunque ambos tienen importantes puntos en contra. El camino que creo tomar, a menos que me persuadan de lo contrario, es hacer la consulta completa dos veces. La primera vez, simplemente manteniendo registro de cu=E1l fue el resultado m=E1s largo en cada campo, = y la segunda vez generando el reporte (no, no podr=EDa generar el reporte con los resultados de la primera vuelta, pues estoy reportando hacia la impresora, y no puedo corregir el ancho de lo que ya imprim=ED si me llega algo m=E1s ancho). Algo as=ED: $sth=3D$dbh->prepare($sql); $sth->execute; while ($cosa =3D $sth->fetchrow_arrayref) { calc_max($cosa,$maximos); } $sth->finish; prepara_rep($maximos); $sth=3D$dbh->prepare($sql); $sth->execute; while ($datos =3D $sth->fetchrow_arrayref) { reporta_lin($datos); } $sth->finish; El otro camino ser=EDa jalar el reporte completo a memoria, y desde memoria calcular los m=E1ximos y reportar... Asumiendo las mismas funciones que no muestro en el ejemplo anterior, algo as=ED: $reporte =3D $dbh->selectall_arrayref($sql); prepara_rep(calc_max($reporte)); reporta($reporte); Claro, el segundo caso es mucho m=E1s simple conceptualmente, pero puede requerir BASTANTE memoria - Un c=E1lculo conservador: 7000 renglones, 250 bytes por rengl=F3n me da 1,750,000 bytes... Pero me da miedo estarme quedando corto. Recuerden que la m=E1quina es peque=F1a. Eso s=ED, podr=EDa ponerle un buen swap, pero... No s=E9, no me encanta abusar del tama=F1o de= un programa en memoria =BFQu=E9 me sugieren? --=20 Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52-55)5623-1118 PGP key 1024D/8BB527AF 2001-10-23 Fingerprint: 0C79 D2D1 2C4E 9CE4 5973 F800 D80E F35A 8BB5 27AF From gwolf@campus.iztacala.unam.mx Wed May 29 19:18:28 2002 From: gwolf@campus.iztacala.unam.mx (Gunnar Wolf) Date: Wed, 29 May 2002 14:18:28 -0500 (CDT) Subject: [Perl] =?iso-8859-1?Q?Transmisi=F3n_por_Icecast_del_seminario_GASU_d?= =?iso-8859-1?Q?e_hoy?= Message-ID: Hola a todos, Para quien est=E9 interesado en participar en el seminario GASU de hoy (Introducci=F3n a Debian GNU/Linux) y no pueda asistir a las sedes (FES Iztacala, DGSCA, o las dem=E1s que se conecten por videoconferencia), configur=E9 un servidor de Icecast (mp3), y dar=E9 la presentaci=F3n por es= e medio. Pueden conectarse con casi cualquier programa que toque MP3 al siguiente URL: http://linux.unam.mx:8000 El d=EDa de hoy (mi=E9rcoles 29) a partir de las 18:00. Si quieren hacer preguntas, estar=E9 en IRC (o m=E1s bien, alguien me las pasar=E1 ;-) ), en= el servidor irc.openprojects.net, en el canal #unixmexico Saludos, --=20 Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52-55)5623-1118 PGP key 1024D/8BB527AF 2001-10-23 Fingerprint: 0C79 D2D1 2C4E 9CE4 5973 F800 D80E F35A 8BB5 27AF