Devel::Peek - Ausgabe in Variable speichern? - #138212 (Fragen zu Perl-Modulen)

topeg

2010-06-10 17:18

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Ohne es getestet zu haben:

Code (perl): (dl )

package myCGI;
use base 'CGI';
use Encode;

sub param
{
  my $self=shift;
  return Encode::decode('UTF-8', $self->SUPER::param(@_), Encode::FB_CROAK);
}

oder:

Code (perl): (dl )

{
  use Encode;
  no warnings 'redefine';
  my $param = \*CGI::param;
  sub CGI::param
  {
    return Encode::decode('UTF-8', $param->(@_), Encode::FB_CROAK);
  }
}