• Publicidad

Script Kickstart perl

¿Eres administrador de sistemas? Este foro es para todos aquellos temas relacionados con el uso de Perl para administración de sistemas.

Script Kickstart perl

Notapor edwardmorfa » 2015-11-05 09:59 @457

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"
edwardmorfa
Perlero nuevo
Perlero nuevo
 
Mensajes: 6
Registrado: 2015-11-04 18:26 @810

Publicidad

Re: Script Kickstart perl

Notapor explorer » 2015-11-06 13:45 @614

Bienvenido a los foros de Perl en Español, edwardmorfa.

No entiendo mucho la pregunta. ¿A qué te refieres con iterativo? ¿Que se repite mucho o que da muchas vueltas?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Script Kickstart perl

Notapor edwardmorfa » 2015-11-06 15:07 @672

Gracias, amigo, soy nuevo en Perl.

El profesor me dice que el código sea menos iterativo, es decir: que no interactúe mucho con el usuario introduciendo datos por el command prompt, etc.

El dijo que solo la clave y el usuario deben ser iterativo, o sea, que el usuario lo introduzca.
edwardmorfa
Perlero nuevo
Perlero nuevo
 
Mensajes: 6
Registrado: 2015-11-04 18:26 @810

Re: Script Kickstart perl

Notapor explorer » 2015-11-06 15:53 @703

Bueno, el resto de datos se pueden entregar como argumentos al programa. Algo así:

programa.pl ruta/al/archivo servidor.ftp.com

Desde el programa, los lees desde el array especial @ARGV.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Administración

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron