/usr/share/doc/libencode-arabic-perl/examples/decode.pl is in libencode-arabic-perl 14.2-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | #!/usr/bin/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
|