¾ÆÄ«À̺ê :: ÃßÃâ¹°

ÀÏ¹Ý ¾ÆÄ«À̺ê ÃßÃâ ¸ÞÄ¿´ÏÁò
Áö±Ý ´Ù¿î·Îµå

¾ÆÄ«À̺ê :: ÃßÃâ¹° ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Jos Boumans
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~kane/

¾ÆÄ«À̺ê :: ÃßÃâ¹° ű×


¾ÆÄ«À̺ê :: ÃßÃâ¹° ¼³¸í

ÀÏ¹Ý ¾ÆÄ«À̺ê ÃßÃâ ¸ÞÄ¿´ÏÁò Archive :: Extract´Â Perl.itÀÇ ÀÏ¹Ý ¾ÆÄ«À̺ê ÃßÃâ ¸ÞÄ¿´ÏÁò ¸ðµâÀÔ´Ï´Ù. À¯Çü .tar, .tar.gz, .gz, .z, tar.bz2, .tbz, .bz2ÀÇ ¾ÆÄ«À̺ê ÆÄÀÏÀ» ÃßÃâ ÇÒ ¼ö ÀÖ½À´Ï´Ù. Perl ¸ðµâÀ» »ç¿ëÇϰųª ½Ã½ºÅÛ¿¡¼­ ¸í·É ÁÙ µµ±¸¸¦ »ç¿ëÇÏ¿© °¢ À¯Çü¿¡ ´ëÇØ ¼­·Î ´Ù¸¥ ÀÎÅÍÆäÀ̽º¸¦ »ç¿ëÇÏ´Â ¹æ¹ýÀ» °ÆÁ¤ÇÏÁö ¾Ê°íµµ Zip ¶Ç´Â .lzma .Synopsis »ç¿ë ¾ÆÄ«À̺ê :: ÃßÃâ; ### ¾ÆÄ«ÀÌºê ºôµå :: extract °´Ã¼ ### My $ AE = ¾ÆÄ«À̺ê :: ÃßÃâ -> »õ (¾ÆÄ«À̺ê => 'foo.tgz'); ### CWD () ### ³» $ OK = $ AE-> ÃßÃâ; ### ÃßÃâ / tmp ### MY $ OK = $ AE-> ÃßÃâ (=> '/ TMP'); ### ¹«¾ð°¡°¡ À߸ø µÇ¾ú´Ù¸é ¾î¶³±î¿ä? MY $ OK = $ AE-> ÃßÃ⠶Ǵ ´ÙÀÌ $ AE-> ¿À·ù; ### ¾ÆÄ«À̺ê ### ³» $ files = $ ae-> ÆÄÀÏ; ### ³» $ outdir = $ ae-> presuct_path·Î ÃßÃâ µÈ ### dir; ### ºü¸¥ È®ÀÎ ¹æ¹ý ### $ ae-> is_tar #Àº .tar ÆÄÀÏÀԴϱî? $ ae-> is_tgz #Àº .tar.gz ¶Ç´Â .tgz ÆÄÀÏÀԴϱî? $ ae-> is_gz; # .gz ÆÄÀÏÀԴϱî? $ ae-> is_zip; # zip ÆÄÀÏÀԴϱî? $ AE-> IS_BZ2; #Àº .bz2 ÆÄÀÏÀԴϱî? $ AE-> IS_TBZ; # it°¡ .tar.bz2 ¶Ç´Â .tbz ÆÄÀÏÀԴϱî? $ ae-> is_lzma; # it ilzma ÆÄÀÏÀԴϱî? ### Á¦°ø ÇÑ ¾ÆÄ«À̺êÀÇ Àý´ë °æ·Î ### $ AE-> ¾ÆÄ«À̺ê; ### $ AE-> bin_tar # °æ·Î¸¦ ¹ß°ß ÇÑ °æ¿ì / bin / gzip # °æ·Î¸¦ ¹ß°ß ÇÑ °æ¿ì / bin / gzip # °æ·Î¸¦ ¹ß°ßÇϸé / BIN / UNZIP, $ AE-> BIN_BUNZIP2 # °æ·Î¸¦ ¹ß°ß ÇÑ °æ¿ì / bin / bunzip2¸¦ ¹ß°ß ÇÑ °æ¿ì / bin_unlzma # °æ·Î¸¦ ãÀº °æ¿ì / bin / ellzma to / bin / ellzma ¡¤ Perl.


¾ÆÄ«À̺ê :: ÃßÃâ¹° °ü·Ã ¼ÒÇÁÆ®¿þ¾î