* Sunda Cyber Army 2k17 *
Indonesia Defacer ~
If you read this file _as_is_, just ignore the funny characters you
see. It is written in the POD format (see perlpod manpage) which is
specially designed to be readable as is.
This file is in Korean encoded in EUC-KR.
μ΄ λ¬Έμλ₯Ό perldocμ μ¨μ λ³΄μ§ μκ³ μ§μ 보λ κ²½μ°μλ κ° λΆλΆμ
μν μ νμνκΈ° μν΄ μ°μΈ =head, =item, 'L' λ±μ 무μνμμμ€.
μ΄ λ¬Έμλ λ°λ‘ perldocμ μ°μ§ μκ³ λ³΄λλΌλ μ½λλ° λ³ μ§μ₯μ΄
μλ POD νμμΌλ‘ μ§μ¬ μμ΅λλ€. λ μμΈν κ²μ perlpod
λ§€λ΄μΌμ μ°Έκ³ νμμμ€.
=encoding euc-kr
=head1 NAME
perlko - Perlκ³Ό νκ΅μ΄ μΈμ½λ©
=head1 DESCRIPTION
Perlμ μΈκ³μ μ€μ κ²μ νμν©λλ€ !
Perlμ 5.8.0νλΆν° μ λμ½λ/ISO 10646μ λν κ΄λ²μν μ§μμ ν©λλ€.
μ λμ½λ μ§μμ μΌνμΌλ‘ νμ€μΌμ λΉλ‘―ν μΈκ³ κ°κ΅μμ
μ λμ½λ μ΄μ μ μ°κ³ μμκ³ μ§κΈλ λ리 μ°μ΄κ³ μλ μλ§μ μΈμ½λ©μ
μ§μν©λλ€. μ λμ½λλ μ μΈκ³μμ μ°μ΄λ λͺ¨λ μΈμ΄λ₯Ό μν νκΈ° μ²΄κ³ -
μ λ½μ λΌν΄ μνλ²³, ν€λ¦΄ μνλ²³, κ·Έλ¦¬μ€ μνλ²³, μΈλμ λλ¨ μμμμ
λΈλΌλ―Έ κ³μ΄ μ€ν¬λ¦½νΈ, μλ λ¬Έμ, νλΈλ¦¬ λ¬Έμ, νμ€μΌμ νμ, νκ΅μ΄μ νκΈ,
μΌλ³Έμ΄μ κ°λ, λΆλ―Έ μΈλμμ νκΈ° μ²΄κ³ λ±-λ₯Ό μμ©νλ κ²μ λͺ©νλ‘ νκ³
μκΈ° λλ¬Έμ κΈ°μ‘΄μ μ°μ΄λ κ° μΈμ΄ λ° κ΅κ° κ·Έλ¦¬κ³ μ΄μ 체κ³μ κ³ μ ν
λ¬Έμ μ§ν©κ³Ό μΈμ½λ©μ μΈ μ μλ λͺ¨λ κΈμλ λ¬Όλ‘ μ΄κ³ κΈ°μ‘΄ λ¬Έμ μ§ν©μμ
μ§μνκ³ μμ§ μλ μμ£Ό λ§μ κΈμλ₯Ό ν¬ν¨νκ³ μμ΅λλ€.
Perlμ λ΄λΆμ μΌλ‘ μ λμ½λλ₯Ό λ¬Έμ ννμ μν΄ μ¬μ©ν©λλ€. λ³΄λ€ κ΅¬μ²΄μ μΌλ‘
λ§νλ©΄ Perl μ€ν¬λ¦½νΈ μμμ UTF-8 λ¬Έμμ΄μ μΈ μ μκ³ ,
κ°μ’
ν¨μμ μ°μ°μ(μλ₯Ό λ€μ΄, μ κ·μ, index, substr)κ° λ°μ΄νΈ λ¨μ
λμ μ λμ½λ κΈμ λ¨μλ‘ λμν©λλ€. (λ μμΈν κ²μ
perlunicode λ§€λ΄μΌμ μ°Έκ³ νμμμ€.) μ λμ½λκ° λ리 보κΈλκΈ° μ μ
λ리 μ°μ΄κ³ μμκ³ , μ¬μ ν λ리 μ°μ΄κ³ μλ κ°κ΅/κ° μΈμ΄λ³ μΈμ½λ©μΌλ‘
μ
μΆλ ₯μ νκ³ μ΄λ€ μΈμ½λ©μΌλ‘ λ λ°μ΄ν°μ λ¬Έμλ₯Ό λ€λ£¨λ κ²μ λκΈ° μν΄
'Encode'κ° μ°μμ΅λλ€. 무μλ³΄λ€ 'Encode'λ₯Ό μ¨μ μλ§μ μΈμ½λ© μ¬μ΄μ
λ³νμ μ½κ² ν μ μμ΅λλ€.
'Encode'λ λ€μκ³Ό κ°μ νκ΅μ΄ μΈμ½λ©μ μ§μν©λλ€.
=over 4
=item euc-kr
US-ASCIIμ KS X 1001μ κ°μ΄ μ°λ λ©ν°λ°μ΄νΈ μΈμ½λ© (νν μμ±νμ΄λΌκ³
λΆλ¦Ό.) KS X 2901κ³Ό RFC 1557 μ°Έκ³ .
=item cp949
MS-Windows 9x/MEμμ μ°μ΄λ νμ₯ μμ±ν. euc-krμ 8,822μμ
νκΈ μμ μ λν κ²μ. aliasλ uhc, windows-949, x-windows-949,
ks_c_5601-1987. 맨 λ§μ§λ§ μ΄λ¦μ μ μ νμ§ μμ μ΄λ¦μ΄μ§λ§, Microsoft
μ νμμ CP949μ μλ―Έλ‘ μ°μ΄κ³ μμ.
=item johab
KS X 1001:1998 λΆλ‘ 3μμ κ·μ ν μ‘°ν©ν. λ¬Έμ λ νΌν 리λ cp949μ
λ§μ°¬κ°μ§λ‘ US-ASCIIμ KS X 1001μ 8,822μμ νκΈ μμ μ λν κ²μ.
μΈμ½λ© λ°©μμ μ ν λ€λ¦.
=item iso-2022-kr
RFC 1557μμ κ·μ ν νκ΅μ΄ μΈν°λ· λ©μΌ κ΅νμ© μΈμ½λ©μΌλ‘ US-ASCIIμ
KS X 1001μ λ νΌν λ¦¬λ‘ νλ μ μμ euc-krκ³Ό κ°μ§λ§ μΈμ½λ© λ°©μμ΄ λ€λ¦.
1997-8λ
κ²½κΉμ§ μ°μμΌλ λ μ΄μ λ©μΌ κ΅νμ μ°μ΄μ§ μμ.
=item ksc5601-raw
KS X 1001(KS C 5601)μ GL(μ¦, MSBλ₯Ό 0μΌλ‘ ν κ²½μ°) μ λμμ λμ
μΈμ½λ©. US-ASCIIμ κ²°ν©νμ§ μκ³ λ¨λ
μΌλ‘ μ°μ΄λ μΌμ X11 λ±μμ κΈκΌ΄
μΈμ½λ© (ksc5601.1987-0. '0'μ GLμ μλ―Έν¨.)μΌλ‘ μ°μ΄λ κ²μ μ μΈνκ³ λ
κ±°μ μμ. KS C 5601μ 1997λ
KS X 1001λ‘ μ΄λ¦μ λ°κΎΈμμ. 1998λ
μλ λ
κΈμ (μ λ‘ν λΆνΈμ λ±λ‘ μν λΆνΈ)κ° λν΄μ‘μ.
=back
λͺ κ°μ§ μ¬μ© μμ λ₯Ό μλμ 보μ
λλ€.
μλ₯Ό λ€μ΄, euc-kr μΈμ½λ©μΌλ‘ λ νμΌμ UTF-8λ‘ λ³ννλ €λ©΄ λ€μκ³Ό
κ°μ΄ νλ©΄ λ©λλ€.
perl -Mencoding=euc-kr,STDOUT,utf8 -pe1 < file.euckr > file.utf8
μλ³νμ λ€μκ³Ό κ°μ΄ ν μ μμ΅λλ€.
perl -Mencoding=utf8,STDOUT,euc-kr -pe1 < file.utf8 > file.euckr
μ΄λ° λ³νμ μ’λ νΈλ¦¬νκ² ν μ μλλ‘ Encode λͺ¨λμ μ¨μ
μμνκ² Perlλ‘λ§ μ°μΈ piconvκ° Perlμ λ€μ΄ μμ΅λλ€.
κ·Έ μ΄λ¦μμ μ μ μλ―μ΄ piconvλ Unixμ μλ iconvλ₯Ό
λͺ¨λΈλ‘ ν κ²μ
λλ€. κ·Έ μ¬μ©λ²μ μλμ κ°μ΅λλ€.
piconv -f euc-kr -t utf8 < file.euckr > file.utf8
piconv -f utf8 -t euc-kr < file.utf8 > file.euckr
λ, 'PerlIO::encoding' λͺ¨λμ μ¨μ νκ΅μ΄ μΈμ½λ©μ μ°λ©΄μ κΈμ λ¨μ
(λ°μ΄νΈ λ¨μκ° μλλΌ) μ²λ¦¬λ₯Ό μ½κ² ν μ μμ΅λλ€.
#!/path/to/perl
use encoding 'euc-kr', STDIN => 'euc-kr',
STDOUT-> 'euc-kr', STDERR=>'euc-kr';
print length("κ°λ"); # 2 (ν° λ°μ΄νλ κΈμ λ¨μ μ²λ¦¬λ₯Ό μ§μ)
print length('κ°λ'); # 4 (μμ λ°μ΄νλ λ°μ΄νΈ λ¨μ μ²λ¦¬λ₯Ό μ§μ)
print index("νκ°, λλκ°", "μΌ"); # -1 ('μΌ'μ΄ μμ)
print index('νκ°, λλκ°', 'μΌ'); # 7 (8λ²μ§Έμ 9λ²μ§Έ λ°μ΄νΈκ° 'μΌ'μ
μ½λκ°κ³Ό μΌμΉν¨.)
=head2 λ μμΈν μκ³ μΆμΌλ©΄...
Perlμ μ€μΉνλ©΄ λλ¨ν μμΈν λ¬Έμκ° κ°μ΄ λ°λΌ μ€λ©°, μ΄ λ¬Έμλ₯Ό ν΅ν΄
Perl μ λ° λΏ μλλΌ μ λμ½λ μ§μ, Encodeμ μ¬μ©λ² λ±μ λ§μ κ²μ
λ°°μΈ μ μμ΅λλ€. μμ§ μ΄ λ¬Έμλ νμ¬ λͺ¨λ μμ΄λ‘ μ°μ¬ μμ΅λλ€.
=head2 Perl κ΄λ ¨ μλ£
μμμ μΈκΈν λ¬Έμ μΈμλ λ€μκ³Ό κ°μ μλ£κ° μμ΅λλ€. μ΄ λͺ©λ‘μ κ²°μ½
μμ ν κ²μ΄ μλκ³ μΌλΆ λνμ μΈ κ²λ§ λͺ¨μ κ²μ
λλ€.
=over 4
=item L<http://www.perl.com/>
O'Reillyμ Perl μΉ νμ΄μ§
=item L<http://www.cpan.org/>
Comprehensive Perl Archive Network
=item L<http://lists.perl.org/>
Perl λ©μΌλ§ 리μ€νΈ. λ§μ 리μ€νΈ κ°μ΄λ°
perl-unicodeμμ 'Encode'μ λν΄ λ
Όμν¨.
=back
=head2 Perlμ λ κΉκ² 곡λΆνλλ° λμμ μ€ μ μλ νκ΅μ΄ κ΄λ ¨ μ¬μ΄νΈ
=over 4
=item L<http://www.perl.or.kr/>
Perl νκ΅ μ¬μ©μ λͺ¨μ
=item L<news:han.comp.lang.perl/>
νκ΅μ΄ Perl λ΄μ€ κ·Έλ£Ή
=item L<http://www.hanb.co.kr/search/searchResult.html?keyword=perl>
O'Reillyμμ λμ¨ νκ΅μ΄ Perl μμ λͺ©λ‘
=item L<http://www.perlschool.net/>
Perl κΈ°μ΄ κ°μ’ λ° μμ€, μ΅κ·Ό λν₯, κ΄λ ¨ ν΄μΈ μ¬μ΄νΈ λ§ν¬
=item L<http://www.perl.co.kr>
Perlμ κ΄λ ¨λ CGI, DB, μ°λ λ±μ λν μ 보 λ° λ΄μ€ μ 곡
=back
=head2 μ λμ½λ λ° νκ΅μ΄ μΈμ½λ© κ΄λ ¨ μλ£
=over 4
=item L<http://www.unicode.org/>
μ λμ½λ 컨μμμ.
=item L<http://std.dkuug.dk/JTC1/SC2/WG2>
κΈ°λ³Έμ μΌλ‘ Unicodeμ κ°μ ISO νμ€μΈ ISO/IEC 10646 UCS(Universal
Character Set)μ λ§λλ ISO/IEC JTC1/SC2/WG2μ μΉ νμ΄μ§.
=item L<http://www.cl.cam.ac.uk/~mgk25/unicode.html>
μ λμ€/리λ
μ€μμ μ λμ½λμ UTF-8 μ¬μ©μ λν λ¬Έλ΅μ§(FAQ)
=item L<http://wiki.kldp.org/Translations/html/UTF8-Unicode-KLDP/UTF8-Unicode-KLDP.html>
μ λμ€/리λ
μ€μμ μ λμ½λμ UTF-8 μ¬μ©μ λν λ¬Έλ΅μ§(FAQ)μ νκ΅μ΄ λ²μ
=back
=head1 SEE ALSO
L<Encode>, L<Encode::KR>, L<encoding>, L<perluniintro>, L<perlunicode>
=head1 AUTHORS
Jarkko Hietaniemi E<lt>jhi@iki.fiE<gt>
μ μ μ E<lt>jshin@mailaps.orgE<gt>
=cut