writing to a single file from two scripts

[imsandy]

Hi,

I'm new to perl.
I have 4 scripts which do some operations and then should write to a single file with the output.
the first script calls the 2nd script and the 2nd one calls the third and fourth scripts.
I want to write the output to a single file "log.txt".
i'm using statements like - "print LOG "Installati on not successful!!\n" ;" - to write to the file. Here LOG is the file handle.
Problem is that the script does not write anything to the file.
Appreciate any help/pointers.

[eWish]

Please post the code you have tried so that we can help you.

--Kevin

[imsandy]

Hi,
The code snippets -

the main.pl file- this calls another script called cp_script.pl

#!/usr/bin/perl
    $datetime = localtime();                 
    print $datetime;                         
# open a log file to write to
$LOG="logfile";
$log_file = ">log.dat";
        open(LOG, $log_file) ||die("could not open file - log.txt!\n");
print LOG "=====================\n";
print LOG "=====================\n";
print LOG "$datetime\n";
print LOG "   ------   \n";
print LOG "--- main.pl script ---\n";
#list the package names and put them in a file
$res_cp = `./cp_script.pl`;
if ($res_cp != 0) {
        print LOG "Error in running script cp_script.pl\n\n";
        print LOG "Exiting...\n";
        exit(1);
}
print LOG "\n--- End of mail.pl scirpt ---\n";
close(LOG);
 
the file cp_script.pl -
$LOG="logfile";
$log_file = ">log.dat";
        open(LOG, $log_file) ||die("could not open file - log.txt!\n");
 
# copy pkg.dat
$res =`cp pkg.dat ./sanity/pkg.dat`;
if ($res != 0) {
        print LOG "unable to copy the pkg.dat file";
        print LOG "Exiting...\n";
        exit(1);
}
print LOG "\n--- End of cp_script.pl scirpt ---\n";
close(LOG);

[eWish]

Please do yourself a favor and add the following lines of code to your script after the shebang. Then fix the errors and report back.

use strict;
use warnings;

Also declare your variables. This will help debug your script easier.

--Kevin

[imsandy]

Please do yourself a favor and add the following lines of code to your script after the shebang. Then fix the errors and report back.

use strict;
use warnings;

Also declare your variables. This will help debug your script easier.

--Kevin

Thanks a lot Kevin.
It works now.

[imsandy]

Hi,

I am facing a problem with the sequence of the logs.
The logs for the script which was called are printed before the calling script's logs. Also the logs are printed only when the script exits.
Is there any way in which this can be changed to the correct sequence?

The modified scripts -
main.pl

#!/usr/bin/perl
use strict;
use warnings;
my $datetime = localtime();                 
my $res_cp = 0;
    print $datetime;                         
# open a log file to write to
my $LOG="logfile";
 
my $log_file = ">>log.dat";
 
        open(LOG, $log_file) ||die("could not open file - log.txt!\n");
 
print LOG "=====================\n";
print LOG "=====================\n";
print LOG "$datetime\n";
print LOG "   ------   \n";
print LOG "--- main.pl script ---\n";
 
#list the package names and put them in a file
$res_cp = `./cp_script.pl`;
close(LOG);
 

cp_script.pl

#!/usr/bin/perl
 
use strict;
use warnings;
 
my $LOG;
my $log_file;
my $res=1;
 
$LOG="logfile";
 
$log_file = ">>log.dat";
open(LOG, $log_file) ||die("could not open file - log.txt!\n");
 
print LOG "opened the log file\n";
# copy pkg.dat
print LOG "copying the pkg.dat file\n";
$res =`cp pkg.dat ./sanity/pkg.dat`;
 
$res = `./next.pl`;
print LOG "\n--- End of cp_script.pl scirpt ---\n";
 
close(LOG);
 

next.pl

#!/usr/bin/perl
use strict;
use warnings;
 
my $LOG="handle";
my $filename = ">>log.dat";
open(LOG, $filename) ||die("could not open file - log.txt!\n");
 
print LOG "in next.pl\n";
 

output :-
>cat log.dat
in next.pl
opened the log file
copying the pkg.dat file

--- End of cp_script.pl scirpt ---
=============== ======
=============== ======
Wed Dec 12 00:04:14 2007
------
--- main.pl script ---

[numberwhun]

Hi,

I am facing a problem with the sequence of the logs.
The logs for the script which was called are printed before the calling script's logs. Also the logs are printed only when the script exits.
Is there any way in which this can be changed to the correct sequence?

The modified scripts -
main.pl

#!/usr/bin/perl
use strict;
use warnings;
my $datetime = localtime();                 
my $res_cp = 0;
    print $datetime;                         
# open a log file to write to
my $LOG="logfile";
 
my $log_file = ">>log.dat";
 
        open(LOG, $log_file) ||die("could not open file - log.txt!\n");
 
print LOG "=====================\n";
print LOG "=====================\n";
print LOG "$datetime\n";
print LOG "   ------   \n";
print LOG "--- main.pl script ---\n";
 
#list the package names and put them in a file
$res_cp = `./cp_script.pl`;
close(LOG);
 

cp_script.pl

#!/usr/bin/perl
 
use strict;
use warnings;
 
my $LOG;
my $log_file;
my $res=1;
 
$LOG="logfile";
 
$log_file = ">>log.dat";
open(LOG, $log_file) ||die("could not open file - log.txt!\n");
 
print LOG "opened the log file\n";
# copy pkg.dat
print LOG "copying the pkg.dat file\n";
$res =`cp pkg.dat ./sanity/pkg.dat`;
 
$res = `./next.pl`;
print LOG "\n--- End of cp_script.pl scirpt ---\n";
 
close(LOG);
 

next.pl

#!/usr/bin/perl
use strict;
use warnings;
 
my $LOG="handle";
my $filename = ">>log.dat";
open(LOG, $filename) ||die("could not open file - log.txt!\n");
 
print LOG "in next.pl\n";
 

output :-
>cat log.dat
in next.pl
opened the log file
copying the pkg.dat file

--- End of cp_script.pl scirpt ---
=============== ======
=============== ======
Wed Dec 12 00:04:14 2007
------
--- main.pl script ---

Kevin was kind enough to add the code tags to your first code posting and I have now done it for your second. Any time you post code in the forums, the code NEEDS to be surrounded by the proper code tags.

This is a warning. Please be sure and use code tags so we don't have to clean up behind you. They are required for all posted code.

Regards,

Jeff

[KevinADC]

imsandy,

why do you have all that as seperate script? Why not combine it all into one script?

[jagjot]

Hi

You can open ur output logfile in append mode when u have to dump the results for 2nd, 3rd n 4th scripts and then print in that OUTFILE . For the first script's output, u can open it in simple write mode.