Mercurial > hg > Applications > mh
view nkf-utf8/NKF.mod/NKF.pm @ 12:441a2190cfae
Lion fix
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 21 Apr 2012 13:10:49 +0900 |
parents | |
children |
line wrap: on
line source
## Copyright (C) 1996,1998 ## Copyright (C) 2002 ## 連絡先: 琉球大学情報工学科 河野 真治 mime/X0208 support ## (E-Mail Address: kono@ie.u-ryukyu.ac.jp) ## 連絡先: COW for DOS & Win16 & Win32 & OS/2 ## (E-Mail Address: GHG00637@niftyserve.or.p) ## ## このソースのいかなる複写,改変,修正も許諾します。ただし、 ## その際には、誰が貢献したを示すこの部分を残すこと。 ## 再配布や雑誌の付録などの問い合わせも必要ありません。 ## 営利利用も上記に反しない範囲で許可します。 ## バイナリの配布の際にはversion messageを保存することを条件とします。 ## このプログラムについては特に何の保証もしない、悪しからず。 ## ## Everyone is permitted to do anything on this program ## including copying, modifying, improving, ## as long as you don't try to pretend that you wrote it. ## i.e., the above copyright notice has to appear in all copies. ## Binar y distribution requires original version messages. ## You don't have to ask before copying, redistribution or publishing. ## THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE. package NKF; use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); require Exporter; require DynaLoader; @ISA = qw(Exporter DynaLoader); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. @EXPORT = qw( nkf nkf_continue inputcode ); $VERSION = '2.05'; bootstrap NKF $VERSION; # Preloaded methods go here. # Autoload methods go after =cut, and are processed by the autosplit program. 1; __END__ # Below is the stub of documentation for your module. You better edit it! =head1 NAME NKF - Perl extension for Network Kanji Filter =head1 SYNOPSIS use NKF; $output = nkf("-s",$input); =head1 DESCRIPTION This is a Perl Extension version of nkf (Netowrk Kanji Filter ) 1.7. It converts the last argument and return converted result. Conversion details are specified by flags before the last argument. Flags: C<b,u Output is bufferred (DEFAULT),Output is unbufferred> C<j,s,e Outout code is JIS 7 bit (DEFAULT), Shift JIS, AT&T JIS (EUC)> C<J,S,E Input assumption is JIS 7 bit , Shift JIS, AT&T JIS (EUC)> C<t no conversion> C<i_ Output sequence to designate JIS-kanji (DEFAULT B)> C<o_ Output sequence to designate ASCII (DEFAULT B)> C<r {de/en}crypt ROT13/47> C<m[BQ] MIME decode [B:base64 stream,Q:quoted stream]> C<l ISO8859-1 (Latin-1) support> C<f Folding: C<-f60> or C<-f>> C<Z[0-2] Convert X0208 alphabet to ASCII 1: Kankaku to space,2: 2 spaces> C<X,x Assume X0201 kana in MS-Kanji, C<-x> preserves X0201> C<B[0-2] Broken input 0: missing ESC,1: any X on ESC-[($]-X,2: ASCII on NL> C<d,c Delete \r in line feed, Add \r in line feed> C<m0 No MIME decode.> C<M MIME encode. Header style. All ASCII code and control characters are intact.> C<MB MIME encode. Base64 stream. Kanji conversion is performed before encoding, so this cannot be used as a picture encoder.> C<l Input and output code is ISO8859-1 (Latin-1) and ISO-2022-JP.> C<L[wmu] new line mode> C< -Lu unix (LF) > C< -Lw windows (CRLF) > C< -Lm mac (CR) > C< --fj,--unix,--mac,--msdos, --windows convert for these system> C< --jis,--euc,--sjis,--mime,--base64 convert for named code> C< --jis-input,--euc-input,--sjis-input,--mime-input,--base64-input assume input system> C< -- ignore rest of -option> C< --help> C< --version> =head1 AUTHOR Network Kanji Filter Version 1.9 (2/0002/Shinji Kono) Copyright (C) 1987, FUJITSU LTD. (I.Ichikawa),1998 S. Kono, COW =head1 SEE ALSO perl(1). nkf(1) =cut