perl converteren speciale tekens -> html

[angl2k]

weet iemand een code snippet waarmee speciale tekens omgezet worden naar html codes?

bv < naar < enzovoorts

kan wel een regexje schrijven maar het kost zoveel tijd

[Verwijderd]

ben niet zo'n perlguru, maar volgens mij moet dit werken

code:

$value =~ s/<([^>]|\n)*>//g;

[Verwijderd]

Ik denk niet dat hij tags wil verwijderen

[Verwijderd]

hehe nu ik ff de regex doorkijk is het inderdaad niet zo slim nee alles wat tussen < en > staat wordt nix

Volgens mij heeft perl niet echt een htmlentities() functies?

$value =~ s/</&lt/g; etc. zal het wel worden

[angl2k]

ja psies een htmlentities() zoek ik maar dan voor perl

[Verwijderd]

On Jul 10, Ali Reza Sajedi said:

>I have the following substitution construct:
>foreach (@Fragen){
>$_ =~ s/ä/ä/g;
>$_ =~ s/Ä/Ä/g;
>$_ =~ s/ü/ü/g;
>$_ =~ s/Ü/Ü/g;
>$_ =~ s/ö/ö/g;
>$_ =~ s/Ö/Ö/g;
>}

>I would like to arrange this compact in a line or so. Is there in perl any
>function like "htmlspecialchar" or "htmlentities" as in PHP. I appreciate
>any hint on this. Thank you.

Use the HTML::Entities module. (I wonder where PHP thinks of things...)

--
Jeff "japhy" Pinyan [e-mail] http://www.pobox.com/~japhy/
PerlMonth - An Online Perl Magazine http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/



http://www.cpan.org/modules/by-authors/Gisle_Aas/HTML-Parser-3.25.tar.gz


www.google.com

[angl2k]

ja die module moet ik dan installeren maar mijn webhost gamepoint heeft die module niet

[2]

Weet je dat zeker, want ik dacht dat hij gewoon standaard met perl geleverd werd, correct me if I'm wrong.

[Juup]

Als hij niet standaard wordt meegeleverd kun je 'm zelf in een eigen dir installeren door bij de pre-make dit commando te gebruiken:

code:

gunzip -c HTML-Parser-3.25.tar.gz |tar -xvf -
cd HTML-Parser-3.25
perl Makefile.PL PREFIX=/eigen/directory LIB=/eigen/dir
make
make install

In je perl file kun je deze eigen dir dan toevoegen met
#!/usr/bin/perl -I/eigen/directory

Succes