Perl 处理文本的一小段代码

#!/usr/bin/perl

use strict;
use warnings;


$| = 1;

use constant DIR => 'f:/kq/';

use constant ID => '000028';

opendir DH,DIR || die "can't open DIR: $!\n";

foreach my $file (readdir DH) {
    next if $file =~ /^\./;
#    print "$file\n";


    &proc_rec(DIR . $file);

}

closedir DH;



sub proc_rec
{
    my $file = shift;
    open FH,$file || die "can't open file:$!\n";

    while (<FH>) {
        my @rec = split /,/;        
        #print $rec[2],"\n";

        next unless defined $rec[2];
        if ($rec[2] =~ /^'ID'$/)
        {
            my ($mon,$day) = ($1,$2) if ($rec[3] =~ /(\d+)-(\d+)-(\d+)/);
            if ($mon = 7 ) {
                print "@rec\n";
            }
        }
    }
    close FH;
}

门禁记录:200,00097182,'000495','2010-06-23 20:00:00'

门禁记录:011,00066924,'005219','2010-06-23 20:00:00'

门禁记录:010,00258516,'003013','2010-06-23 20:00:00'

门禁记录:200,00097183,'000495','2010-06-23 20:00:00'

门禁记录:011,00066925,'003139','2010-06-23 20:00:00'

门禁记录:010,00258517,'005524','2010-06-23 20:00:00'

门禁记录:200,00097184,'000312','2010-06-23 20:00:00'

门禁记录:011,00066926,'003139','2010-06-23 20:00:00'

门禁记录:010,00258518,'005524','2010-06-23 20:00:00'

门禁记录:200,00097185,'000312','2010-06-23 20:00:00'

门禁记录:011,00066927,'005669','2010-06-23 20:00:00'

门禁记录:010,00258519,'002616','2010-06-23 20:00:00'

门禁记录:201,00193109,'000127','2010-06-23 19:59:00'