This is my first Perl programming attempt. The script is supposed to read
certain variables from the unattend.txt file and then define system
variables containing the values read.
I keep getting the error:
"Can't locate object method "new" via package "Unattend::Inifile" (perhaps
you forgot to load "Unattend::Inifile"?) at z:\scripts\VarEntorno.pl line
9."
I understand the "use" command loads "Unattend::Inifile".
Any suggestions.
-----------------8<--- HERE IS THE FILE ------8<------
# Este script lee los datos de las variables de entorno del unattend.txt de
este equipo
# y crea variables de entorno con dichos valores.
use Unattend::Inifile;
# Leemos todas las variables almacenadas en Unattend.txt
my $u = new Unattend::Inifile ('C:\\netinst\\unattend.txt');
my $NumSerie = $u->{'_hp'}->{'NumSerie'};
my $NumInvent = $u->{'_hp'}->{'NumInvent'};
my $ModeloPC = $u->{'_hp'}->{'ModeloPC'};
my $CodUsuar = $u->{'_hp'}->{'CodUsuar'};
print $NumSerie,$Numinvent,$ModeloPC,$CodUsuar;
# Almacena las variables de entorno en el sistema.
my $set_environment = 'setenv.pl';
if (-e $set_environment) {
my $result = do $set_environment ,' NUM_SERIE ', $NumSerie;
$@
and die "do $set_environment failed: $@";
defined $result
or die "Could not do $set_environment: $^E";
}
if (-e $set_environment) {
my $result = do $set_environment ,' NUM_INVENTARIO ', $NumInvent;
$@
and die "do $set_environment failed: $@";
defined $result
or die "Could not do $set_environment: $^E";
}
if (-e $set_environment) {
my $result = do $set_environment ,' MODELO ', $ModeloPC;
$@
and die "do $set_environment failed: $@";
defined $result
or die "Could not do $set_environment: $^E";
}
if (-e $set_environment) {
my $result = do $set_environment ,' COD_USUARIO ', $CodUsuar;
$@
and die "do $set_environment failed: $@";
defined $result
or die "Could not do $set_environment: $^E";
}
-------------------------------------------------------
This SF.net email is sponsored by: SF.net Giveback Program.
Does SourceForge.net help you be more productive? Does it
help you create better code? SHARE THE LOVE, and help us help
YOU! Click Here: http://sourceforge.net/donate/
_______________________________________________
unattended-info mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/unattended-info
