Decode::Source - Run scripts written in encodings other than utf-8
use Decode::Source "iso-8859-1";
... code written in ISO-8859-1 ...
use Decode::Source "cp-850";
... code written in DOS codepage 850 ...
no Decode::Source;
... code written in US-ASCII ...
Use alternative encodings/charsets for your program code. Perl 5.8 or higher is required for use of this module.
This code is so far only tested on Win32 platforms!
Decode::Source makes it possible to write perl programs in any script or encoding supported by the Encode module. Variable names can contain non-ASCII characters, just as when you use the use utf8 pragma. All theese characters, both in identifiers and string literals, will be decoded to perl's internal utf-8 form, before execution.
The syntax are similar to use utf8 and no utf8, but Decode::Source also takes an optional argument with source encoding. This argument can be any argument that Encode's decode function accept as a valid encoding. See also Encode.
use Decode::Source "windows-1252"; $åke = ["Åke Braun", "08-555 55 55"]; $örjan = ["Örjan Älg", "08-555 55 54"]; binmode STDOUT, ":encodings(cp850)"; printf "Name: %-20s Phone: %12s\n", @$_ for $åke, $örjan;
Encode, Encode::Supported, utf8
Magnus Håkansson, <mailto:magnus@mbox604.swipnet.se>
Copyright 2003 by Magnus Håkansson
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
