$logfile="log.txt"; $error=(/DOWN/); $warn=(/PROBLEM/); $redbutton="\"; $greenbutton="\"; $yellowbutton="\"; open LOG, $logfile or die "Cannot open $logfile for read :$!"; # @logarray=; # dumps all of $logfile into @logarray use strict; # Set the button to green initially my $button = "perlgreenblink"; # test the file line by line. # The line gets read into $_ # I am testing on the DATA segment to illustrate the point while (){ # test with a regex and end the # while loop if there is a problem if (/DOWN/){ $button = "perlredblink2"; last; } if (/PROBLEM/){ $button = "perlyellowblink"; last; } } print "HTML for \n";