Perl Filesystem Encoding erkennen

[beatovich]

hallo

my @files = <*>;
foreach my $f( @files ){...}

Ist das eine andere Variante zum Verzeichnisinhalt auslesen (ich bin ja ein Anperlabet)? Wenn ja, wie verhält sich das Ergebnis dieses Code zu readdir? Wäre dieses <*> dann für Beat die bessere Lösung?

#!perl

use warnings;
use strict;
use Cwd;

my @f=<*>;
print join(", ",@f),"\n";

my $dir=getcwd();
opendir(my $fh, $dir ) or die $!;
@f = readdir $fh;
closedir $fh;
print join(", ",@f),"\n";

<>;

# Ausgabe:
# glob
# error.txt, kissedit.html, kissedit.pl, test.pl
# readdir
# ., .., error.txt, kissedit.html, kissedit.pl, test.pl

readdir enthält also zusätzlich . und ..