| Gnome2 :: VFS. GNOME2 :: VFS´Â ±×³ð VFS ¶óÀ̺귯¸®ÀÇ 2.x ½Ã¸®Áî¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Gnome2 :: VFS. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Torsten Schoenfeld
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~tsch/Gnome2-Vte-0.08/Vte.pm
Gnome2 :: VFS. ű×
Gnome2 :: VFS. ¼³¸í
Gnome2 :: VFS´Â ±×³ð VFS ¶óÀ̺귯¸®ÀÇ 2.x ½Ã¸®Áî¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. Gnome2 :: VFS´Â ±×³ð VFS ¶óÀ̺귯¸®ÀÇ 2.x ½Ã¸®Áî¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. ½Ä ³ëÇÁ´Â Gnome2 :: VFS¸¦ »ç¿ëÇÕ´Ï´Ù. SUB DIE_ALREADY {MY ($ µ¿ÀÛ) = @_; DIE ( "$ ACTION.N µ¿¾È ¿À·ù°¡ ¹ß»ýÇß½À´Ï´Ù"); } DIE_ALREADY ( "GNOME VFS ÃʱâÈ") (gnome2 :: vfs -> init ()); ³» $ source = "http://www.perldoc.com/about.html"; My ($ °á°ú, $ ÇÚµé, $ Á¤º¸); # perldoc¿¡ ¿¬°áÀ» ¿±´Ï ´Ù. ($ °á°ú, $ ÇÚµé) = ±×³ð 2 :: VFS -> ¿±â ($ ¼Ò½º, "Àбâ"); DIE_ALREADY ($ SOURCE EQ "OK"°¡ ¾Æ´Ï¶ó¸é) ($ SOURCE ""); # ÆÄÀÏ Á¤º¸¸¦ ¾òÀ¸½Ê½Ã¿À. ($ result, $ info) = $ ÇÚµé -> get_file_info ( "default"); DIE_ALREADY ($ SOURCE EQ "OK"); # ³»¿ëÀ» ÀÐÀ¸½Ê½Ã¿À. ³» $ bytes = $ info -> {size}; ³» $ bytes_read = 0; ³» $ buffer = ""; do {my ($ tmp_buffer, $ tmp_bytes_read); ($ result, $ tmp_bytes_read, $ tmp_buffer) = $ ÇÚµé -> Àбâ ($ bytes - $ bytes_read); $ ¹öÆÛ. = $ tmp_buffer; $ bytes_read + = $ tmp_bytes_read; } ($ °á°ú eq "È®ÀÎ"¹× $ bytes_read <$ bytes); ($ source eq "ok $ bytes_read = $ bytes)¸¦ Á¦¿ÜÇÏ°í´Â die_already ("$ source "") "); # ¿¬°á ´Ý½À´Ï´Ù $ result = $ ÇÚµé-> close (); DIE_ALREADY ($ SOURCE EQ "OK")¸¦ Á¦¿ÜÇÏ°í ($ SOURCE ' "); # ´ë»óÀ» »ý¼ºÇÏ°í ¿¾î ¶ó. MY $ TARGET = "/ TMP /". $ info -> {name}; MY $ URI = GNOME2 :: VFS :: URI -> NEW ($ Ÿ°Ù); ($ °á°ú, $ ÇÚµé) = $ URI -> »ý¼º ( "¾²±â", 1, 0644); DIE_ALREADY ($ TARGEE EQ "OK")¸¦ Á¦¿ÜÇÏ°í´Â ( "$ ¸ñÇ¥"); # ÀÌ¿¡ ¾²±â. ³» $ bytes_written; ($ result, $ bytes_written) = $ ÇÚµé -> ¾²±â ($ ¹öÆÛ, $ bytes); ($ target eq "È®ÀÎ"$ bytes_written == $ bytes)À» Á¦¿ÜÇÏ°í die_already ( "$ target") "À» '$ target'"); # ´ë»óÀ» ´Ý½À´Ï´Ù. $ result = $ ÇÚµé -> close (); DIE_ALREADY ($ $ target "") ($ texte eq "È®ÀÎ"); GNOME2 :: VFS -> Á¾·á (); ¿ä±¸ »çÇ× : ¡¤ ÆÞ ¿ä±¸ »çÇ× : ¡¤ Perl.
Gnome2 :: VFS. °ü·Ã ¼ÒÇÁÆ®¿þ¾î