#!/usr/bin/perl

# Este programa recibe en la linea de comandos el nombre de un archivo
# html (solo uno a la vez) para extraer de el los archivos a los que
# hace referencia y aniadirles al principio la cabeza que lo cita.

$nombre = @ARGV[0];
$archivo = @ARGV[1];

open (DATA, $nombre) || die "No puedo abrir $nombre\n";
open (SAL,">/tmp/mientras") || die "No puedo crear /tmp/mientras\n";

while (<DATA>) {
#    s/(#33CC00.*)/\U$1/g;    
#    s/pepe.php3/\/voto57\/ordi31\/lanordi31.php3/g;
    s/lanordi32.php3/\/voto57\/ordi32\/lanordi32.php3/g;
    print SAL "$_";
}
close (DATA);
close (SAL);
system ("mv /tmp/mientras $nombre");
