I need to create a hash with a key/value pair as text:nontext like so:
savecrash as the key and 1 as the value
savecrash_dir as the key and /var/adm/crash as the value.
The output from each is giving 1 (true) but I need to have the values as
I stated above.
Here is my code and below that is the output
require 5.6.1;
use strict;
use warnings;
use diagnostics;
#use MIME::Lite;
$ENV{"PATH"} = qq(/usr/sbin:/usr/bin:/usr/local/log);
delete @ENV{qw (IFS CDPATH ENV KSH_ENV) };
#my (@vg,@lvln) = ();
my ($vg,$lvln) = 0;
my (%vg,%lvln) = ();
my $savecrash = qq(/etc/rc.config.d/savecrash);
my $crashconf = qq(/etc/rc.config.d/crashconf);
my $log = qq(/usr/local/log/hpux_verify.pl.log);
##-- BEGIN ROUTINES --##
my $overide = $SIG{__DIE__}; ## get error handler currently
assigned 2 die
$SIG{__DIE__} =
sub {
my $error = shift; ## error now holds the mesg passed to
die
$overide->($error) if (ref $overide);
print LOG ($error);
};
sub dateme {
my ($month,$day,$year) = (localtime)[4,3,5];
sprintf ("%02d/%02d/%02d\n", $month+1,$day,($year % 100));
}
open (LOG, ">>$log") || die "unable to open $log $!";
open (SC, "+<$savecrash") || die "unable to open $savecrash $!";
for (;<SC>;) {
if ( /(?i)savecrash=/ || /(?i)savecrash_dir=\W+\w+/ ) {
chomp;
$vg{$_}++;
}
}
while (my ($k,$v) = each %vg) {
print "$k\t:$v\n";
}
close (SC) || warn "unable to close $savecrash $!";
close (LOG) || warn "unable to close $log $!";
_OUTPUT__
SAVECRASH=1 :1
SAVECRASH_DIR=/var/adm/crash :1
Thank you
Derek
Cardinal Health -- Working together. For life. (sm)
_________________________________________________
This message is for the designated recipient only and may contain privileged,
proprietary, or otherwise private information. If you have received it in
error, please notify the sender immediately and delete the original. Any other
use of the email by you is prohibited.
Dansk - Deutsch - Espanol - Francais - Italiano - Japanese - Nederlands - Norsk
- Portuguese - Svenska: www.cardinalhealth.com/legal/email
