RegEx Problem bei Test auf richtige File-Extension - #2717 (Perl/CGI)

renee

2004-06-07 00:07

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=Dieter,06.06.2004, 15:16]@renee
Verstehe ich jetzt nicht ...
wo soll denn das Leerzeichen herkommen und wie sollte über einen Leerzeichen-Split die Extension (so denn eine vorhanden ist) ermittelt werden können?[/quote]
Ich hatte mich hierauf bezogen:
[quote=cbxk1xg,06.06.2004, 03:42]# Testen ob die Extension erlaubt ist.
$Extensions = '.gif .GIF .jpg .JPG .pdf .PDF .png .PNG .zip .ZIP';
[/quote]

Und zu Deinem Code:[quote=Dieter,06.06.2004, 14:40]

Code: (dl )

# Testen ob die Extension erlaubt ist.
my @Extensions = ('gif', 'jpg', 'pdf', 'png', 'zip');
my $ext = (split /\./, $serverFile)[1];

program_error("The extension of the file is not valid.") unless grep /$ext/i, @Extensions;

[/quote]
Da würde ich eher das Element -1 nehmen, da Dateien häufiger mehr als einen Punkt im Dateinamen haben...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/