| ³ØŸÀÌ :: Eudora. TIE :: EUDORA´Â EURDORA »ç¼ÇÔ ÆÄÀÏÀÇ ÀüÀÚ ¸ÞÀÏ, Àбâ / ¾²±â ÀüÀÚ ¸ÞÀÏÀ» ÀÎÄÚµù / µðÄÚµù ÇÒ ¼öÀÖ´Â PERL ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
³ØŸÀÌ :: Eudora. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Software Diamonds
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~softdia/Archive-TarGzip-0.03/lib/Docs/Site_SVD/Archive_TarGzip.pm
³ØŸÀÌ :: Eudora. ű×
³ØŸÀÌ :: Eudora. ¼³¸í
TIE :: Eudora´Â ÀüÀÚ ¸ÞÀÏÀ» ÀÎÄÚµù / µðÄÚµùÇÏ´Â Perl ¸ðµâ·Î Eudora »ç¼ÇÔ ÆÄÀÏ¿¡¼ ÀüÀÚ ¸ÞÀÏÀ» ÀÐÁö / ¾²±âÇÕ´Ï´Ù. ³ØŸÀÌ :: Eudora´Â ÀüÀÚ ¸ÞÀÏÀ» ÀÎÄÚµù / µðÄÚµù ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. Eudora »ç¼ÇÔ ÆÄÀÏ¿¡¼ ÀüÀÚ ¸ÞÀÏ Àбâ / ¾²±â #### # ¼ºê ·çƾ ÀÎÅÍÆäÀ̽º # $ encoded_email = decode_record ($ mailbox_email); @email = decode_field ($ encoded_email); $ encoded_email = encode_field (@email); $ mailbox_email = encode_record ($ encoded_email); ##### # °´Ã¼ ÀÎÅÍÆäÀ̽º # $ eudora = tie :: form-> new (@Options); $ encodeed_email = $ eudora-> decode_record ($ ·¹ÄÚµå); @Email = $ Eudora-> decode_field ($ encoded_email); $ encoded_email = $ eudora-> encode_field (@email); $ mailbox_email = $ eudora-> encode_record ($ encodeed_email); $ mailbox_email = $ eudora-> get_record (); $ success = $ eudora-> put_record ($ mailbox_email); #### # ÆÄÀÏ ¼ºê ·çƾÀ» »ç¿ëÇÏ¿© Eudora »ç¼ÇÔ ÆÄÀÏÀ» ¾²°Å³ª ÀнÀ´Ï´Ù * »ç¼ÇÔ, 'Tie :: Eudora'; ¿ÀÇ »ç¼ÇÔ, '>', $ MBX; »ç¼ÇÔ Àμâ @Mailbox; ´Ý±â »ç¼ÇÔ; ¿ÀÇ »ç¼ÇÔ, '¿ä±¸ »çÇ× : ¡¤ Perl.
³ØŸÀÌ :: Eudora. °ü·Ã ¼ÒÇÁÆ®¿þ¾î