Help for this page

Select Code to Download

Select or download this

@results = grep {
    $_->{user} eq 'Fred' and
    $_->{date} >= 1023318000 and
    $_->{date} <= 1024182000
} @$userdatefile;