I've just released new CPAN module Text::MessageFormat, Perl version of java.text.MessageFormat. Using this module in combo with Data::Properties allows you to read Java MessageFormat files in Perl.
But the implementation is still incomplete, patches are all welcome. http://bulknews.net/lib/archives/Text-MessageFormat-0.01.tar.gz =head1 NAME Text::MessageFormat - Language neutral way to display messages =head1 SYNOPSIS use Text::MessageFormat; my $form = Text::MessageFormat->new('The disk "{1}" contains {0} file(s).'); print $form->format(3, 'MyDisk'); # output: The disk "MyDisk" contains 3 file(s). =head1 DESCRIPTION Text::MessageFormat is a Perl version of Java's java.text.MessageFormat and aims to be format-compatible with that class. MesageFormat provides a means to produce concatenated messages in language-neutral way. Use this to construct messages displayed for end users. See L<Data::Properties> for java.util.Properties porting. =head1 WARNINGS/TODO =over 4 =item * Following FormatElements are all B<NOT> implemented yet. Currently they interpolate exactly same as just C<{0}>. {0,number,#.##} {0,date,short} {0,time,hh:mm:ss} {0,choice,0#are no files|1#is one file|1<are {0,number,integer} files} Patches are always welcome! =back =head1 AUTHOR Tatsuhiko Miyagawa E<lt>[EMAIL PROTECTED]<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO http://java.sun.com/j2se/1.4/docs/api/java/text/MessageFormat.html L<Data::Properties> =cut -- Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
