# Programa genera sucesivos archivos de entrada para FAST.
# ______________________________________________________________________

# Cambiamos la altura de la torre en el archivo_parámetros.
for $i (72..74) {
    for $j (-3..0) {
        # Lugar donde almacenaremos el fichero leido y modificado
        my @params;

        # Abrimos el fichero en lectura
        open (PARAMS, "<PARAMS.in") or die "No se pudo abrir PARAMS.in: $!";

        # Para todas las lineas del fichero hacemos el cambio
        for $line (<PARAMS>) {
            if ($line =~ /^B/) {
                $line  =~ s/=.*\d+/= $j/ or die "No se pudo cambiar el pitch:$!";
            } else {
                ("$line  =~ s/TOWER_HT =.*\d+/TOWER_HT= $i/") == 0 or die "No se cambió la altura de la torre: $!";
            }

            push @params, $line;
        }

        close PARAMS;

        # Grabamos el resultado
        open (OVERWRITE, ">PARAMS.in") or die "No se pudo abrir PARAMS.in: $!";
        print OVERWRITE @params or die "No se pudo sobreescribir PARAMS.in: $!";
        close OVERWRITE;

        # Corre el programa prepro y genera una entrada para FAST.
        system ("c:\\perl\\bin\\perl prepro.pl PARAMS.in FAST.template H$i($j).in") == 0 or die "No se generó el input para FAST: $!";
    }
}

for $i (72..74) {
    for $j (-3..0) {

        # Lugar donde almacenaremos el fichero leido y modificado
        my @params;

        # Abrimos el fichero en lectura
        open (PARAMS, "<PARAMS.in") or die "No se pudo abrir PARAMS.in: $!";

        # Para todas las lineas del fichero hacemos el cambio
        for $line (<PARAMS>) {

              $line =~ s/(\{B.+=.*?)[\d.-]+/$1$j/;
              $line =~ s/(\{TOWER_HT.*=.*?)[\d.-]+/$1$i/;

            push @params, $line;
        }

        close PARAMS;

        # Grabamos el resultado
        open (OVERWRITE, ">PARAMS.in") or die "No se pudo abrir PARAMS.in: $!";
        print OVERWRITE @params or die "No se pudo sobreescribir PARAMS.in: $!";
        close OVERWRITE;

        # Corre el programa prepro y genera una entrada para FAST.
        system ("c:\\perl\\bin\\perl prepro.pl PARAMS.in FAST.template H$i($j).in") == 0 or die "No se genero el input para FAST: $!";

    }
}