La versión de Ubuntu 10.04 Lucid, como sabéis utiliza php 5.3 pero no todos trabajamos con esta versión de php, aunque todo llegará, y claro es cuando nos llevamos las manos a la cabeza cuando hacemos el update/instalación de Ubuntu 10.04.

Bien para hacer la instalación de php5.2 es muy sencillo, con seguir los pasos del enlace de este blog lo tenemos solucionado.

Pero luego, como nuestro repositorio tendrá más información disponible tienes que aumentar el valor de la variable APT::Cache-Limit para evitar el error al refrescar nuestros repositorios.

Crea el fichero 00apt en:

/etc/apt/apt.conf.d/00apt

Y le asignamos un valor elevado al APT::Cache-Limit:

APT::Cache-Limit 99999999;

Bien, ahora ya podemos actualizar los repositorios sin errores y estaremos trabajando con la versión php5.2 en Ubuntu 10.04.

http://es.wikipedia.org/wiki/Hola_mundo

Así podréis comprobar si está el lenguaje que vosotors utilizais o comprobar la sintaxis de lenguajes a los que os gustaría echarles el guante ^_^

Hola Mundo!

Hace ya unos meses me surgió la idea de hacer un programa para utilizarlo como tester de carga de usuarios simultáneos para una web, para testear su comportamiento/rendimiento y lo que en un principio pretendía ser un programa malicioso... ya que se podría usar para fines no muy éticos, dio un giro según iba investigando.

Perl lo he utilizado a nivel profesional para ocasiones muy puntuales y no he tenido la oportunidad de hacer un "programa" en condiciones.

El código que abajo os dejo tampoco es una maravilla, pero es algo que hice probando "el año pasado" el intento de hacer un Spider. Está muy verde y no se cuando volveré a disponer del tiempo y las ganas suficientes como para investigar después de la jornada de trabajo. Pero aquí os dejo un fragmeto que puede iniciar a los no muy decididos o principiantes sobre este lenguaje.

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Request;
my $url = "http://www.google.com";
&webFlood($url);
sub webFlood {
my ($url) = @_;
my $html = &leerUrl($url);
my @enlaces = &buscarLink($html);
my $contador = @enlaces;
if($contador > 0){
foreach(@enlaces){
my $link = $_;
print ("n[ Url ] ".$link);
&webFlood($link);
}
}else{
return(0);
}
}
print("n");
sub leerLinks {
#my ($url) = @_;
#my $html = &leerUrl($url);
my (@links) = @_;
my $html;
my @enlaces;
my $i = 0;
foreach (@links) {
print "n url: " . $_;
my $link = $_;
#print( "   [Link] " . $link . "n" );
$html = &leerUrl($link);
$enlaces[$i] = &buscarLink($html);
$i++;
}
return @enlaces;
}
sub leerUrl {
my ($url) = @_;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 2000; DigExt)");
my $req = HTTP::Request->new( GET => $url );
my $response = $ua->request($req);
return $response->content;
}
sub buscarLink {
my ($html) = @_;
my @links;
my $i = 0;
while ( $html =~ /href="(.*?)".*?>/isg ) {
$links[$i] = ($1);
$i++;
}
return @links;
}

Lo que haces es leer una URL y del HTML que recoge coge solo el contenido de los href. Obviamente como ya sabréis, no todos los href son enlaces. Falta mucho que depurar pero es un buen pasatiempo cuando se tiene la mente descansada. Cuando le haga algún cambio os lo publico.

Si os surge alguna duda sobre algo del código siempre podéis comentar

#!/usr/bin/perl -w
sub smtp {
use Email::MIME::Creator;
my ( $To, $FromName, $FromMail, $Bcc, $Subject, $msg_html ) = @_;
my @html = $msg_html;
# mensaje multipart
my @parts = (
Email::MIME->create(
attributes => {
content_type => "text/html; charset=iso-8859-1",
encoding => "quoted-printable",
},
body => "@html",
),
);
# Declaramos al sender y adjuntamos los archivos a enviar
my $email = Email::MIME->create(
header => [ From => "$FromName < $FromMail >" ],
parts => [ @parts ],
);
# modificamos nuestro encabezado
$email->header_set( "MIME-Version: 1.0rn" );
$email->header_set("Content-type: text/html; charset=iso-8859-1rn");
$email->header_set( 'X-PoweredBy' => 'v3.0' );
$email->header_set( To => "$To" );
$email->header_set( Bcc => "$Bcc" );
$email->header_set( Subject => "$Subject" );
# modificaciones avanzadas, elegimos base64 o bien 7bit para aceptar multipart
#$_->encoding_set( 'base64' ) for $email->parts;
# Accesamos al binario de sendmail y enviamos los mensajes
open (MAIL, "|/usr/sbin/sendmail -t") || die "No hay acceso al binario sendmailn";
#open (MAIL, "|/usr/sbin/postfix") || die "No hay acceso al binario sendmailn";
print MAIL $email->as_string;
}

Para usar la función:

&smtp($vTo, $vFromName, $vFromMail, $vBcc, $vSubject, $vmsg_html );

Podéis encontrar más información aquí.

Descargar módulo speech festival para perl.

Así nos dejamos de utilizar editores de consola que aunque rápidos, no nos ofrecen el interface de desarrollo que nos puede llegar a ofrecer este programa.

Descargar Eclipse

Plugin Perl para Eclipse