Opened by Gast at 2004-05-22 18:01
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
[quote=Troll,25.05.2004, 17:21]
[/quote]
wieso so umständlich?
\n\n
<!--EDIT|renee|1090847427-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
my @subst = (
[q|&| => q|&|],
[q|"| => q|"|],
[q|<| => q|<|],
[q|>| => q|>|],
[q|'| => q|&'|],
[q|`| => q|&`|],
);
$data =~ s/($subst[$_]->[0])/$subst[$_]->[1]/osg for 0 .. $#subst;
wieso so umständlich?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
my %subst = (
q|&| => q|&|,
q|"| => q|"|,
q|<| => q|<|,
q|>| => q|>|,
q|'| => q|&'|,
q|`| => q|&`|,
);
my $re = join '|', map quotemeta, keys %subst;
$data =~ s/($re)/$subst{$1}/g;
<!--EDIT|renee|1090847427-->
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem