1
這對我來說毫無意義。我有這兩個子程序。在我的程序中導致警告「使用未初始化的值」的原因是什麼？
sub load_config_file {
if (@_ eq '') {
die RED . "No configuration file defined" . RESET . "\n";
} else {
if (! -e "@_") {
die RED . "@_ not found!" . RESET . "\n";
} else {
if (`cat @_` eq '') {
die RED . "$config_file_path is an empty file!" . RESET . "\n\n";
} else {
print "Configuration file:" . GREEN . "@_" . RESET . "\n";
my $xml_obj = XML::Simple->new();
my $config_xml = $xml_obj->XMLin("@_", SuppressEmpty => 1);
%config_file = %$config_xml;
}
}
}
} # End load_config_file
sub load_guest_os_file {
if (@_ eq '') {
die RED . "No guest operating system file defined" . RESET . "\n";
} else {
if (! -e "@_") {
die RED . "@_ not found!" . RESET . "\n";
} else {
if (`cat @_` eq '') {
die RED . "@_ is an empty file!" . RESET . "\n\n";
} else {
print "Guest OS file:" . GREEN . "@_" . RESET . "\n";
my $xml_obj = XML::Simple->new();
my $guest_os_xml = $xml_obj->XMLin("@_", SuppressEmpty => 1);
%guest_os_file = %$guest_os_xml;
}
}
}
} # End load_guest_os_file
他們的目的是加載我的腳本所需的特定配置文件。第一個，load_config_file，作品完美。但是，當我移動到第二個，load_guest_os_file，我從Perl中得到這些錯誤：
Use of uninitialized value $_[0] in join or string at analyze.pl line 146.
Use of uninitialized value $_[0] in join or string at analyze.pl line 148.
在我的腳本146線是
if (! -e "@_") {
和線路148
die RED . "@_ not found!" . RESET . "\n";
什麼我錯過了嗎？當我調用子程序這樣的：
load_config_file($config_file_path)
load_guest_os_file($guest_os_file_path)
...分配給這兩個變量的值
my $config_file_path = './config.xml'
和
my $guest_os_file_path = './guest_os.xml'
編輯：我也要添加來自處理的命令行參數的兩個變量的值Getopt::Long。如果沒有賦值，變量只是「聲明」，我認爲這是一個術語。我沒有給它賦值，它只是my $config_file_path;和my $guest_os_file_path;。
更新
這是從劇本開始的代碼。
#!/usr/bin/perl
use strict;
use warnings;
# Modules to load
use Getopt::Long;
use Term::ANSIColor qw(:constants);
use XML::Simple;
use Net::Ping;
use Net::OpenSSH;
use Data::Dumper;
# Script version
my $version = 'v0.6';
my (%config_file, %guest_os_file, %machines_xml, $ssh_obj);
my @selected_mode;
# Configuration file
my $config_file_path;
# Guest OS file
my $guest_os_file_path;
# Exclusion file
my $exclude_file_path;
# Disables snapshot capture
my $no_snapshots = 0;
my $logfile_path;
my $verbose = 0;
# Program modes
my %program_modes = (
analyze => \&analyze,
backup => \&backup,
restore => \&restore,
help => \&help,
);
GetOptions(
'c=s' => \$config_file_path,
'e=s' => \$exclude_file_path,
'g=s' => \$guest_os_file_path,
'l=s' => \$logfile_path,
'v' => \$verbose,
'x' => \$no_snapshots,
'a' => sub { push @selected_mode, "analyze" },
'b' => sub { push @selected_mode, "backup" },
'h' => sub { push @selected_mode, "help" },
'r' => sub { push @selected_mode, "restore" },
's' => sub { push @selected_mode, "setup" },
);
# Show the help menu if no program mode has been selected
if (@selected_mode == 0) {
help();
# Throw an error and show the help menu if too many modes are selected
} elsif (@selected_mode > 1) {
print RED . "Too many program modes specified" . RESET . "\n";
print "See help menu [-h] for further information\n";
# Run the selected program mode
} elsif (@selected_mode == 1) {
if ($selected_mode[0] eq 'help') {
help();
} else {
# Die unless user is root
die RED . "You must be have superuser permissions to run this script" . RESET . "\n" unless ($> == 0);
system "clear";
print "Solignis's VMware $selected_mode[0] script $version for ESX\\ESX(i) 4.0+\n";
load_config_file($config_file_path);
if ($selected_mode[0] eq 'analyze') {
load_guest_os_file($guest_os_file_path);
} else {
######
}
}
}
那麼是什麼導致了警告？這是我猜測下面？ – hexcoder 2011-05-24 15:23:29