1
2
3
4
5
6
7
8
9

my $file = "test.png";
my @files = qw(exe zip jpg gif);
my $match = 0;

foreach (@files) {
   $match++ if $file !~ /\.$_$/i;
}

print "Dateiendung ungueltig!" if $match == scalar(@files);

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]