![]()  | 
![]()  | 
6 Einträge, 1 Seite | 
Wie frage ich & perlintro 
brian's Leitfaden für jedes Perl-Problem1
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 |