Opened by MisterL at 2009-04-20 17:59
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#!/usr/bin/perl
use strict;
use warnings;
while (<DATA>) {
if (m~<td\s+height[^>]+>(.+)</td>~) {
my $found = $1;
$found =~ s~ ~~g;
$found =~ s~</?font[^>]*>~~g;
$found =~ s~</?b>~~g;
$found =~ s~^\s+~~;
$found =~ s~\s+$~~;
print "gefunden: [$found]\n";
}
}
__DATA__
<html>
<body>
<head>
<TITLE>
Testseite
</TITLE>
</head>
<table width="400" style="border-collapse: collapse" bordercolor="#B3B3C1" cellpadding="0" border="1" cellspacing="0">
<tr>
<td height=25 valign=middle bgcolor="#336699"> <font color="#FFFFFF">Aktivität </font> </td>
<td height=25 valign=middle bgcolor="#F4F4F4"> <b>Doktor</b></td>
</tr>
<tr>
<td height=25 valign=middle bgcolor="#336699"> <font color="#FFFFFF">Land </font> </td>
<td height=25 valign=middle bgcolor="#F4F4F4"> <b>Deutschland </b> ...</td>
</tr>
</table>
</body></html>
Ausgabe:
Code: (dl
)
1
2
3
4
5
C:\Daten\perl>perl td_finden.pl
gefunden: [Aktivitõt]
gefunden: [Doktor]
gefunden: [Land]
gefunden: [Deutschland ...]
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite