1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
#! perl -w
use Encode::Arabic::Buckwalter ':xml';
use Encode::Arabic;
our $VERSION = $Encode::Arabic::VERSION;
use Getopt::Std;
$Getopt::Std::STANDARD_HELP_VERSION = 1;
$options = { 'p' => '', 's' => '' };
getopts('p:s:v', $options);
die $Encode::Arabic::VERSION . "\n" if exists $options->{'v'};
$e = shift @ARGV;
while (<>) {
print encode "utf8", decode $e, $options->{'p'} . $_ . $options->{'s'};
}
__END__
=head1 NAME
decode - Filter script mimicking the decode function
=head1 SYNOPSIS
Examples of command-line invocation:
$ decode ArabTeX < decode.d | encode Buckwalter > encode.d
$ decode MacArabic < data.MacArabic > data.UTF8
$ encode WinArabic < data.UTF8 > data.WinArabic
The core of the implementation:
getopts('p:s:v', $options);
$e = shift @ARGV;
while (<>) {
print encode "utf8", decode $e, $options->{'p'} . $_ . $options->{'s'};
}
=head1 DESCRIPTION
The L<Encode|Encode> library provides a unified interface for converting strings
from different encodings into a common representation, and vice versa.
The L<encode|encode> and L<decode|decode> programs mimick the function calls to
the C<encode> and C<decode> methods, respectively.
For the list of supported encoding schemes, please refer to L<Encode|Encode> and
the source files of the programs. The naming of encodings is case-insensitive.
=head1 OPTIONS
decode [OPTIONS] encoding
-v --version show program's version
--help show usage information
-p text --prefix=text prefix input with text
-s text --suffix=text suffix input with text
=head1 SEE ALSO
Encode Arabic Online Interface L<http://encode-arabic.sourceforge.net/>
Encode Arabic Project L<http://sourceforge.net/projects/encode-arabic/>
ElixirFM Project L<http://sourceforge.net/projects/elixir-fm/>
L<Encode|Encode>,
L<Encode::Encoding|Encode::Encoding>,
L<Encode::Arabic|Encode::Arabic>
=head1 AUTHOR
Otakar Smrz C<< <otakar-smrz users.sf.net> >>, L<http://otakar-smrz.users.sf.net/>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2003-2012 Otakar Smrz
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|
