Hi, just joined the list and jumping into the middle of this thread, so
excuse me if I'm talking out of turn.
I have a couple of suggestions for you Craig.
1) Where you have
print DATAFILE
"\n\n=======================================================================
======\n\n";
You could instead use
print DATAFILE "\n\n" . '='x77 . "\n\n";
This will print out two newlines, then 77 equals signs, then the last two
newlines. It's a little easier to read and make changes to the number of
equals signs. You could also use a variable number of equals signs if you
wanted. (Maybe not useful for this task, but some other)
e.g
$repeat = 60;
print DATAFILE "\n\n" . '='x$repeat . "\n\n";
Next, why do a system call to get the date and time? Perl comes with built
in functions to do this for you. A really quick and simple way is to use the
scalar value of the localtime function. (localtime normally returns a list
value but called in scalar context it will return an easy to read date and
time ideal for a timestamp)
print DATAFILE scalar(localtime);
This will store somthing like "Wed Jun 13 16:56:37 2001" into the DATAFILE.
so all in all you could re-write your code as:
--
print DATAFILE "\n\n" . '='x77 . "\n\n";
print DATAFILE scalar(localtime);
--
You could even do it all on one line and lose the scalar bit as when you
concancate you use the scalar, not list values of the function.
print DATAFILE "\n\n" . '='x77 . "\n\n" . localtime;
HTH
John
-----Original Message-----
From: Chas Owens [mailto:[EMAIL PROTECTED]]
Sent: 13 June 2001 16:41
To: Craig S Monroe
Cc: [EMAIL PROTECTED]
Subject: Re: Problem printing a system value to a filehandle (windows)
On 13 Jun 2001 10:49:44 -0400, Craig S Monroe wrote:
> Hello all,
>
> I have a script that opens a socket to a device, issues some commands,
> then writes the results to a datafile.
> That all works fine. I decided that I wanted to time stamp each of the
> entries
>
> So where I put my separator:
>
> # print a section separator to the dateFile
> print DATAFILE
> "\n\n===================================================================
> ==========\n\n";
>
> I wanted to put the date below it.
>
> $time =~ system('TIME \/T');
> $date =~ system('DATE \/T');
There are two things wrong here. First system returns the exit code of
the process you call (not the output), you want to use backticks (shift
~ on most keyboards in the US). Second =~ is the binding operator for
regexps not the assignment operator. You should be saying:
$time = `TIME /T`;
$date = `DATE /T`;
> print DATAFILE "\n$time $date";
>
> It would not append the time and date.
> So, I used the above to make it it's own perl script, and just removed
> the filehandle so the output would print to the console.
>
> $time =~ system('TIME \/T');
> $date =~ system('DATE \/T');
> print "\n$time $date";
>
> This printed the date and the time to the console.
> Does anyone have any suggestions as to why this is not working?
It is working exactly as you told it to work <grin />. It is running
the TIME command (which outputs the time to stdout) and then running the
DATE command (which outputs the date to stdout).
>
> Thank you,
>
> Craig
> [EMAIL PROTECTED]
> Pager
> Numeric: 1-877-895-3558
> Email pager: [EMAIL PROTECTED]
> --------------------------------------------------------------
> You will never find time for anything.
> If you want time, you must make it.
>
> Charles Buxton
>
--
Today is Prickle-Prickle, the 18th day of Confusion in the YOLD 3167
Grudnuk demand sustenance!
--------------------------Confidentiality--------------------------.
This E-mail is confidential. It should not be read, copied, disclosed or
used by any person other than the intended recipient. Unauthorised use,
disclosure or copying by whatever medium is strictly prohibited and may be
unlawful. If you have received this E-mail in error please contact the
sender immediately and delete the E-mail from your system.
