. I'm not sure how to go about troubleshooting this. Ideas?
:)Basic debugging checklist , brian's Guide to Solving Any Perl Problem, CGI Help Guide , Troubleshooting Perl CGI scripts, How do I post a question effectively? (post code), perlunitut: Unicode in Perl#I/O flow (the actual 5 minute tutorial)
package Froup;# Froup.pm use parent qw/ CGI::Application /; use CGI::Application::Plugin::AutoRunmode; use utf8; use Encode; my $pound = "\N{U+00A3}\xA3"; my $infinity = "\N{U+221E}"; sub my_run_mode : StartRunmode { my( $self ) = @_; $self->header_add( -charset=>'UTF-8' ); Encode::encode('UTF-8',qq{<!DOCTYPE html><html><head> <title> Pound </title> <meta charset="utf-8" /></meta></head> <body> Pound <a href="?;rm=another_run_mode">$pound</a> </body> </html>}); } sub another_run_mode : Runmode { my( $self ) = @_; $self->header_add( -charset=>'UTF-8' ); Encode::encode('UTF-8', qq{<!DOCTYPE html><html><head> <title> Infinity </title><meta charset="utf-8" /></meta></head> <body> Infinity <a href="?;rm=my_run_mode">$infinity</a> </body> </html>}); } 1; #~ plackup -l localhost:80 -e require(Froup) #~ perl Froup.pm #~ perl Froup.pm rm=my_run_mode #~ perl Froup.pm rm=another_run_mode
In reply to Re: Returning special characters in CGI::Application (bytes Froup.pm)
by Anonymous Monk
in thread Returning special characters in CGI
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |