| TK :: °Å¿ï TK :: Mirror´Â ±×·¡ÇÈ »ç¿ëÀÚ ÀÎÅÍÆäÀ̽ºÀÇ Perl È®ÀåÀÚÀÌ¸ç ¾ç¹æÇâÀ¸·Î ·ÎÄà ¶Ç´Â ¿ø°Ý µð·ºÅ͸®¸¦ ¾÷µ¥ÀÌÆ®ÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
TK :: °Å¿ï ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Torsten Knorr
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~knorr/
TK :: °Å¿ï ű×
TK :: °Å¿ï ¼³¸í
TK :: Mirror´Â ±×·¡ÇÈ »ç¿ëÀÚ ÀÎÅÍÆäÀ̽ºÀÇ Perl È®ÀåÀÚÀÌ¸ç ¾ç¹æÇâÀ¸·Î ·ÎÄà ¶Ç´Â ¿ø°Ý µð·ºÅ͸®¸¦ ¾÷µ¥ÀÌÆ®ÇÕ´Ï´Ù. TK :: Mirror´Â ¸ðµç ¹æÇâÀ¸·Î ·ÎÄà ¶Ç´Â ¿ø°Ý µð·ºÅ丮¸¦ ¾÷µ¥ÀÌÆ® ÇÒ ¼öÀÖ´Â ±×·¡ÇÈ »ç¿ëÀÚ ÀÎÅÍÆäÀ̽ºÀÇ Perl È®ÀåÀÚÀÔ´Ï´Ù. °¡Àå ´Ü¼øÇÑ Á¾·ùÀÇ Synopsis # TK :: Mirror¸¦ »ç¿ëÇϽʽÿÀ. TK¸¦ »ç¿ëÇϽʽÿÀ; MY $ MW-> MADWINDOW-> NEW (); $ MW-> ¹Ì·¯ () -> grid (); mainloop (); ÀÚ¼¼ÇÑ Á¾·ùÀÇ »ç¿ë TK; TK :: °Å¿ïÀ» »ç¿ëÇϽʽÿÀ; MY $ MW = MADWINDOW-> NEW (); MY $ MIRRIRE = $ MW-> ¹Ì·¯ (-LOCALDIR => "TESTA", -USR => 'TESTD ", -USR =>'my_ftp@username.de '-ftpserver =>"ftp.server.de ", - pass => "my_password", -debug => 1, -delete => "enable", -exclusions => , -timeout => 60, -connection => undef , # ¶Ç´Â FTP ¼¹ö¿¡ ´ëÇÑ ¿¬°á) -> grid (); for (KEYS (% {$ MIRROR-> getChilds ()})) {$ mirror-> subwidget ($ _) -> configure (-font => "{times new roman}"14 {±½°Ô} ",); } (QW / TREELOCALDIR TREEREMOTEDIR /) {$ MIROR-> SUBWIDGET ($ _) -> ±¸¼º (-background => "#ffffff", -width => 40, -height => 20); } (QW / BENTRYUSR EntryPass BentryftPserver BentryLocalDir /) {$ MIRRION-> SUBWIDGET ($ _) -> ±¸¼º (-background => "#ffffff",); } mainLoop (); ÀÌ°ÍÀº ¿ø°Ý µð·ºÅ丮¸¦ »ç¿ëÇÏ¿© ·ÎÄÃÀ» ¾ç¹æÇâÀ¸·Î ºñ±³ÇÏ°í ¾÷µ¥ÀÌÆ®ÇÏ´Â ±×·¡ÇÈ »ç¿ëÀÚ ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
TK :: °Å¿ï °ü·Ã ¼ÒÇÁÆ®¿þ¾î