Hola, compañeros, me gustaría saber cómo hago este script menos iterativo. El profesor me pide que solo reciba root y el usuario. Lo demás se debe de ejecutar en el script. Ver adjunto.
#! /usr/bin/perl
use strict;
my $usrinput;
my $routeftp;
my $routearchivo;
print("\n***********************************************\n\n");
print("\n***********************************************\n\n");
print("\n**************** Kickstart*********************\n\n");
print("\n***********************************************\n\n");
print("\n***********************************************\n\n");
print ksconf "#*********************Kickstart creado con un script******************\n\n";
print "Ingrese la ruta y nombre del archivo kickstart a establecer: \n";
$routearchivo=<>;
chomp($routearchivo);
open(ksconf,">>","$routearchivo")
or die("Archivo no creado");
print "Ingrese la ruta del servidor FTP";
$routeftp=<>;
chomp($routeftp);
print ksconf "url --url=\"$routeftp\" \n";
print ksconf "lang en_US.UTF-8 \n";
print ksconf "keyboard us\n";
print "Ingrese la clave del root: ";
$usrinput=<>;
chomp($usrinput);
print "\n\nArchivo kickstart establecido en la ruta especificada\n\n"