#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use HTML::Form; local $Data::Dumper::Purity = 1; local $Data::Dumper::Useqq = 1; local $Data::Dumper::Deparse = 1; local $Data::Dumper::Sortkeys = sub { my ($hash) = @_; return [(sort {lc $a cmp lc $b} keys %$hash)]; }; use 5.010; my $html = <

Ausgabe:

HTMLHEREDOC ; my @forms = HTML::Form->parse($html,'http://www.perl-community.de'); say Dumper(\@forms); my %tmp = ( name => 'selname', menu => [ { name => 'Zusanzeige1', value => 'zuswert1' }, { name => 'Zusanzeige2', value => 'zuswert2' }, { name => 'Zusanzeige3', value => 'zuswert3' }, ], ); $forms[0]->push_input('option',{%tmp}); say Dumper(\@forms);