µ¥ÀÌÅÍ :: FAX.DataFax °´Ã¼ ¼³Á¤À»À§ÇÑ Perl È®ÀåÀÚ | |
Áö±Ý ´Ù¿î·Îµå |
µ¥ÀÌÅÍ :: FAX. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Geo Tiger
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~geotiger/
µ¥ÀÌÅÍ :: FAX. ű×
µ¥ÀÌÅÍ :: FAX. ¼³¸í
DataFax °´Ã¼ ¼³Á¤À»À§ÇÑ Perl È®ÀåÀÚ µ¥ÀÌÅÍ :: Æѽº´Â µ¥ÀÌÅÍ :: Æѽº À̸§ °ø°£ÀÌÀÖ´Â ¸ðµç ÇÏÀ§ ¼ø¼ Ŭ·¡½º¿¡ ´ëÇÑ »óÀ§ Ŭ·¡½º·Î »ç¿ëµÉ Perl ¸ðµâÀÔ´Ï´Ù. µ¥ÀÌÅÍ :: Æѽº¸¦ »ç¿ëÇϽʽÿÀ. MY $ DF = µ¥ÀÌÅÍ :: FAX-> NEW; # ºó °³Ã¼ ¸¸µé±â $ DF-> µð¹ö±× (1); # µð¹ö±× ·¹º§ $ DF-> Àç¼³Á¤ ¼³Á¤ ( 'n'); # RESET º¯°æ NO # LIX - $ DF = DATA :: FAX-> NEW ( 'µð¹ö±×', '2', '2', 'Àç¼³Á¤')¸¦ »ç¿ëÇÏ¿© ¼³Á¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. # ¸Å°³ º¯¼ö¿¡ ´ëÇÑ Çؽà ¹è¿À» Á¤ÀÇ ÇÒ ¼ö ÀÖ½À´Ï´Ù. my % param = ( 'debug'=> '1', 'reset'=> 'n', 'df_param'=> $ ary_ref) 'ss_param'=> {} ...¿¡ MY $ DF = µ¥ÀÌÅÍ :: FAX-> NEW (% param); # ¶Ç´Â $ df = »õ µ¥ÀÌÅÍ :: Æѽº % param; # ¶Ç´Â °£Á¢Àû ÀÎ OBJ È£Ãâ MY $ DF = »õ µ¥ÀÌÅÍ :: FAX (% param); # °£Á¢Àû ÀÎ OBJ È£Ãâ # °ªÀ» ¼³Á¤ / °¡Á® ¿À´Â ¹æ¹ý $ df-> set_debug (0); # $ DF-> µð¹ö±× (0)¿Í µ¿ÀÏÇÕ´Ï´Ù. $ df-> get_debug; # $ df-> µð¹ö±×¿Í µ¿ÀÏ; $ df-> set_reset ( 'y'); # $ df-> Àç¼³Á¤ ( 'y')°ú µ¿ÀÏÇÕ´Ï´Ù. $ df-> get_reset; # $ df-> Àç¼³Á¤°ú µ¿ÀÏÇÕ´Ï´Ù. # Scalar °ªÀ» °¡Á® ¿À°Å³ª ¼³Á¤ÇÏ´Â ¸ðµç ¹æ¹ýÀº 'get_'¶Ç´Â 'set_'Á¢µÎ¾î°¡¾ø´Â ÇØ´ç # ¸Þ¼Òµå¸¦ °¡Áö°í ÀÖ½À´Ï´Ù. µû¶ó¼ ´ÙÀ½ # ¸Þ¼Òµå¸¦ ¼öÇàÇϽʽÿÀ : $ df-> set_fs ( ''); # ¼³Á¤ ÇÊµå ±¸ºÐ ±âÈ£ $ df-> get_fs; # Feild Separator $ DF-> SET_OFS ( '|'); # Ãâ·Â ÇÊµå ±¸ºÐ ±âÈ£ $ df-> get_ofs ¼³Á¤; # Ãâ·Â ÇÊµå ±¸ºÐ ±âÈ£ $ df-> set_dirsep ( '/'); # µð·ºÅ丮 ±¸ºÐ ±âÈ£ $ DF-> get_dirsep ¼³Á¤; # µð·ºÅ丮 ±¸ºÐ ±âÈ£ $ df-> set_first_row ( 'y'); # ù ¹ø° ÇàÀÌ ¿ À̸§ÀÌ $ df-> set_first_row ( 'n') ÀÎ °ÍÀ» ³ªÅ¸³À´Ï´Ù. # ù ¹ø° Çà¿¡´Â ¿ À̸§ÀÌ Æ÷ÇԵǾî ÀÖÁö ¾Ê½À´Ï´Ù $ df-> get_first_row; # ù ¹ø° Çà Ç¥½Ã µî $ df-> set_debug (2); # msg ·¹º§À» 2 $ df-> get_debug·Î ¼³Á¤ÇϽʽÿÀ. # MSG ·¹º§ °¡Á® ¿À´Â ¹æ¹ý ¹è¿ ¶Ç´Â Çؽà ¹è¿À» ¼³Á¤ / °¡Á® ¿À´Â ¹æ¹ýÀº ´Ù¸¨´Ï´Ù $ DF-> set_df_param ($ fn); # dataFax Ãʱâ ÆÄÀÏ¿¡¼ ÀнÀ´Ï´Ù $ df-> set_df_param ($ arf); # ¶Ç´Â Çؽà ¹è¿ ref % ha = $ df-> get_df_param; # Çؽà ¹è¿ $ df-> df_paramÀ» °¡Á®¿É´Ï´Ù. # Çؽà ¹è¿ °¡Á® ¿À±â $ DF-> DF_PARAM ($ Å°); # ¹è¿ $ DF-> DF_PARAM ($ Å°, $ VAL)¿¡¼ $ Å° °ªÀ» ¾ò½À´Ï´Ù. # $ key = $ val # ss_param $ df-> set_ss_param ($ sn)¿¡ ´ëÇØ µ¿ÀÏÇÕ´Ï´Ù. # ¿¬±¸ ¹øÈ£ $ DF-> SET_SS_PARAM ($ arf)ÀÇ DFServer.cf¿¡¼ ÀнÀ´Ï´Ù. # Hash Array Ref % HA = $ DF-> GET_SS_PARAMÀ¸·Î ¼³Á¤ÇϽʽÿÀ. # Çؽà ¹è¿ $ df-> ss_paramÀ» °¡Á®¿É´Ï´Ù. # Çؽà ¹è¿ ÂüÁ¶ $ df-> ss_param ($ Å°); # ¹è¿ $ df-> ss_param ($ Å°, $ val)¿¡¼ $ Å° °ªÀ» ¾ò½À´Ï´Ù. # $ key = $ val # ÀϺΠÀ¯Æ¿¸®Æ¼ ¹æ¹ý $ df-> echomsg ($ msg, $ lvl); $ lvl $ df-> disp_paramÀÇ ·¹º§ÀÇ # echo ¸Þ½ÃÁö; # ¸ðµç ³»ºÎ ¸Å°³ º¯¼ö Ç¥½Ã $ DF-> µð¹ö±×; # µð¹ö±× ¿ä±¸ »çÇ× : ¡¤ Perl.
µ¥ÀÌÅÍ :: FAX. °ü·Ã ¼ÒÇÁÆ®¿þ¾î