selfhtml.de - Alles für den Webmaster!

 

Empfehlung:

wix.com

Kostenlose Homepage

Besuchen Sie auch:

Jobs:

Bei Suche bestimmte Endung ausschließen

Autor: lakul
Datum: 14.03.2011 11:45:15

Hallo,

ich bin totaler Anfänger und muss leider umgehend zur Erfüllung einer Aufgabe folgendes realisieren.

Ich muss mit einem Perlskript eine bestimmt URL Scannen und nach allen Dateien suchen außer der Endung bmp. Also bmp soll von der Suche ausgeschlossen werden. Ich brauche kein komplettes Skript. Aber könnt ihr mir bitte den für Perl gültigen regulären Ausdruck sagen?

Vielen vielen Dank.

lakul



Re: Bei Suche bestimmte Endung ausschließen

Autor: Freddy
Datum: 14.03.2011 12:02:27

Hallo,

> ich bin totaler Anfänger und muss leider umgehend
> zur Erfüllung einer Aufgabe folgendes
> realisieren.
>
> Ich muss mit einem Perlskript eine bestimmt URL
> Scannen und nach allen Dateien suchen außer der
> Endung bmp. Also bmp soll von der Suche
> ausgeschlossen werden. Ich brauche kein
> komplettes Skript. Aber könnt ihr mir bitte den
> für Perl gültigen regulären Ausdruck sagen?

Ich kann das leider nicht, da ich nicht (mit Perl) testen kann.

Vielleicht hilft Dir das hier weiter (ff.):
http://de.selfhtml.org/perl/sprache/regexpr.htm#zeichen


Gruß + HTH,
Freddy



Re: Bei Suche bestimmte Endung ausschließen

Autor: kicia
Datum: 15.03.2011 18:43:16

> > nach allen Dateien suchen außer der
> > Endung bmp. ...
> > für Perl gültigen regulären Ausdruck sagen?

Wenn ich es richtig verstehe, sind die regulären Ausdrücke in Perl gleich wie in Javascript.
Nun bin ich kein RegEx spezialist, aber mein Ansatz (in JS) wäre:
/([0-9A-ZZa-z-_]+.bmp)$/

Allerdings würde ich es in JS gar nicht mit RegEx, sondern mit einem split machen, ich glaube, das geht in Perl auch:

JS:
var endung = text.split(".");
endung = endung[ endung.length - 1 ];

Perl (ohne gewähr):
split( /./, 'xyz.bmp' )[1];

siehe auch:
http://www.perl-community.de/bat/poard/thread/282
http://forum.ubuntuusers.de/topic/perl:-file-extension-extrahieren/#post-359513
http://perldoc.perl.org/functions/split.html