Hello All,
I'm trying to do three things in this step.
1. I can't figuer out how to make this part of the script end
with a new line and then ^D once to end.
2. How can I get the LOGFILE to read and print "@arrays" into
a filebe.
When I check the ../../../../DRlogs/current file all I see are
the scalar variables.
3. Once the data is copied to the ../../../../DRlogs/current,
how can I get it to update daily and copy yesterdays data into
another file.
Thanks,
-C
print "\nPlease state below your duties as $function
adminstrator. Press <enter> then<^D> twice when done.\n\n";
while (<>) {
if ( (/^DONE/) ) {
last;
}
}
@data1 = <STDIN>;
chomp (@data1);
print "\nPlease indicate any other duties performed.
Press <enter> than <^D> twice when done.\n\n";
while (<>) {
if ( (/^DONE/) ) {
last;
}
}
@data2 = <STDIN>;
chomp (@data2);
open (LOGFILE, ">>/../../../../DRlogs/current");
print LOGFILE "$day\ $username\ $function\ @data1\
@data2\n";
close LOGFILE;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
