Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: Returning special characters in CGI::Application (bytes

by Anonymous Monk
on Sep 08, 2013 at 10:07 UTC ( #1052896=note: print w/replies, xml ) Need Help??

in reply to Returning special characters in CGI

. 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;# 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 #~ perl rm=my_run_mode #~ perl rm=another_run_mode
  • Comment on Re: Returning special characters in CGI::Application (bytes
  • Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1052896]
[Discipulus]: see you monks! flying to greece!
[Corion]: Oh, cool! Have fun Discipulus!

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (10)
As of 2018-06-25 18:18 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (128 votes). Check out past polls.