Kleine Sammplung von Tips und Tricks

Sprache:
Perl

Typ:
Beispiele

Stand:
k.a.

Stichworte:
Perl, HTML, Beispiele
 
 
 
Beschreibung

Eine kleine Sammlung von Standard Problemen, nach deren Lösung ich schon mal suchen mußte.


Umwandlung von HTML Übergabeparametern nach ASCII

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); $buffer =~ s/%0A//g; $buffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $buffer =~ s/\+/ /g;
Textdatei komplett in eine Variable einlesen

open(DATEI, "$Dateiname") or die "Kann Datei nicht oeffnen"; # Datei lesen while (defined($Zeichen = <DATEI>)) { $text2 = $text2 . $Zeichen; } close DATEI;
HTML Tags aus einem String löschen

my $text= ... # Enthält den HTML Code my $temp=""; my $char; my $char2=""; my $pos; $text =~ s/[\n]/ /gi; $text =~ s/[\t]//gi; $text =~ s/[\f]//gi; $text =~ s/ / /gi; for ($pos=0;$pos<=length($text);$pos++) { $char=substr($text,$pos,1); if ($char eq "<") { $tag=1; } elsif ($char eq ">") { $tag=0; } elsif ($tag == 0) { if ($char2 . $char ne " ") { $temp = $temp . $char; $char2 = $char; } } } $text=$temp;


Impressum
 


Copyright 2002,2003 M. Schmitz