Help for this page

Select Code to Download


  1. or download this
    foreach my $filename (<*.seq>)
{
    print "$filename\n";
}
  2. or download this
    while (my $filename = <*.seq>)
{
    print "$filename\n";
}
  3. or download this
    use IO::Dir;

...
    next unless $filename =~ /\.seq$/;
    print "$filename\n";
}