Antagligen bara ett returtecken som brukar komma med när man kör på en winmaskin.
Lägg till raden
$form{'mintext'} =~ s/\r//g;
under dina andra rader som ersätter tecken.
Läsa in fil och ersätta prylar
21 svar · 469 visningar · startad av Erik Juhlin · sida 2 av 2
Frågan, av Erik Juhlin
Jojoxx hjälpte mig med den här koden. !/usr/bin/perl read(STDIN, $buffer, $ENV{'CONTENTLENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value = tr/+/ /; $value = s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $form{$name} = $value; } Ersätta tecken $form{'mintext'} = s/</</g; $form{'mintext'} = s/>/>/g; $form{'mintext'} =
Läs frågan i sin helhet →
Tack, har inte testat det, men det ska nog funka! :)
Jag tror Jojoxx hade med det när han hjälpte mig med en ersättningsgrej till gästboken. Men när han hjälpte mig med detta glömde/skippade han det.. :)
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/