#!/usr/bin/perl

use strict;
use warnings;

print "wait please, program running!!!\n ";

use HTML::TreeBuilder;

my $tree = HTML::TreeBuilder->new;

$tree->parse_file('C:/Documents and Settings/Mittler/Desktop/test.html');
#diese test.html enthält viele blöcke von TR, und welche auch ohne 'INPUT' tag du kannst es erstellen in dem du der TR block pastest und kannst auch welche modifizieren in dem du z.B INPUT tag weg lässt.

my @table_rows = $tree->look_down(
'_tag' => 'tr',

sub {              #da tut nicht was ich will?? das der input tag miteibezogen wird

$_[0]->look_down        (
 '_tag' => 'input',)
    

sub {        #die sub tut s wenn die obere sub weg lass, aber bricht ab wenn ein TR block ohne INPUT tag auftaucht, und genau das möchte ich nicht.
$_[0]->look_down        (
'_tag' => 'tt',
sub { $_[0]->as_text =~ /Met/ })
}}
)
);

foreach my $table_row (@table_rows) {
my($input_field) = $table_row->look_down('_tag' => 'input');

print $input_field->attr('value'), "\n";
foreach my $input_text ($table_row->look_down('_tag' => 'tt')){
      #print $input_text->as_text;

my @array = $input_text->as_text;
print "$array[0]\n"; # <---kann ich da diese werte splitten und einzelen ausgeben?

 }
 print"----------------------------------------------\n";

}
print "done!\n"