[ CnUnix ] in KIDS ±Û ¾´ ÀÌ(By): guest (socketman) <211.245.10.26> ³¯ Â¥ (Date): 2002³â 8¿ù 27ÀÏ È­¿äÀÏ ¿ÀÀü 11½Ã 00ºÐ 10ÃÊ Á¦ ¸ñ(Title): [q] ÆÄÀÏ È®ÀåÀÚ ¹Ù²Ù´Â ½ºÅ©¸³Æ®? ¾È³çÇϼ¼¿ä. ƯÁ¤ È®ÀåÀÚ ÆÄÀϵéÀ» ÇѲ¨¹ø¿¡ ´Ù¸¥ È®ÀåÀÚ·Î ¹Ù±ÅÁÖ´Â ½ºÅ©¸³Æ®³ª ½©¸í·ÉÀ» ¾Ë·ÁÁÖ¼¼¿ä ^^;; [ CnUnix ] in KIDS ±Û ¾´ ÀÌ(By): terzeron (microkid) ³¯ Â¥ (Date): 2002³â 8¿ù 27ÀÏ È­¿äÀÏ ¿ÀÀü 11½Ã 27ºÐ 46ÃÊ Á¦ ¸ñ(Title): Re: [q] ÆÄÀÏ È®ÀåÀÚ ¹Ù²Ù´Â ½ºÅ©¸³Æ®? #!/usr/bin/perl # Usage: rename perlexpr [files] # If no perlexpr argument exists, exit. ($op = shift) || die "Usage: rename perlexpr [files]\n"; # If filenames is not presented, get input from STDIN. if (!@ARGV) { @ARGV = ; chop(@ARGV); } # for each argument, rename it. for (@ARGV) { $was = $_; # $was is old name. eval $op; # evaluate perl expression die $@ if $@; # If there isn't another file, exit. rename($was, $_) unless $was eq $_; # rename oldname to newname } Programming Perl 1st ed.¿¡ ³ª¿ÍÀÖ´ø ¿¹Á¦·Î ±â¾ïÇÏ°í ÀÖ½À´Ï´Ù. ¿¹¸¦ µé¸é, rename 's/\.mp3/\.avi/' *.mp3 ¸ðµç mp3ÆÄÀÏÀ» aviÈ®ÀåÀÚ¸¦ °¡Áø ÆÄÀÏ·Î ¹Ù²ãÁÝ´Ï´Ù. ¹°·Ð È®ÀåÀÚ»Ó¸¸ ¾Æ´Ï¶ó ÆÄÀϸíÀÇ ÀϺθ¦ ġȯÇÒ ¼ö ÀÖ´Â ¹ü¿ëÀÇ ½ºÅ©¸³Æ®ÀÔ´Ï´Ù.