How do I printout multiple stdout and headers

HyperTrey · 06-02-2008, 02:27 PM

I am doing a new project and I know I am probably getting annoying with my seemingly endless amounts of questions. However, if you only knew the huge amounts of answers I have figured out on my own, you would probably be amazed. And of course there is the issue of me not actually ever knowing of perl before I got this job, so I am a pretty fast learner.

I have a script that will write stats of user to an email. We have a header for it and then the format of the STDOUT. What I want to know if we have one set of info, how do I write another set just below that?

IE:

Code:


format HEADER =
Username                  B&W      Color       Total      Total Page Count
--------------------------------------------------------------------------
.

format STDOUT =
@<<<<<<<<<<<<<<<<<<  @######    @######     @####.##       @######
$_,               $BW_amt{$_},  $CL_amt{$_},   $totals{$_},      $tot_page_count{$_},
.







format HEADER2 =
Printer Name              Page Count
--------------------------------------------------------------------------
.

format STDOUT2 =
@<<<<<<<<<<<<<<<<<<  @######    
$printer,             $page count
.

of course I kinda want to have this in one script if possible so I am thinking it may have each in a while loop or something. Would that work and have the STDOUT in a while loop???

chrism01 · 06-02-2008, 06:42 PM

Never used the format word myself, but this looks like a good place: http://www.webreference.com/programming/perl/format/
HTH

HyperTrey · 06-06-2008, 12:58 PM

I have the multiple STDOUT figured however I am running across a new issue. If I am running 2 while loops (

Code:

 while(<>) {

) How do I reset the log file used or keep the 2nd while loop from stalling.

I have one loop that will go through the log file and write to the first STDOUT (name is actually that) and a 2nd while loop that will go through the same lop file and print out different information using the same entries. (one prints out the totals for the users and the 2nd STDOUT, called PRTREPORT, prints out all the totals for the printers and sort them by printer name).

chrism01 · 06-08-2008, 11:45 PM

You've got 2 options;

1. do consecutive loops, opening/closing file within Perl
eg something like

Code:

$f1=shift(@ARGV);
open(LOG,"<", $f1) or die "unable to open $f1: $!\n;
while(defined($rec=<LOG>))
{
    do STDOUT stuff
}
close(LOG) or die "unable to close $f1: $!\n;

open(LOG,"<", $f1) or die "unable to open $f1: $!\n;
while(defined($rec=<LOG>))
{
    do PRTREPORT stuff
}
close(LOG) or die "unable to close $f1: $!\n;

OR
examine each line twice

Code:

while(defined($rec=<>))
{
    do STDOUT stuff
    do PRTREPORT stuff
}

your choice

HyperTrey · 06-09-2008, 08:05 AM

Quote:

Originally Posted by chrism01

examine each line twice

Code:

while(defined($rec=<>))
{
    do STDOUT stuff
    do PRTREPORT stuff
}

I take it the each line would be a call to a sub? and this will correctly appended the information as I need? I have tried using two separate files and I am having problems with emailing the final output.

[code]
system("$home/bin/user-report /<path>/$f");
system("$home/bin/printer-report /<path>/$f");
[code];

and on the screen it does what it is supposed to do. However, the mother script that calls this script send the output of this file (the one that the 2 lines are from) to an email and only the output of the user-report is shown.

chrism01 · 06-09-2008, 06:43 PM

1. Yes

Code:

while(defined($rec=<>))
{
    do STDOUT stuff
    do PRTREPORT stuff
}

becomes

Code:

while(defined($rec=<>))
{
    create_rpt_1($rec);
    create_rpt_2($rec);
}

I'd recommend opening separate output files in each sub, don't use STDOUT as one of the filehandles though.
Then email the resulting files.

2. If you are going to call 2 separate rpt progs via system(), then they should do their own emailing.