HTML Formulare und Perl (Seite 2) (Allgemeines zu Perl)

bieber

2007-07-25 12:39

User since
2007-06-18
148 Artikel
BenutzerIn
[default_avatar]

danke für das Beispiel renee, ist sehr hilfreich für mich ;)

Es gibt immer Leute die meinen, sie seien schlauer als ich. Das Schlimmste ist, sie sind es auch.

RPerl

2007-07-25 13:37

User since
2006-11-26
384 Artikel
BenutzerIn

user image

@ renee:

Code: (dl )

1
2
3

<%loop JAHRE%>
    <option <%if selected%>selected<%/if%>><%var year %></option>
<%/loop%>

Was "bedeuten" die %? Ist das durch das CPAN:

HTML::Template::Compiled ?\n\n

pq

2007-07-25 13:50

User since
2003-08-04
12209 Artikel
Admin1

[quote=RPerl,25.07.2007, 11:37]
Was "bedeuten" die %? Ist das durch das CPAN:

HTML::Template::Compiled ?[/quote]
guckst du hier: Tagstyles

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

renee

2007-07-25 13:56

User since
2003-08-04
14371 Artikel
ModeratorIn

Ja, die Template-Variablen koennen in verschiedenen "Styles" ins Template geschrieben werden:

Aus der Doku:

Quote
# classic (active by default)
<TMPL_IF foo><tmpl_var bar></TMPL_IF>

# comment (active by default)


# asp (active by default)
<%if foo%><%VAR bar%><%/if%>

# php (not active by default)
<?if foo?><?var bar?><?/if foo?>

# tt (not active by default)
[%if foo%][%var bar%][%/if foo%]

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/

pq

2007-07-25 14:14

User since
2003-08-04
12209 Artikel
Admin1

[quote=renee,25.07.2007, 09:59]@bieber: Dein Code mal mit CPAN:

HTML::Template::Compiled:
[...][/quote]
oder gleich mit dem HTML_Tags plugin:

Code (perl): (dl )

use strict;
use warnings;
use HTML::Template::Compiled;
my $htc = HTML::Template::Compiled->new(
    filehandle => \*DATA,
    plugin => [qw(::HTML_Tags)],
);

my $jahr = 2027;

my @values = map { [ $_, $_ ] } 2007 .. 2059;
$htc->param( years => [ $jahr, @values] );
print $htc->output;

__DATA__
<form method="post" action="index.pl ">
<select name="JAHR">
<%html_option years %>
</select>
</form>

\n\n

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

bieber

2007-07-25 14:32

User since
2007-06-18
148 Artikel
BenutzerIn
[default_avatar]

hui,
das sieht ja erstmal schöner und kürzer aus, leider verstehe ich es nicht
in der POD finde ich auch nichts zum Thema HTML_Tags, aber ohne loop arbeiten finde ich erstmal schön ;)
was du mit map machst verstehe ich leider auch nicht :( wieso machst du da

Code: (dl )

[$_,$_]

??

würde dann nicht jedes Arrayelement die Zahl doppelt enthalten?!

Es gibt immer Leute die meinen, sie seien schlauer als ich. Das Schlimmste ist, sie sind es auch.

renee

2007-07-25 14:36

User since
2003-08-04
14371 Artikel
ModeratorIn

Das ist ein Plugin für HTML::Template::Compiled: CPAN:

HTML::Template::Compiled::Plugin::HTML_Tags.

Man übergibt dem Plugin ein Array of Arrays. Dort ist das erste Element das was bei

<option value="wert">Label</option>

das "wert" und das zweite Element ist das Label. Und in obigem Beispiel wäre das jeweils die Jahreszahl. Wäre ein Verbesserungsvorschlag @pq: Wenn nur ein Element drin ist, wird das sowohl für "wert" als auch als Label genommen...\n\n

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/

pq

2007-07-25 14:38

User since
2003-08-04
12209 Artikel
Admin1

[quote=bieber,25.07.2007, 12:32]hui,
das sieht ja erstmal schöner und kürzer aus, leider verstehe ich es nicht
in der POD finde ich auch nichts zum Thema HTML_Tags, aber ohne loop arbeiten finde ich erstmal schön ;)[/quote]
guckst du da:
http://search.cpan.org/dist....95;Tags

Quote
was du mit map machst verstehe ich leider auch nicht :( wieso machst du da
Code: (dl )
[$_,$_]
??

würde dann nicht jedes Arrayelement die Zahl doppelt enthalten?!

ganz einfach, ein select-menü hat pro option einen wert und ein label.
bei jahreszahlen ist nun völlig wurscht, da sind wert und label gleich.
aber du kannst dir vielleicht vorstellen, dass man nicht immer das
label übergeben möchte, sondern nur eine id, aber der user eben
statt einer zahl einen schönen text sehen will.
jedes arrayelement enthält wiederum eine arrayref, die aus zweimal
dem jahr besteht, richtig. das erste element ist der wert, das zweite
das label.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

pq

2007-07-25 14:40

User since
2003-08-04
12209 Artikel
Admin1

[quote=renee,25.07.2007, 12:36]Das ist ein Plugin für HTML::Template::Compiled: CPAN:

HTML::Template::Compiled::Plugin::HTML_Tags.[/quote]
link kaputt. der unterstrich wird zum # umgewandelt

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

bieber

2007-07-25 14:47

User since
2007-06-18
148 Artikel
BenutzerIn
[default_avatar]

jupp das macht sinn ;)

und ja hatte nur in der POD von HTML::Template::Compiled selbst gesucht... mein Fehler, sorry

noch ne dumme Frage, warum nehme ich dann nicht gleich einen Hash für Wert und Label ?!

Es gibt immer Leute die meinen, sie seien schlauer als ich. Das Schlimmste ist, sie sind es auch.