Brauche CGI Nachilfe. - #5767 (Perl/CGI)

zipster

2005-10-12 12:23

User since
2004-09-06
458 Artikel
BenutzerIn
[default_avatar]

JAAAA! Geil Renee...

Code: (dl )

 foreach my $f (@{$element_liste_ref})
        {
            my $art = $f->{art};
            my $bez = $f->{bez};
            $bez .= "*" if $f->{muss}; # Sternchen hinzufügen
            no strict 'refs';
            push (@zeile, Tr (
                        td (escapeHTML ($art)),
                        #td (textfield (-name => $f->{name}, 
                                       #-size => $f->{size}),
                        td($f->{art}(-name => $f->{name},
                              -size => $f->{siz},
                              ))
                                 
            ));
        }
        print table (@zeile);

So gehts!

So nun mußt du mir aber noch erklären was

Code: (dl )

 no strict 'refs';

und

Code: (dl )

1
2
3

&{$f->{art}}(-name => $f->{name},
                              -size => $f->{siz},
                              ))

für ne bedeutung hat.

http://home.arcor.de/dsl-neunkirchen/etc/ie_firefo...