Benutzereingabe in Schleife wird nicht abgewartet - #187863 (Allgemeines zu Perl)

hlubenow

2018-01-02 14:19

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Ich würde nicht eine Pipe zu Shellbefehlen aufmachen (vor allem, wenn ich danach noch von Tastatur lesen will), sondern auch die Dateinamen mit Perl einlesen:

Code (perl): (dl )

sub getFilenames {
    my $directory = shift;
    my $suffix = shift;
    opendir(my $dh, $directory) || die;
    my @a = readdir($dh);
    @a = grep(/\Q$suffix\E$/, @a);
    close($dh);
    return @a;
}