move examples/from_n_to_1.pl to examples/correspondent.pl

examples/correspondent.pl

@@ -0,0 +1,89 @@
+#!perl
+
+use 5.008_001;
+use strict;
+use warnings;
+use utf8;
+
+use Encode;
+use Lingua::EO::Supersignoj;
+
+my $converter = Lingua::EO::Supersignoj->nova(al => 'unikodo');
+my $various   = q{C^i-momente, la songha h'orajxo ^sprucigas aplauwdon.};
+#                 --                 --  --   --  --             --
+#                  ^                  ^   ^    ^  ^               ^
+#                  |                  |   |    |  |               |
+# post-caret (circumflex)             |   |    |  |               |
+# Zamenhof system --------------------+   |    |  |               |
+# post-apostrophe ------------------------+    |  |               |
+# X-system ------------------------------------+  |               |
+# pre-caret (circumflex) -------------------------+               |
+# extended H-system ----------------------------------------------+
+
+my $orthographic = $various;
+foreach my $substitution ( substitutions() ) {
+    $converter->de = $substitution;
+    $orthographic = $converter->transkodigu($orthographic);
+}
+
+$converter->de = 'unikodo';
+$converter->al = 'x';
+my $x_systematic = $converter->transkodigu($orthographic);
+
+my $utf8 = find_encoding('utf8');
+print $utf8->encode("Various:      $various\n");
+print $utf8->encode("Orthographic: $orthographic\n");
+print $utf8->encode("X-systematic: $x_systematic\n");
+
+sub substitutions {
+    return qw(
+        h
+        H
+        x
+        X
+        poste
+        fronte
+        apostrofoj
+    );
+}
+
+__END__
+
+=pod
+
+=head1 NAME
+
+correspondent.pl - A correspondent with converter.pl
+
+=head1 DESCRIPTION
+
+This is a correspondent with F<examples/converter.pl> by
+L<Lingua::EO::Supersignoj|Lingua::EO::Supersignoj>.
+
+Please run this script on an UTF-8 available console,
+or redirect STDOUT into a file and open it with an UTF-8 available editor.
+
+=head1 AUTHOR
+
+=over 4
+
+=item MORIYA Masaki (a.k.a. Gardejo)
+
+C<< <moriya at cpan dot org> >>,
+L<http://ttt.ermitejo.com/>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2010 by MORIYA Masaki (a.k.a. Gardejo),
+L<http://ttt.ermitejo.com/>.
+
+This library is free software;
+you can redistribute it and/or modify it under the same terms as Perl itself.
+See L<perlgpl|perlgpl> and L<perlartistic|perlartistic>.
+
+The full text of the license can be found in the F<LICENSE> file
+included with this distribution.
+
+=cut