![]() |
|< 1 2 3 >| | ![]() |
25 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/env perl
use strict;
use warnings;
use HTML::TokeParser;
my $p = HTML::TokeParser->new(shift||"index.html");
while(my $result = $p->get_tag("textarea")) {
if ($result->[1]->{'name'} eq 'report' ) {
my $text = $p->get_trimmed_text;
print "Text:\n\n$text\n";
}
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="generator" content=
"HTML Tidy for Mac OS X (vers 12 April 2005), see www.w3.org" />
<title>Test</title>
</head>
<body>
<form>
<textarea name="dummy" cols="121" rows="15">
Ich bin leer
</textarea>
<textarea name="report" cols="121" rows="15">
Mein Name ist Peter
</textarea>
</form>
</body>
</html>
Quote@kristian: hast du ein problem mit mir?
![]() |
|< 1 2 3 >| | ![]() |
25 Einträge, 3 Seiten |