In Date::Language::*, I mentioned that I need to create some Date::Language modules since most of the work is already done.
Take a look at my old (extremely ugly & improperly encoded) script for the Greek example.
It displays the date like this: Παρασκευή 25 Οκτωβρίου 2002.#!/usr/bin/perl my ($tsec,$tmin,$thour,$tmday,$tmon,$tyear,$twd,$tyd,$tds) = localtime +(time); my (@tweekdays) = ( 'Κυριακή', 'Δευτέρα', 'Τρίτη', 'Τετάρτη', 'Πέμπτη', 'Παρασκευή', 'Σάββατο' ); my (@tmonths) = ( 'Ιανουαρίου', 'Φεβρουαρίου', 'Μαρτίου', 'Απριλίου', 'Μαϊου', 'Ιουνίου', 'Ιουλίου', 'Αυγούστου', 'Σεπτεμβρίου', 'Οκτωβρίου', 'Νοεμβρίου', 'Δεκεμβρίου' ); my ($tweekday) = $tweekdays[$twd]; my ($tmonth) = $tmonths[$tmon]; $tyear += 1900; my ($tdate) = "$tweekday, $tmday $tmonth, $tyear"; print "Content-type: text/html\n\n"; print "$tdate\n";
<html lang="el"> <head> <meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-12 +53">
Will using the proper unicode be enough? Or will I need to force a locale as well? I may not even be asking the right questions!
In reply to Unicode & Locales by Mr. Muskrat
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |