yichao0319 · September 27, 2013 21:50
diff --git a/perl:open dir b/perl:open dir
 opendir(DIR, $dir) or die $!;
 while (my $file = readdir(DIR)) {
    next if($file =~ /^\.+/);  ## don't show "." and ".."
    next if(-d "$dir/$file");  ## don't show directories

    print "$file\n";
 }
 closedir(DIR);
	opendir(DIR, $dir) or die $!;
	while (my $file = readdir(DIR)) {
	next if($file =~ /^\.+/); ## don't show "." and ".."
	next if(-d "$dir/$file"); ## don't show directories

	print "$file\n";
	}
	closedir(DIR);