From emhn at telcel.net.ve Mon Jan 3 08:24:18 2005 From: emhn at telcel.net.ve (Ernesto Hernandez-Novich) Date: Mon Jan 3 08:24:25 2005 Subject: [caracas-pm] Re: [l-linux] =?iso-8859-1?q?OFF_TOPIC=3A_Robarme_el_c=F3digo_fue?= =?iso-8859-1?q?nte_de_otras_p=E1ginas_web=27s?= In-Reply-To: References: <41D7A08C.4090903@mantareys.com> Message-ID: On Sun, 2 Jan 2005, Wilfredo Rodriguez wrote: > Intento robarme una sierta parte de un documento en la web, es decir, Intento "citar" :-) > algo ubicado entre o entre , o mas > interesante entre "document.write(' " y " '); " . Este es tu caso particular. > veamos el c?digo siguiente: [... demasiado c?digo ...] > Aun no comprendo porque no funciona, cual ser? el error en el c?digo? > Gracias de antemano.. El error puede ser usar PHP... :-) Quiz?s algunas de las cosas que te han comentado otros PHPeros sea la causa, sin embargo, al utilizar un lenguaje de programaci?n que si ahorra tiempo, la parte "dura" se puede hacer con dos l?neas #!/usr/bin/perl use LWP::Simple; $c=~s/document\.write\('(.*)'\);/$1/,print $c if defined($c=get("http://servicios.citasyrefranes.com/citadeldiatexto.php")); El m?dulo LWP de Perl permite hacer todo lo que uno hace con un navegador (o cliente HTTP, HTTPS, FTP y similares) en muy pocas l?neas. Si necesitas analizar HTML, entonces HTML::TokeParser o HTML::LinkExtor suelen ser suficientes. Y hacer prints para generar HTML es una invitaci?n a trabajar demasiado; es mejor escribir un template HTML usando nvu, BlueFish, Mozilla Composer, etc. y luego cargarlo con HTML::Template y dos l?neas m?s tarde generas el resultado deseado. -- Ernesto Hern?ndez-Novich - On Linux 2.6.9 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From lem at cantv.net Mon Jan 3 14:04:36 2005 From: lem at cantv.net (=?ISO-8859-1?Q?Luis_Mu=F1oz?=) Date: Mon Jan 3 14:05:15 2005 Subject: =?ISO-8859-1?Q?Re:_[caracas-pm]_Re:_[l-linux]_OFF_TOPIC:_Robarme?= =?ISO-8859-1?Q?_el_c=F3digo_fuente_de_otras_p=E1ginas_web's?= In-Reply-To: References: <41D7A08C.4090903@mantareys.com> Message-ID: El Jan 3, 2005, a las 10:24 AM, Ernesto Hernandez-Novich escribi?: > Si necesitas analizar HTML, entonces HTML::TokeParser o HTML::LinkExtor > suelen ser suficientes. En un art?culo que publiqu? hace alg?n tiempo, se muestra un ejemplo de c?mo hacer el reconocimiento de c?digo en HTML usando HTML::Parser. El art?culo est? en http://mipagina.cantv.net/lem/perl/mime.html En 12 (a partir de la 62) l?neas de c?digo, se crea un parser que convierte HTML a una representaci?n en texto plano del contenido de la p?gina. Cabe decir que es "peligroso" intentar reconocer construcciones s?lo con expresiones regulares. Los casos simples suelen ser muy f?ciles de capturar, pero hay casos complejos (l?neas con terminaciones "escapadas", delimitadores confusos, etc) que hacen la soluci?n basada en expresiones regulares, poco confiables. Sin embargo, est? bien para algo "quick & dirty". Saludos. -lem From emhn at telcel.net.ve Mon Jan 3 14:25:37 2005 From: emhn at telcel.net.ve (Ernesto Hernandez-Novich) Date: Mon Jan 3 14:25:41 2005 Subject: =?ISO-8859-1?Q?Gotcha!_=28Era_Re=3A_=5Bcaracas-pm=5D_OFF_TOPIC?= =?ISO-8859-1?Q?=3A_Robarme_el_c=F3digo_fuente_de_otras_p=E1?= =?ISO-8859-1?Q?ginas_web's=29?= In-Reply-To: References: <41D7A08C.4090903@mantareys.com> Message-ID: On Mon, 3 Jan 2005, Luis Mu?oz wrote: > El Jan 3, 2005, a las 10:24 AM, Ernesto Hernandez-Novich escribi?: Ya que te hice escribir... ...hay al menos tres personas que me han preguntado "c?mo administro routers Cisco usando Perl?" (y dos que cuando lean ?sto van a prestar atenci?n). Les respond? use LEM; As? que, ?ser? que para la pr?xima reuni?n (2005-01-15) puedes exponer algunos trucos al respecto? -- Ernesto Hern?ndez-Novich - On Linux 2.6.9 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From lem at cantv.net Mon Jan 3 14:29:20 2005 From: lem at cantv.net (=?ISO-8859-1?Q?Luis_Mu=F1oz?=) Date: Mon Jan 3 14:29:26 2005 Subject: =?ISO-8859-1?Q?Re:_Gotcha!_=28Era_Re:_[caracas-pm]_OFF_TOPIC:_Ro?= =?ISO-8859-1?Q?barme_el_c=F3digo_fuente_de_otras_p=E1ginas_web's?= =?ISO-8859-1?Q?=29?= In-Reply-To: References: <41D7A08C.4090903@mantareys.com> Message-ID: <25A4E162-5DC6-11D9-83FD-000393669158@cantv.net> El Jan 3, 2005, a las 4:25 PM, Ernesto Hernandez-Novich escribi?: > On Mon, 3 Jan 2005, Luis Mu?oz wrote: >> El Jan 3, 2005, a las 10:24 AM, Ernesto Hernandez-Novich escribi?: > > Ya que te hice escribir... Cualquiera jura que es algo dificil :) > ...hay al menos tres personas que me han preguntado "c?mo administro > routers Cisco usando Perl?" (y dos que cuando lean ?sto van a prestar > atenci?n). Les respond? Ya a una de las personas, les envi? un .tgz con el c?digo que te d? a ti. Puedo preparar un peque?o ejercicio, sobre todo si consigo un routercito cisco para hacer la demo en vivo. El tema, es que te escribo desde Palma de Mallorca porque estoy de vacaciones ;) Regreso el 8, pero voy a mandar unos cuantos email para ver si consigo por estas fechas a alguien que tenga un cisquito que me preste. Te contesto cuando sepa. Saludos. -lem > > use LEM; > > As? que, ?ser? que para la pr?xima reuni?n (2005-01-15) puedes exponer > algunos trucos al respecto? > -- > Ernesto Hern?ndez-Novich - On Linux 2.6.9 i686 - Unix: Live free or > die! > Geek by nature, Linux by choice, Debian of course. > If you can't apt-get it, it isn't useful or doesn't exist. > GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 > _______________________________________________ > caracas-pm mailing list > caracas-pm@mail.pm.org > http://www.pm.org/mailman/listinfo/caracas-pm > From aarnal at me.gov.ve Thu Jan 6 07:01:18 2005 From: aarnal at me.gov.ve (Alexis Arnal) Date: Thu Jan 6 12:00:22 2005 Subject: [caracas-pm] Equivalente A FLASH para linux Message-ID: <1105016478.1493.6.camel@03omisis090> Saludos, Queremos hacer una presentaci?n interactiva para un CD y lo que se nos viene a la mente es hacerlo con Macromedia FLASH, pero nos gustar?a saber si existe una aplicaci?n OpenSource para solucionar ese problema sin necesidad de recurrir a aplicaciones privativas, que adem?s genere un formato ejecutable multiplataforma (Linux-Windows) y si no requiere pluggins extras para el cliente mucho mejor. Creo que estoy pidiendo mucho -- Alexis Arnal Ministerio de Educaci?n y Deportes From alvarolinares at cantv.net Thu Jan 6 12:02:11 2005 From: alvarolinares at cantv.net (alvarolinares@cantv.net) Date: Thu Jan 6 12:02:21 2005 Subject: [caracas-pm] Equivalente A FLASH para linux Message-ID: <164770-2200514618211964@cantv.net> Hola a todos, Prueba con esto http://f4l.sourceforge.net/ Saludos Alvaro Linares ----------- Mensaje Original -------------- De: Alexis Arnal [aarnal@me.gov.ve] Para: l-linux@linux.org.ve [l-linux@linux.org.ve] Cc: caracas-pm@mail.pm.org [caracas-pm@mail.pm.org] Asunto: [caracas-pm] Equivalente A FLASH para linux Fecha: 06/01/2005 14:00:23 Mensaje: Saludos, Queremos hacer una presentaci?n interactiva para un CD y lo que se nos viene a la mente es hacerlo con Macromedia FLASH, pero nos gustar?a saber si existe una aplicaci?n OpenSource para solucionar ese problema sin necesidad de recurrir a aplicaciones privativas, que adem?s genere un formato ejecutable multiplataforma (Linux-Windows) y si no requiere pluggins extras para el cliente mucho mejor. Creo que estoy pidiendo mucho -- Alexis Arnal Ministerio de Educaci?n y Deportes _______________________________________________ caracas-pm mailing list caracas-pm@mail.pm.org http://www.pm.org/mailman/listinfo/caracas-pm From zeus at mipropio.com Mon Jan 10 06:15:01 2005 From: zeus at mipropio.com (Tony Rodriguez) Date: Mon Jan 10 06:15:21 2005 Subject: [caracas-pm] =?iso-8859-1?q?=BF_Habr=E1_Reuni=F3n_el_S=E1bado_15?= =?iso-8859-1?q?/01/2005?= ? Message-ID: <200501101015.02013.zeus@mipropio.com> Hola a todos los miembros de la lista y Feliz a?o. La presente es s?lo para preguntar si habr? reuni?n el pr?ximo s?bado 15 de Enero y de ser afirmativa la respuesta saber que tema se tratar? y si se har? en el lugar de siempre. En cuanto al tema se que se coment? algo acerca de routers Cisco con scripts Perl hace unos d?as pero tambi?n podr?a hablarse un poco acerca de Perl y el paradigma funcional del cual no se pudo hablar en Diciembre debido a que con el festival de instalaci?n no se realiz? lo esperado ( al menos no hasta la 1:15 PM que fue cuando yo me fui ; - ) Salu2. Tony. From emhn at telcel.net.ve Mon Jan 10 06:26:45 2005 From: emhn at telcel.net.ve (Ernesto Hernandez-Novich) Date: Mon Jan 10 06:26:55 2005 Subject: [caracas-pm] =?iso-8859-1?q?=BF_Habr=E1_Reuni=F3n_el_S=E1bado_15?= =?iso-8859-1?q?/01/2005?= ? In-Reply-To: <200501101015.02013.zeus@mipropio.com> References: <200501101015.02013.zeus@mipropio.com> Message-ID: On Mon, 10 Jan 2005, Tony Rodriguez wrote: > La presente es s?lo para preguntar si habr? reuni?n el pr?ximo s?bado 15 de > Enero y de ser afirmativa la respuesta saber que tema se tratar? y si se har? > en el lugar de siempre. Si, habr? reuni?n. Muy probablemente en el ISEIT (seguro que Carlos hace la segunda de verificar por nosotros). > En cuanto al tema se que se coment? algo acerca de routers Cisco con scripts > Perl hace unos d?as pero tambi?n podr?a hablarse un poco acerca de Perl y el > paradigma funcional del cual no se pudo hablar en Diciembre debido a que con > el festival de instalaci?n no se realiz? lo esperado ( al menos no hasta la > 1:15 PM que fue cuando yo me fui ; - ) Luis seguramente leer? el mensaje y confirmar? el tema Cisco; estaba a la espera de algunos "recursos de hardware" para que la charla sea lo m?s pr?ctica posible. En cuanto al otro tema, igualmente se puede cubrir una parte. -- Ernesto Hern?ndez-Novich - On Linux 2.6.9 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From cpineda at grupodiga.com.ve Mon Jan 10 07:16:33 2005 From: cpineda at grupodiga.com.ve (cpineda@grupodiga.com.ve) Date: Mon Jan 10 07:13:07 2005 Subject: [caracas-pm] ¿_Habrá_Reunión_el_Sábado_15?==?iso-8859-1?q?/01/2005 ? Message-ID: yo verifico, pero probablemente no este, voy para maracay con gabriel para casa de hector a llevar unos servidores (y rumbear). saludos Carlos Pineda E The following message was sent by Ernesto Hernandez-Novich on Mon, 10 Jan 2005 10:26:45 -0400 (VET). > On Mon, 10 Jan 2005, Tony Rodriguez wrote: > > La presente es sólo para preguntar si habrá reunión el próximo sábado 15 > de > > Enero y de ser afirmativa la respuesta saber que tema se tratará y si se > hará > > en el lugar de siempre. > > Si, habrá reunión. Muy probablemente en el ISEIT (seguro que Carlos hace > la segunda de verificar por nosotros). > > > En cuanto al tema se que se comentó algo acerca de routers Cisco con scripts > > Perl hace unos días pero también podría hablarse un poco acerca de Perl > y el > > paradigma funcional del cual no se pudo hablar en Diciembre debido a que > con > > el festival de instalación no se realizó lo esperado ( al menos no hasta > la > > 1:15 PM que fue cuando yo me fui ; - ) > > Luis seguramente leerá el mensaje y confirmará el tema Cisco; estaba a > la espera de algunos "recursos de hardware" para que la charla sea lo > más práctica posible. En cuanto al otro tema, igualmente se puede cubrir > una parte. > -- > Ernesto Hernández-Novich - On Linux 2.6.9 i686 - Unix: Live free or die! > Geek by nature, Linux by choice, Debian of course. > If you can't apt-get it, it isn't useful or doesn't exist. > GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 > _______________________________________________ > caracas-pm mailing list > caracas-pm@pm.org > http://mail.pm.org/mailman/listinfo/caracas-pm > . > From lem at cantv.net Mon Jan 10 10:23:18 2005 From: lem at cantv.net (=?ISO-8859-1?Q?Luis_Mu=F1oz?=) Date: Mon Jan 10 10:23:29 2005 Subject: =?ISO-8859-1?Q?Re:_[caracas-pm]_=BF_Habr=E1_Reuni=F3n_el_S=E1bad?= =?ISO-8859-1?Q?o_15/01/2005_=3F?= In-Reply-To: References: <200501101015.02013.zeus@mipropio.com> Message-ID: El Jan 10, 2005, a las 10:26 AM, Ernesto Hernandez-Novich escribi?: > Luis seguramente leer? el mensaje y confirmar? el tema Cisco; estaba a > la espera de algunos "recursos de hardware" para que la charla sea lo > m?s pr?ctica posible. En cuanto al otro tema, igualmente se puede > cubrir > una parte. Tengo casi todos los recursos de hardware que necesito en mi oficina (Router Cisco) pero aun no lo he encendido. Ahora necesito un puerto serial para configurar el equipo, que no tengo. Estoy trabajando en eso. M?s noticias pronto :) Saludos. -lem From zeus at mipropio.com Fri Jan 14 04:44:18 2005 From: zeus at mipropio.com (Tony Rodriguez) Date: Fri Jan 14 04:44:42 2005 Subject: [caracas-pm] =?iso-8859-1?q?=BF=5FHabr=E1=5FReuni=F3n=5Fel=5FS=E1bado=5F15=3F=3D=3D=3F?= =?iso-8859-1?q?iso-8859-1=3Fq=3F/01/2005?= ? In-Reply-To: References: Message-ID: <200501140844.19227.zeus@mipropio.com> Salu2. Entonces... nos vemos ma?ana como a las 9:00 AM en el ISEIT? Disculpen que moleste tanto al respecto pero es que no quiero echarme el viaje a Caracas desde Maracay si no hay reuni?n ;-) Nos vemos. Tony. El Lunes 10 Enero 2005 11:16, cpineda@grupodiga.com.ve escribi?: > yo verifico, pero probablemente no este, voy para maracay con gabriel para > casa de hector a llevar unos servidores (y rumbear). > > saludos > > Carlos Pineda E > > > The following message was sent by Ernesto Hernandez-Novich > on Mon, 10 Jan 2005 10:26:45 -0400 (VET). > > > On Mon, 10 Jan 2005, Tony Rodriguez wrote: > > > La presente es s?lo para preguntar si habr? reuni?n el pr?ximo s?bado > > 15 > > > de > > > > > Enero y de ser afirmativa la respuesta saber que tema se tratar? y si > > se > > > har? > > > > > en el lugar de siempre. > > > > Si, habr? reuni?n. Muy probablemente en el ISEIT (seguro que Carlos hace > > la segunda de verificar por nosotros). > > > > > En cuanto al tema se que se coment? algo acerca de routers Cisco con > > scripts > > > > Perl hace unos d?as pero tambi?n podr?a hablarse un poco acerca de Perl > > > > y el > > > > > paradigma funcional del cual no se pudo hablar en Diciembre debido a > > que > > > con > > > > > el festival de instalaci?n no se realiz? lo esperado ( al menos no > > > hasta > > > > la > > > > > 1:15 PM que fue cuando yo me fui ; - ) > > > > Luis seguramente leer? el mensaje y confirmar? el tema Cisco; estaba a > > la espera de algunos "recursos de hardware" para que la charla sea lo > > m?s pr?ctica posible. En cuanto al otro tema, igualmente se puede cubrir > > una parte. > > -- > > Ernesto Hern?ndez-Novich - On Linux 2.6.9 i686 - Unix: Live free or die! > > Geek by nature, Linux by choice, Debian of course. > > If you can't apt-get it, it isn't useful or doesn't exist. > > GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 > > _______________________________________________ > > caracas-pm mailing list > > caracas-pm@pm.org > > http://mail.pm.org/mailman/listinfo/caracas-pm > > . > > _______________________________________________ > caracas-pm mailing list > caracas-pm@pm.org > http://mail.pm.org/mailman/listinfo/caracas-pm From lem at cantv.net Fri Jan 14 05:12:35 2005 From: lem at cantv.net (=?ISO-8859-1?Q?Luis_Mu=F1oz?=) Date: Fri Jan 14 05:12:42 2005 Subject: =?ISO-8859-1?Q?Re:_[caracas-pm]_=BF=5FHabr=E1=5FReuni=F3n=5Fel?= =?ISO-8859-1?Q?=5FS=E1bado=5F15=3F=3D=3D=3Fiso-8859-1=3Fq=3F/01/?= =?ISO-8859-1?Q?2005_=3F?= In-Reply-To: <200501140844.19227.zeus@mipropio.com> References: <200501140844.19227.zeus@mipropio.com> Message-ID: El Jan 14, 2005, a las 8:44 AM, Tony Rodriguez escribi?: > Salu2. > > Entonces... nos vemos ma?ana como a las 9:00 AM en el ISEIT? > > Disculpen que moleste tanto al respecto pero es que no quiero echarme > el viaje > a Caracas desde Maracay si no hay reuni?n ;-) Por mi parte, yo no voy a poder asistir a la reuni?n :( Saludos. -lem From emhn at telcel.net.ve Fri Jan 14 06:11:18 2005 From: emhn at telcel.net.ve (Ernesto Hernandez-Novich) Date: Fri Jan 14 06:11:33 2005 Subject: =?ISO-8859-1?Q?Re:_[caracas-pm]_=BF=5FHabr=E1=5FReuni=F3n=5Fel?= =?ISO-8859-1?Q?=5FS=E1bado=5F15=3F=3D=3D=3Fiso-8859-1=3Fq=3F/01/?= =?ISO-8859-1?Q?2005_=3F?= In-Reply-To: References: <200501140844.19227.zeus@mipropio.com> Message-ID: On Fri, 14 Jan 2005, Luis Mu?oz wrote: > El Jan 14, 2005, a las 8:44 AM, Tony Rodriguez escribi?: > > > Salu2. > > > > Entonces... nos vemos ma?ana como a las 9:00 AM en el ISEIT? > > > > Disculpen que moleste tanto al respecto pero es que no quiero echarme > > el viaje > > a Caracas desde Maracay si no hay reuni?n ;-) > > Por mi parte, yo no voy a poder asistir a la reuni?n :( Ouch. Ni modo. Entonces tocaremos el tema pendiente de Diciembre: los aspectos de programaci?n funcional que hay en Perl y como aplicarlos para mejorar el estilo de programaci?n. Por supuesto, siempre abiertos a cualquier pregunta o tema alrededor de Perl que surja. -- Ernesto Hern?ndez-Novich - On Linux 2.6.9 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From aarnal at me.gov.ve Mon Jan 17 07:25:26 2005 From: aarnal at me.gov.ve (Alexis Arnal) Date: Mon Jan 17 12:24:47 2005 Subject: [caracas-pm] =?iso-8859-1?q?Teor=EDa?= de Conjuntos In-Reply-To: References: <200501140844.19227.zeus@mipropio.com> Message-ID: <1105975526.1323.6.camel@03omisis090> Saludos, por casualidad de la vida existe un m?dulo de perl que me permita trabajar con TEORIA DE CONJUNTOS (Unir, intersectar....), la otra vez creo que escuche que Ernesto estaba trabajando con teor?a de Grafos. Tambien me gustar?a saber de que hablaron en la reuni?n del S?bado ya que no pude asistir porq ten?a clases de postgrado -- Alexis Arnal Linux user number 378161 Caracas-Venezuela From emhn at telcel.net.ve Tue Jan 18 05:15:08 2005 From: emhn at telcel.net.ve (Ernesto Hernandez-Novich) Date: Tue Jan 18 05:15:19 2005 Subject: [caracas-pm] =?iso-8859-1?q?Teor=EDa?= de Conjuntos In-Reply-To: <1105975526.1323.6.camel@03omisis090> References: <200501140844.19227.zeus@mipropio.com> <1105975526.1323.6.camel@03omisis090> Message-ID: On Mon, 17 Jan 2005, Alexis Arnal wrote: > Saludos, por casualidad de la vida existe un m?dulo de perl que me > permita trabajar con TEORIA DE CONJUNTOS (Unir, intersectar....), la > otra vez creo que escuche que Ernesto estaba trabajando con teor?a de > Grafos. Por supuesto. Existen varios m?dulos para manipular conjuntos. Ahora mismo tengo mucho tiempo utilizando Set::Scalar [1] que es ideal cuando los conjuntos tienen s?mbolos arbitrarios. T?pico uso use Set::Scalar; my $p = new Set::Scalar; $p->insert('a','b'); my $q = new Set::Scalar; $q->insert('b','c'); my $r = Set::Scalar->new(qw/a b c d e/); print $q,"\n"; # Muestra (b c) print $p->union($q)->intersect($r),"\n"; # Muestra (a b c) Se proveen varios predicados sobre conjuntos, adem?s del concepto de Universo durante la ejecuci?n. M?s a?n, el m?dulo aprovecha lasobrecarga de operadores, de modo que la ?ltima l?nea se podr?a escribir print ($p + $q) * $r; Para los Grafos (dirigidos o no) uso Graph [2] > Tambien me gustar?a saber de que hablaron en la reuni?n del S?bado ya > que no pude asistir porq ten?a clases de postgrado Estuvimos viendo algunos aspectos de programaci?n funcional presentes en Perl. El manejo de listas "como un todo" es b?sico para la programaci?n funcional, as? que hablamos de usar for/foreach sobre listas, en lugar de for "a lo C" (iterador versus contador); luego exploramos lo que son los operadores de iteraci?n impl?cita (map) y de filtrado (grep), aplic?ndolos a algunos problemas simples, pero ilustrativos. Para terminar, estudiamos la "maniobra Schwartz" y vimos un ejemplo de "map superfluo" (concretamente, un map cuya lista resultante no se usa, no es una buena idea). Qued? pendiente hablar de apuntadores a funciones, evaluaci?n indirecta y clausuras. [1] No est? debianizado por ahora. [2] libgraph-perl -- Ernesto Hern?ndez-Novich - On Linux 2.6.9 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From wsequea at hotmail.com Tue Jan 18 12:24:43 2005 From: wsequea at hotmail.com (wladimir sequea) Date: Tue Jan 18 12:25:32 2005 Subject: [caracas-pm] perl en pws In-Reply-To: Message-ID: Buenas tardes amigos Se que la mayoria usan linux pero necesitaba configurar perl en PWS sobre windows y no se como hacerlo si alguien sabe le agradezco o si tiene enlaces web de perl en PWS _________________________________________________________________ MSN Amor: busca tu ? naranja http://latam.msn.com/amor/ From mendoza at kitiara.org Tue Jan 18 13:09:37 2005 From: mendoza at kitiara.org (Cesar Mendoza) Date: Tue Jan 18 13:09:51 2005 Subject: [caracas-pm] perl en pws In-Reply-To: References: Message-ID: <20050118210937.GB1140@tyka.kitiara.org> Hola, Yo no se si ActiveState todav?a soporta PWS, pero no te cuesta nada tratar. http://www.activestate.com/Products/ActivePerl/ Bye Cesar Mendoza http://www.kitiara.org -- "S?lo la infancia es la ?poca adecuada para sembrar la semilla de la fe.." --Schopenhauer On Tue, Jan 18, 2005 at 08:24:43PM +0000, wladimir sequea wrote: > Buenas tardes amigos > Se que la mayoria usan linux pero necesitaba configurar perl en PWS sobre > windows y no se como hacerlo si alguien sabe le agradezco o si tiene > enlaces web de perl en PWS > > _________________________________________________________________ > MSN Amor: busca tu ? naranja http://latam.msn.com/amor/ > > _______________________________________________ > caracas-pm mailing list > caracas-pm@pm.org > http://mail.pm.org/mailman/listinfo/caracas-pm From zeus at mipropio.com Wed Jan 19 06:49:24 2005 From: zeus at mipropio.com (Tony Rodriguez) Date: Wed Jan 19 06:49:58 2005 Subject: [caracas-pm] =?iso-8859-1?q?Teor=EDa_de?= Conjuntos In-Reply-To: References: <1105975526.1323.6.camel@03omisis090> Message-ID: <200501191049.25375.zeus@mipropio.com> El Martes 18 Enero 2005 09:15, Ernesto Hernandez-Novich escribi?: > Estuvimos viendo algunos aspectos de programaci?n funcional presentes en > Perl. El manejo de listas "como un todo" es b?sico para la programaci?n > funcional, as? que hablamos de usar for/foreach sobre listas, en lugar > de for "a lo C" (iterador versus contador); luego exploramos lo que son > los operadores de iteraci?n impl?cita (map) y de filtrado (grep), > aplic?ndolos a algunos problemas simples, pero ilustrativos. Para > terminar, estudiamos la "maniobra Schwartz" y vimos un ejemplo de "map > superfluo" (concretamente, un map cuya lista resultante no se usa, no es > una buena idea). Por cierto me gustar?a mucho tener los ejemplos que diste Ernesto. Los puedes enviar por aqu? o darme un vinculo donde pueda bajarlos. Son sencillos pero buenos para mantener frescos todos esos detalles. Gracias de antemano. Tony. From aarnal at me.gov.ve Wed Jan 19 02:13:26 2005 From: aarnal at me.gov.ve (Alexis Arnal) Date: Wed Jan 19 07:12:53 2005 Subject: [caracas-pm] =?ISO-8859-1?Q?Teor=EDa?= de Conjuntos In-Reply-To: References: <200501140844.19227.zeus@mipropio.com> <1105975526.1323.6.camel@03omisis090> Message-ID: <1106129606.1601.6.camel@03omisis090> Saludos, excelente el m?dulo para trabajar con teor?a de conjuntos, lo estoy probando ahora y quisiera hacer una correcci?n que encontre: El mar, 18-01-2005 a las 09:15 -0400, Ernesto Hernandez-Novich escribi?: > Por supuesto. Existen varios m?dulos para manipular conjuntos. Ahora > mismo tengo mucho tiempo utilizando Set::Scalar [1] que es ideal > cuando los conjuntos tienen s?mbolos arbitrarios. T?pico uso > > use Set::Scalar; > my $p = new Set::Scalar; > $p->insert('a','b'); > my $q = new Set::Scalar; > $q->insert('b','c'); > my $r = Set::Scalar->new(qw/a b c d e/); > print $q,"\n"; # Muestra (b c) > print $p->union($q)->intersect($r),"\n"; # Muestra (a b c) > En esta ?ltima l?nea no funciona con "intersect" sino con "intersection", esto lo encontre en la documentaci?n del m?dulo luego de hacer varias pruebas con resultado err?neo. La l?nea queda de la siguiente manera: print $p->union($q)->intersection($r),"\n"; # Muestra (a b c) > Se proveen varios predicados sobre conjuntos, adem?s del concepto de > Universo durante la ejecuci?n. M?s a?n, el m?dulo aprovecha lasobrecarga > de operadores, de modo que la ?ltima l?nea se podr?a escribir > > print ($p + $q) * $r; -- Linux user number 378161 Caracas-Venezuela From emhn at telcel.net.ve Sat Jan 22 08:14:01 2005 From: emhn at telcel.net.ve (Ernesto =?ISO-8859-1?Q?Hern=E1ndez-Novich?=) Date: Sat Jan 22 11:54:07 2005 Subject: [caracas-pm] Ejemplos de la =?iso-8859-1?q?Reuni=F3n?= Anterior Message-ID: <1106410441.18254.183.camel@trillian.guru.home> * map/split y join/map "Ernesto" -> Lista de valores ASCII -> "otsenrE" $, = ", "; my $string = "Ernesto"; my @ascii = map { ord($_) } split //,$string; print @ascii,"\n"; $, = ""; $string = join "",map { chr($_) } reverse(@ascii); print $string,"\n"; * El ejercicio propuesto por la audiencia. Se tiene un hash y se quiere reconstruir de manera que todas las _claves_ sean convertidas a may?scula. (Tip: usar Data::Dumper para ver %o _antes_ y %n _despu?s_; nos valemos del truco de que un hash no es m?s que una lista cuyas posiciones pares son claves e impares son valores). my %o = ( 'a' => 'b', 'c' => 'd', 'e' => 1, 'f' => 'H' ); my %n = map { uc($_) => $o{$_} } (keys %o); * "Programaci?n procedural es m?s r?pida que la funcional". Dada una lista de 100.000 n?meros escogidos al azar en [0..1000], generar una lista con los n?meros ?nicos (es decir, eliminar duplicados). Se escriben dos funciones, una implementa de la mejor manera posible el algoritmo obvio procedural, la otra implementa la manera simple funcional; se usa Benchmark para demostrar cu?l es m?s r?pida. Nota: agregu? 'classic-plus' que fue la sugerencia de Jos? Luis de usar asignaci?n a 1 en lugar de incrementar. use Benchmark; sub classic { my @list = @_; my %visto = (); foreach (@list) { $visto{$_}++; } return keys %visto; } sub classic_plus { my @list = @_; my %visto = (); foreach (@list) { $visto{$_} = 1; } return keys %visto; } sub functional { my @list = @_; my %visto = (); return grep { ! $visto{$_}++ } @list; } my @list = map { int(rand(1000)) } (1..100000); timethese (1000000, { 'classic' => 'classic(@list)', 'classic+' => 'classic_plus(@list)', 'functional' => 'functional(@list)' }); * map "?til" vs. map "in?til". El map usando print es in?til porque no se utiliza para nada la lista generada (es un desperdicio de espacio y tiempo). No obstante el map/grep interon es util?simo y hace que el algoritmo se vea m?s compacto y adem?s sea m?s r?pido que el algoritmo procedural equivalente. # Sea @p una lista de coeficientes de ecuaciones cuadr?ticas, # obtener una lista con las ra?ces, siempre y cuando sean reales. # # 2 # Si y = ax + bx + c # # d = b * b - 4 * a * c, d < 0 => Raiz imaginaria # d > 0 => Ra?ces ( -b +/- sqrt(d) ) / 2 * a my @p = ( [1,2,1], [1,1,1], [4,3,5], [1,0,-4], [1,16,4] ); sub d { my ($a,$b,$c) = @_; return $b * $b - 4 * $a * $c; } sub raices { my ($a,$b,$c) = @_; my $d = d($a,$b,$c); return [ ( -$b + sqrt($d) ) / (2 * $a), ( -$b - sqrt($d) ) / (2 * a) ]; } map { print "(", join(",",@{$_}), ")\n"; } map { raices( @{$_} ) } grep { d( @{$_} ) >= 0 } @p; * La maniobra de Schwartz. Se quiere ordenar una lista de archivos seg?n su tama?o; el algoritmo procedural obvio tiene una l?nea, mientras que el algoritmo funcional aplicando la maniobra de Schwartz es menos obvio pero es humillantemente m?s r?pido. use Benchmark; timethese(200, { 'classic' => '@sorted = sort { -s $a <=> -s $b } glob "/usr/bin/*"', 'schwartz' => '@sorted = map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [$_,-s $_] } glob "/usr/bin/*"' } ); -- Ernesto Hern?ndez-Novich - On Linux 2.6.10 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From emhn at telcel.net.ve Sat Jan 22 08:16:25 2005 From: emhn at telcel.net.ve (Ernesto =?ISO-8859-1?Q?Hern=E1ndez-Novich?=) Date: Sat Jan 22 11:57:33 2005 Subject: [caracas-pm] =?ISO-8859-1?Q?Teor=EDa?= de Conjuntos In-Reply-To: <1106129606.1601.6.camel@03omisis090> References: <200501140844.19227.zeus@mipropio.com> <1105975526.1323.6.camel@03omisis090> <1106129606.1601.6.camel@03omisis090> Message-ID: <1106410585.18254.186.camel@trillian.guru.home> On Wed, 2005-01-19 at 11:13 +0100, Alexis Arnal wrote: > Saludos, excelente el m?dulo para trabajar con teor?a de conjuntos, lo > estoy probando ahora y quisiera hacer una correcci?n que encontre: ?Absolutamente! Muchas gracias. Me pasa por escribir de memoria sin correr los programas :-P > > print $p->union($q)->intersect($r),"\n"; # Muestra (a b c) > > En esta ?ltima l?nea no funciona con "intersect" sino con > "intersection", esto lo encontre en la documentaci?n del m?dulo luego de > hacer varias pruebas con resultado err?neo. > > La l?nea queda de la siguiente manera: > > print $p->union($q)->intersection($r),"\n"; # Muestra (a b c) -- Ernesto Hern?ndez-Novich - On Linux 2.6.10 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From aarnal at me.gov.ve Tue Jan 25 04:02:57 2005 From: aarnal at me.gov.ve (Alexis Arnal) Date: Tue Jan 25 09:02:15 2005 Subject: [caracas-pm] Libros de Perl In-Reply-To: <1106410585.18254.186.camel@trillian.guru.home> References: <200501140844.19227.zeus@mipropio.com> <1105975526.1323.6.camel@03omisis090> <1106129606.1601.6.camel@03omisis090> <1106410585.18254.186.camel@trillian.guru.home> Message-ID: <1106654577.1342.11.camel@03omisis090> Saludos, deseo comprar unos libros de Perl, ?Cual me recomiendan? He estado buscando pero los libros que encuentro son generalmente del a?o 2000, hab?a pensado en Practical Mod_Perl o algo as? por estilo Ya tengo un CD-Bookshelf 4.0 (Learning Perl, Perl in a Nutshell,Perl Cookbook, Perl DBI) tambien tengo Programming CGI Application with Perl. Hace tiempo Ernesto nos meciono que existian descuentos de oreilly por pertenecer a perl monger, me gustar?a saber si todav?a existe. -- Alexis Arnal Linux user number 378161 Caracas-Venezuela From emhn at telcel.net.ve Tue Jan 25 19:16:51 2005 From: emhn at telcel.net.ve (Ernesto =?ISO-8859-1?Q?Hern=E1ndez-Novich?=) Date: Wed Jan 26 05:54:17 2005 Subject: [caracas-pm] Libros de Perl In-Reply-To: <1106654577.1342.11.camel@03omisis090> References: <200501140844.19227.zeus@mipropio.com> <1105975526.1323.6.camel@03omisis090> <1106129606.1601.6.camel@03omisis090> <1106410585.18254.186.camel@trillian.guru.home> <1106654577.1342.11.camel@03omisis090> Message-ID: <1106709411.28373.30.camel@trillian.guru.home> On Tue, 2005-01-25 at 13:02 +0100, Alexis Arnal wrote: > Saludos, deseo comprar unos libros de Perl, ?Cual me recomiendan? > He estado buscando pero los libros que encuentro son generalmente del > a?o 2000, hab?a pensado en Practical Mod_Perl o algo as? por estilo > Ya tengo un CD-Bookshelf 4.0 (Learning Perl, Perl in a Nutshell,Perl > Cookbook, Perl DBI) tambien tengo Programming CGI Application with Perl. Adem?s de los que ya tienes, es importante Advanced Perl Programming (La Pantera) y Mastering Algorithms with Perl (El Chacal). El primero cubre en detalle la parte de referencias, librer?as/m?dulos, OO, aspectos de programaci?n funcional, extensiones a Perl y una introducci?n gentil a "template programming" (programas que generan programas). El segundo cubre todos los algoritmos conocidos para grafos, conjuntos, c?lculo num?rico y otras cosas m?s, tanto describiendo las estructuras de datos y su implementaci?n, como (si aplica) indicando los m?dulos CPAN adecuados. Por ejemplo, explica como modelar grafos y te habla de la familia de m?dulos Graph::* que coment? en otro mensaje. Si te vas a dedicar a administrar sistemas, Perl for System Administrators es una buen comienzo; y si piensas explo{r|t}ar la programaci?n por modelos, te recomiendo Perl Template Toolkit. Una alternativa muy interesante es visitar peri?dicamente perlmonks.org o use.perl.com y enterarte de los ejercicios, art?culos y libros que usualmente aparecen referenciados. Lo otro recomendable es visitar la p?gina de Randal Schwartz y comenzar a leer e implementar todos sus art?culos. > Hace tiempo Ernesto nos meciono que existian descuentos de oreilly por > pertenecer a perl monger, me gustar?a saber si todav?a existe. Por supuesto. Ordena tu libro en O'Reilly y menciona el c?digo 'DSUG'; corresponde un 20% de descuento. -- Ernesto Hern?ndez-Novich - On Linux 2.6.10 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From aarnal at me.gov.ve Thu Jan 27 05:03:29 2005 From: aarnal at me.gov.ve (Alexis Arnal) Date: Thu Jan 27 10:03:07 2005 Subject: [caracas-pm] Libros de Perl In-Reply-To: <1106709411.28373.30.camel@trillian.guru.home> References: <200501140844.19227.zeus@mipropio.com> <1105975526.1323.6.camel@03omisis090> <1106129606.1601.6.camel@03omisis090> <1106410585.18254.186.camel@trillian.guru.home> <1106654577.1342.11.camel@03omisis090> <1106709411.28373.30.camel@trillian.guru.home> Message-ID: <1106831009.1507.6.camel@03omisis090> Gracias por las recomendaciones ya que en realidad me encuentro un poco desorientado por tanta informaci?n y cada vez comprendo m?s a Socr?tes "Yo solo s?, que yo solo no se nada". El mar, 25-01-2005 a las 23:16 -0400, Ernesto Hern?ndez-Novich escribi?: > On Tue, 2005-01-25 at 13:02 +0100, Alexis Arnal wrote: > > Saludos, deseo comprar unos libros de Perl, ?Cual me recomiendan? > > He estado buscando pero los libros que encuentro son generalmente del > > a?o 2000, hab?a pensado en Practical Mod_Perl o algo as? por estilo > > Ya tengo un CD-Bookshelf 4.0 (Learning Perl, Perl in a Nutshell,Perl > > Cookbook, Perl DBI) tambien tengo Programming CGI Application with Perl. > > Adem?s de los que ya tienes, es importante Advanced Perl Programming (La > Pantera) y Mastering Algorithms with Perl (El Chacal). El primero cubre > en detalle la parte de referencias, librer?as/m?dulos, OO, aspectos de > programaci?n funcional, extensiones a Perl y una introducci?n gentil a > "template programming" (programas que generan programas). El segundo > cubre todos los algoritmos conocidos para grafos, conjuntos, c?lculo > num?rico y otras cosas m?s, tanto describiendo las estructuras de datos > y su implementaci?n, como (si aplica) indicando los m?dulos CPAN > adecuados. Por ejemplo, explica como modelar grafos y te habla de la > familia de m?dulos Graph::* que coment? en otro mensaje. > > Si te vas a dedicar a administrar sistemas, Perl for System > Administrators es una buen comienzo; y si piensas explo{r|t}ar la > programaci?n por modelos, te recomiendo Perl Template Toolkit. > > Una alternativa muy interesante es visitar peri?dicamente perlmonks.org > o use.perl.com y enterarte de los ejercicios, art?culos y libros que > usualmente aparecen referenciados. Lo otro recomendable es visitar la > p?gina de Randal Schwartz y comenzar a leer e implementar todos sus > art?culos. > > > Hace tiempo Ernesto nos meciono que existian descuentos de oreilly por > > pertenecer a perl monger, me gustar?a saber si todav?a existe. > > Por supuesto. Ordena tu libro en O'Reilly y menciona el c?digo 'DSUG'; > corresponde un 20% de descuento. -- Linux user number 378161 Caracas-Venezuela