Thread RegEx gesucht: ziemlich groß (8 answers)
Opened by pktm at 2003-09-30 21:46

pktm
 2003-10-02 20:41
#59180 #59180
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
Mein Versuch:
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
#!c:/usr/bin/perl -w
# ---------------------------------------------------
# KartenScript für SchlachtPlatz 2
# ---------------------------------------------------
# MODULE
# ---------------------------------------------------
use strict;
use warnings;
use diagnostics;
use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
$CGI::POST_MAX=1024 * 100; # max 100K posts
$CGI::DISABLE_UPLOADS = 1; # no uploads
use Data::Dumper;
use HTML::Parser;
use vars;
# ---------------------------------------------------
# KONSTANTEN
# ---------------------------------------------------
use constant UNIX => 0; # Unix y/n
# ---------------------------------------------------
# VARIABLEN
# ---------------------------------------------------
# --- CGI
$| = 1;
my $cgi = CGI->new();
my $query = $cgi->Vars; #extract parameters

# ---------------------------------------------------
# LOGIK
# ---------------------------------------------------

print \print_koords(*DATA)->{1};
#print print_map(*DATA);


# ---------------------------------------------------
# SUBS
# ---------------------------------------------------
sub print_koords {
my $p = HTML::Parser->new ( api_version => 3,
start_h => [ # Handler fuer Start-Tags
\&parse_start, 'tag, attr', # Uebergib Tag und Attribute
],
);
return $p->parse_file(*DATA);
} #print_koords

sub print_map {
my $p_i = HTML::Parser->new ( api_version => 3,
start_h => [ # Handler fuer Start-Tags
\&parse_start_i, 'tag, attr' # Uebergib Tag und Attribute
],
);
return $p_i->parse_file(*DATA);
} #print_map

sub parse_start {
return unless $_[0] eq 'img'; # nur IMG-Tags
#return unless exists $_[1]->{alt}; # alt-Attribute vorhanden?
return unless exists $_[1]->{src}; #meins
return unless $_[1]->{src} =~ /k1j|k0j/;
my $alttext = $_[1]->{alt};
my $src = $_[1]->{src};
# mach was mit $alttext
#print "\n$alttext $src\n";
}

sub parse_start_i {
return unless $_[0] eq 'input'; # nur IMG-Tags
return unless exists $_[1]->{name}; # name-Attribute vorhanden?
return unless $_[1]->{name} =~ /k1|k2/;
my $koN = $_[1]->{name};
my $ko = $_[1]->{value};
# mach was mit $alttext
#print "\n$koN = $ko\n";
}


<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
...~100 Zeilen gekürzt...
http://www.intergastro-service.de (mein erstes CMS :) )

View full thread RegEx gesucht: ziemlich groß