Perl Script Problem

[itzaps]

Hi,

I want to write a perl script that will take value from an external file
the file will be in name=value format and write those values to another file
My problem is I am not able to select variables from the file randomly.
My program is always reading the value line by line.
The program so far I tried

$ENV{'PATH'} = 'C:\shared\IQA\appli.env';
open(ENV,"$ENV{PATH}") || die "cannot open File:";
chomp($a =<ENV>);
chomp($b =<ENV>);
chomp($c =<ENV>);
($variable, $value) = split /=/, $a;
($variable1, $value1) = split /=/, $b;
($variable2, $value2) = split /=/, $c;
if ($variable eq "$APPLI_LOG_SHL_DIR")
     {$APPLI_LOG_SHL_DIR = $value;}
elsif ($variable1 eq "$JOB_ID")
      {$JOB_ID = $value1;}
elsif ($variable2 eq "$LOG_MSG")
      {$LOG_MSG = $value2;}
 my $LOG_FILE  = $value . "/" . $value1 . ".log";
 my $date_as_a_string = localtime;
 open (LOGFILE,">>$LOG_FILE") || die "cannot open logfile $LOG_FILE for append: $!";
 print LOGFILE $value2,"\n",$date_as_a_string, "\n";
 close (LOGFILE);
 

This progarm is always taking the first 3 variable values from the file.But I want the program to take variable values randomly.
Please help me I am complete stuck

[numberwhun]

Hi,

I want to write a perl script that will take value from an external file
the file will be in name=value format and write those values to another file
My problem is I am not able to select variables from the file randomly.
My program is always reading the value line by line.
The program so far I tried

$ENV{'PATH'} = 'C:\shared\IQA\appli.env';
open(ENV,"$ENV{PATH}") || die "cannot open File:";
chomp($a =<ENV>);
chomp($b =<ENV>);
chomp($c =<ENV>);
($variable, $value) = split /=/, $a;
($variable1, $value1) = split /=/, $b;
($variable2, $value2) = split /=/, $c;
if ($variable eq "$APPLI_LOG_SHL_DIR")
     {$APPLI_LOG_SHL_DIR = $value;}
elsif ($variable1 eq "$JOB_ID")
      {$JOB_ID = $value1;}
elsif ($variable2 eq "$LOG_MSG")
      {$LOG_MSG = $value2;}
 my $LOG_FILE  = $value . "/" . $value1 . ".log";
 my $date_as_a_string = localtime;
 open (LOGFILE,">>$LOG_FILE") || die "cannot open logfile $LOG_FILE for append: $!";
 print LOGFILE $value2,"\n",$date_as_a_string, "\n";
 close (LOGFILE);
 

This progarm is always taking the first 3 variable values from the file.But I want the program to take variable values randomly.
Please help me I am complete stuck

That is because all your script is doing is reading the first 3 lines of the file and reporting them. That is why its always the first 3 lines.

My suggestion would be to take the test file and split on the = sign and assign the two options to a hash (key and value). Once you have them all in a hash, you can then search the keys to get the value of each (randomly without having to be in order.

Regards,

Jeff

[itzaps]

Hi,
Thank you very much for your reply..
I am very new to perl scripting so didn't having much idea about the hash.
Could you please give a detail about the code.
I have tried the program in another way this time it is working fine

#!/usr/bin/perl
 
$APPLI_LOG_SHL_DIR ='none';
$JOB_ID = 'none';
$LOG_MSG = 'none';
$tmp ='none';
$ENV{'PATH'} = 'C:\shared\IQA\appli.env';
open(ENV,"$ENV{PATH}") || die "cannot open File:";
 
while($line =<ENV>)
{
chomp $line;
($variable, $value) = split /=/, $line;
$variable =~ s/^\s+|\s+$//g ;
$value =~ s/^\s+|\s+$//g ;
if ($variable eq "APPLI_LOG_SHL_DIR")
     {
      $APPLI_LOG_SHL_DIR = $value  ;
     }
if ($variable eq "JOB_ID")
      {
      $JOB_ID = $value ;
      }
if ($variable eq "LOG_MSG")
      {
      $LOG_MSG = $value;
      }
}
my $LOG_FILE  = $APPLI_LOG_SHL_DIR . "/" . $JOB_ID . ".log";
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);$year += 1900;
$mon++;
$sdttm   = sprintf("%04d/%02d/%02d %02d:%02d:%02d", $year, $mon, $mday, $hour, $min, $sec);
open (LOGFILE,">>$LOG_FILE") || die "cannot open logfile $LOG_FILE for append: $!";
print LOGFILE $LOG_MSG,"\n",$sdttm, "\n";
close (LOGFILE);