Hi,
The rather verbose script below should do what you want.
Some of the additional logic is for trailing a file, which
means it'll display the new values when they appear - or
actually up to a minute later.
I should close the file, but the script is written never to
finish... so it didn't seem worth putting in.
Jonathan Paton
#!/usr/bin/perl -w
my $file = 'filename';
open (FILE, $file) or die "$!";
# Loop forever
while (1) {
# Print our heading
print "INFORMATION: \n";
while ($_ = <FILE> || eof) {
# Skip blank lines
next unless /=/;
# Extract variable name and value
my ($variable, $value) = split /=/;
chomp($value);
# Output variable and value
printf("%-20.20s = %11.d\n", $variable, $value);
}
sleep 60; # Wait a minute, then repeat.
}
__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
