6 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
sub entity {
my @data = @_;
foreach my $zw( @data ) {
$zw =~ s/\&/&/g; #&
$zw =~ s/"/"/g; #"
$zw =~ s/\'/'/g; #'
$zw =~ s/>/>/g; #>
$zw =~ s/</</g; #<
$zw =~ s/\n/<br>/g; #\n
}
return @data;
} #entity
6 Einträge, 1 Seite |