necesito traducir esto

[engonga]

Me han passado esto en perl, pero me interesaria passarlo a PHP y ASP. ASP no se si será possible.

esta hecho en perl.


print "Pillando foto del dia...\n";

# Conectamos y pillamos el documento...
$doc = get "http://actualidad.wanadoo.es/";;
@abc=split(/\n/,$doc);
$pillar = 0;

foreach $linea (@abc) {
if ($pillar eq 0) {
if ($linea =~ "<a href=\"/galerias/index_1.html\" class=\"lnk\">") {
($kk1, $kk2) = split("<img src=\"", $linea);
($urlimg, $kk2) = split("\" class=", $kk2);
$pillar = 1;
}
}

alguien sabe si se puede traducir, a PHP y a ASP?

[mawster]

porque no vas a un foro de Perl, haber si alli alguien sabe PHP y te lo puede traducir?

[Cluster]

Para estos casos .. lo ideal es que te olvides de lo que tienes hecho en algún -otro- lenguaje y expongas que quieres hacer para implementarlo en PHP directamente (o en el foro de ASP preguntas lo mismo para ese caso).

Por mi parte no sé Perl .. pero "parece" que lo que hace es leer un URL y procesar algo que está en el texto del URL que se lee.

En principio en PHP leer un URL de esa forma se haría con la función file() .. eso te entregará un array que puedes recorrer con un bucle foreach() .. lo demás no sé muy bien lo que hace .. pero en PHP también tienes la función split() que hace lo mismo que en Perl. (tal vez sea mejor para ese caso usar expresiones regulares .. por eso es necesario que expliques bien que es lo que debería hacer ese código para ver soluciones en PHP).

Un saludo,