while (<*.txt>) {
    # Do something with $_
}
[download]

Abigail

foreach my $filename (<*.seq>)
{
    print "$filename\n";
}
[download]

Update: (as per Abigail-II's comments below)

while (my $filename = <*.seq>)
{
    print "$filename\n";
}
[download]

Method 2:

use IO::Dir;

my $dh = IO::Dir->new('.');
while (defined(my $filename = $dh->read))
{
    next unless $filename =~ /\.seq$/;
    print "$filename\n";
}
[download]

And, there's at least 3-4 others people could come up with, depending on your exact needs.

A while loop instead of a foreach is preferred in method 1. The foreach will store all matching files in a list, which could take lots of memory if there are many files. The while method doesn't store an intermediate list. (List vs scalar context behaviour of <>).

Abigail

my @seqfiles = glob '*.seq';
[download]

2 things,
1. Are you looking to emulate the behavior of ls from perl?
2. Or are you looking for an purely perl way of accomplishing your task

If you're simply looking to emulate the behavior of ls, then call it from perl, by using either
system("ls *.seq"); or backticking ie my $cmd_output = `ls *.seq`;
If you were looking for a purely perl way to accomplish this task, then my information is of little use to you, but if you were looking to emulate the behavior of ls from perl, regardless of it being a system call or a perl function, then maybe my comments are of some use.

Read more... (242 Bytes)

opendir (FOO, $somedir) || die "Couldn't read $somedir - $!\n";
for my $fileFound (grep /.seq$/, readdir FOO) {
   print $fileFound, "\n";
}
closedir (FOO);
[download]