-e im reval stresst mich (Allgemeines zu Perl)

[thread]10424[/thread]

-e im reval stresst mich

Froschpopo

2007-09-20 03:19

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Folgendes:

Code: (dl )

        $body = "Foto von mir: [BILD:ich.jpg]";

	$body =~ s/\[BILD:([a-zA-Z_0-9.]+)\]/eval{
		-e "/srv/www/kukla/images/$1" ? "<p><img src=\"\/images\/$1\"><\/p>" : "nicht gefunden"
	}/gsex;

Das scheint auch definitiv am -e zu liegen, denn mit 1==1 als Bedingung funktioniert alles wunderbar:

Code: (dl )

        $body = "Foto von mir: [BILD:ich.jpg]";

	$body =~ s/\[BILD:([a-zA-Z_0-9.]+)\]/eval{
		1==1 ? "<p><img src=\"\/images\/$1\"><\/p>" : "nicht gefunden"
	}/gsex;

Deshalb habe ich auch -e escaped:

Code: (dl )

        $body = "Foto von mir: [BILD:ich.jpg]";

	$body =~ s/\[BILD:([a-zA-Z_0-9.]+)\]/eval{
		-e "\/srv\/www\/kukla\/images\/$1" ? "<p><img src=\"\/images\/$1\"><\/p>" : "nicht gefunden"
	}/gsex;

Das sieht aber doch ziemlich behindert aus, oder?
Das scheint mir nämlich vom Gefühl her keine professionelle Lösung zu sein.
1. sieht das in jedem grafischen Syntax-Schema grauenhaft aus
2. sieht das komisch aus, wenn ich das komplette eval {} quoten muss.

esskar

2007-09-20 10:42

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ruf doch ne richtige funktion auf anstatt eval

Code: (dl )

$body =~ s/\[BILD:([a-zA-Z_0-9.]+)\]/foo($1)/gsex;

oder so

renee

2007-09-20 11:03

User since
2003-08-04
14371 Artikel
ModeratorIn

Du musst nur andere Delimiter für s/// verwenden... Das hier sollte gehen:

Code: (dl )

        $body = "Foto von mir: [BILD:ich.jpg]";

    $body =~ s!\[BILD:([a-zA-Z_0-9.]+)\]!eval{
        -e "/srv/www/kukla/images/$1" ? "<p><img src=\"\/images\/$1\"><\/p>" : "nicht gefunden"
    }!gsex;

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/

Froschpopo

2007-09-23 21:08

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

ah das mit der Funktion, darauf hätte ich selbst kommen müssen :D
Danke allen!

View all threads created 2007-09-20 03:19.