#!/usr/bin/perl
use strict;
use warnings;

my $path='nur/ein/test/';

print "Endung angeben: ";
my $endung=<STDIN>;
chomp($endung);

my @list=glob("$path*$endung");
map{ print "$_\n" }@list;

#!/usr/bin/perl
use strict;
use warnings;
use File::MMagic;

my $mm = File::MMagic->new();
my $path='nur/ein/test/';

print "Type angeben: ";
my $type=<STDIN>;
chomp($type);


my @list=glob("$path*");
@list=grep{$mm->checktype_filename($_) =~ /\Q$type\E/}@list;
map{ print "$_\n" }@list;

my @dateien = glob("/verzeichnins/*.exe"); # Alle .exe im Verzeichnis
push @dateien, glob("/verzeichnins/*.txt"); # Alles .txt im Verzeichnis ans Array dranhängen