Shell Programming and Scripting

while ($logname = readdir( DIR ))
{
    if ($logname =~ m/not_terminated/ || $logname =~ /^\./)
    {
        ; # leave this file alone
    }

    else
    {
        @fields = split( /\./, $logname );

        $_ = $fields[1]; # get roll over time

        #  $1        $2    $3
        #  Y Y Y Y   M M   D D
        /(\d\d\d\d)(\d\d)(\d\d)/;

        $year = $1 - 1900;
        $month = $2 - 1;
        $day = $3;

        $time_of_log = timelocal( 0, 0, 0, $day, $month, $year );

        if ($time_of_log < $time_expired)
        {
            # delete file
            $filename = $dirname . "/" . $logname;
            unlink $filename;
        }
    }
}

closedir( DIR );

my ($y, $m, $d);
my $str = "200610240000.abcdefghijkl";
if ($str =~ /^(\d{4})(\d{2})(\d{2})/) {
    ($y, $m, $d) = ($1, $2, $3);
}
# $y = 2006
# $m = 10
# $d = 24