sub CheckLogfileForToday() { my $today = (qw)[(localtime)[6]]; while () { if (m/^$today:/io) { #dangerous -- has a gotcha } } } ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl