Script to obtain the count of archive logs applied during recovery

Pass the start date + time and end date + time to the following script. It looks at the alert log file and obtains the no of archive logs that have been applied during media recovery in that time interval.
#!/usr/bin/perl -w

BEGIN { push @INC,”/home/user/TimeDate-1.16/lib/” }
use Date::Parse;
$start=str2time(@ARGV[0]);
chomp(@ARGV[1]);
$end=str2time(@ARGV[1]);

$log=’path to the log file’;
open(ALERTLOGFILE,$log) or die “Not able to [...]

my first oracle regex

REGEXP_REPLACE(target_name,’(([\.]|[:])[a-z,A-Z,0-9]*)|(-[0-9]{3})’,”)
It was written to transform host entries in the table of the format “aaa-bbb-001.ccc.ddd.eeeeeee.fff” to aaa-bbb . The underlying requirement was to get one distinct entry for all RAC nodes in a cluster.