Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 2
 |
|< 1 2 3 >| |  |
27 Einträge, 3 Seiten |
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
#!/usr/bin/perl -w
#
# Module einbinden:
use strict;
use HTML::Entities;
# Dateinamen, Trenner holen:
my $file = shift || die("USAGE: test.pl filename outfile sep");
my $out = shift || "a.html";
my $s = shift || chr(1);
# @func festlegen:
my @func  =  qw(print chomp chop chr crypt hex index lc lcfirst length oct ord pack reverse rindex
sprintf substr uc ucfirst pos quotemeta split study abs atan2 cos exp hex int log
oct rand sin sqrt srand pop push shift splice unshift grep join map reverse sort
unpack delete each exists keys values binmode close closedir dbmclose dbmopen die
eof fileno flock format getc print printf read readdir rewinddir seek seekdir select
syscall sysread sysseek syswrite tell telldir truncate warn write pack read syscall
sysread syswrite unpack vec -X chdir chmod chown chroot fcntl glob ioctl link lstat
mkdir open opendir readlink rename rmdir stat symlink sysopen umask unlink utime
caller continue die do dump eval exit goto last next redo return sub wantarray defined
dump eval formline local my our reset scalar undef wantarray alarm exec fork getpgrp
getppid getpriority kill pipe setpgrp setpriority sleep system times wait waitpid do
import no package require use bless package ref tie tied untie use
accept bind connect getpeername getsockname getsockopt listen recv send setsockopt
shutdown socket socketpair msgctl msgget msgrcv msgsnd semctl semget semop shmctl
shmget shmread shmwrite endgrent endhostent endnetent endpwent getgrent getgrgid
getgrnam getlogin getpwent getpwnam getpwuid setgrent setpwent endprotoent endservent
gethostbyaddr gethostbyname gethostent getnetbyaddr getnetbyname getnetent
getprotobyname getprotobynumber getprotoent getservbyname getservbyport getservent
sethostent setnetent setprotoent setservent gmtime localtime time times);
# Farben holen:
my %shl;
open IN, "shl.ini";
 while (my$line = <IN>) {
  chomp $line;
  my ($key,$val) = split "=",$line;
  $shl{$key} = $val;
 }
close IN;
# Datei in $data einlesen.
my $data;
open IN, "$file" or die "USAGE: test.pl filename outfile sep";
 while (my$line = <IN>) {
  $data .= "$line";
 }
close IN;
# $data bearbeiten:
$data =~ s/(__.+__)$/${s}M1$1${s}M2/gim;
$data =~ s/(\d+)/${s}Z1$1${s}Z2/gi;
$data =~ s/([\\\/\$\@\¤\%\^\}\]\)\(\[\{\&\;]+)/${s}S1$1${s}S2/gi;
foreach my$func (@func) {
 $data =~ s/($func)/${s}F1$1${s}F2/gi;
}
$data =~ s/\"(.*)\"/${s}W1\"$1\"${s}W2/gi;
$data =~ s/(((s|tr|y)\/.*)?\/.*\/[gimsoecx]*)/${s}R1$1${s}R2/gi;
$data =~ s/(#.*)$/${s}C1$1${s}C2/gim;
$data = encode_entities($data,"<>");
$data =~ s/\n/\n<br>/g;
$data =~ s/${s}Z1/<font color=\"$shl{int}\">/g;
$data =~ s/${s}S1/<font color=\"$shl{special}\">/g;
$data =~ s/${s}W1/<font color=\"$shl{string}\">/g;
$data =~ s/${s}F1/<font color=\"$shl{func}\">/g;
$data =~ s/${s}C1/<font color=\"$shl{comment}\">/g;
$data =~ s/${s}M1/<font color=\"$shl{section}\">/g;
$data =~ s/${s}R1/<font color=\"$shl{regex}\">/g;
$data =~ s/${s}Z2/<\/font>/g;
$data =~ s/${s}S2/<\/font>/g;
$data =~ s/${s}W2/<\/font>/g;
$data =~ s/${s}F2/<\/font>/g;
$data =~ s/${s}C2/<\/font>/g;
$data =~ s/${s}M2/<\/font>/g;
$data =~ s/${s}R2/<\/font>/g;
$data = "<font color=\"$shl{undef}\"><pre>$data<\/pre><\/font>";
# Daten rausschreiben.
open OUT, ">$out";
 print OUT $data;
close OUT;
HTML::Parser etwas helfen.
QuoteAlso, eigentlich wollte ich am Anfang nur Wissen ob man in einer RegularExpression irgendwie sagen kann, dass etwas NICHT drin stehen darf.
print "<", 1234, ">";
QuoteAllerdings sollte das auch bei subsitute funktionieren und bei mehrzeiligen Strings.
QuoteNicht so wie $' und $`.(Zumindest hat es bei mir nicht sehr gut mit ihnen funktioniert)
QuoteJetzt sollen Textabschnitte in "" in einer bestimmten Farbe gefärbt werden, Zahlen sollen in einer bestimmten Farbe gefärbt werden, Kommentare, Sektionen
HTML::Parser macht genau das, was der Name verrät: HTML parsen. Was Du mit dem Text machen möchtest, kann das Modul nicht wissen.HTML::Parser ist ideal für solche Sachen wie die Zahlen rot färben, aber nicht die Zahlen innerhalb eines HTML-Tags!PPI::HTML angeschaut??
|
|< 1 2 3 >| | |
27 Einträge, 3 Seiten |
Schrift
Wie installiert man ein Modul?
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
