grep readdir

Shell Programming and Scripting
1

Quick question.

I can not get the context corrert on this code.

opendir(DIR, ".");
@fileldiv = grep(/l*/,readdir(DIR));
closedir(DIR);

I am trying to search all html files within a dir that start with l.

Thanks for your help.

2

I figured it out.

#!/usr/bin/perl

use strict;
use warnings;

my @files = glob\("l\*.*"\);

foreach my $file \(@files\) \{

    print "$file\\n";

\}

exit