¿ª½Ã ´ç½Å ½Ã½ºÅÛ¿¡ ÃæºÐÇÑ µå¶óÀÌºê ¿ë·®ÀÌ ÀÖ´ÂÁö È®ÀÎÇ϶ó. ³ª´Â CD·ÎºÎÅÍ Æ®·¢µéÀ» »Ì¾Æ³»¼ ÀÎÄÚµùÇÏ´Â °£´ÜÇÑ Perl ½ºÅ©¸³Æ®¸¦ ÀÛ¼ºÇß´Ù.
#!/usr/bin/perl if ($ARGV[0] ne "") { $count = 1; do { $cdcap = system("cdparanoia", $count, "/mnt/mp3/tmp/cdda.wav"); $track = "$ARGV[1]/track".$count.".mp3"; $benc = system("bladeenc /mnt/mp3/tmp/cdda.wav $track -br 256000"); $count++; } until $count > $ARGV[0]; exit; } else { print "Usage cdriper [no of tracks] [destination directory]\n\n"; }
$cdcap = system("cdparanoia", $count, "/mnt/mp3/tmp/cdda.wav");
ÀÌ ¶óÀÎÀº CD ripper(ÃßÃâÇÁ·Î±×·¥)ÀÎ cdparanoia¸¦ È£ÃâÇÑ´Ù. Cdparanoia´Â raw CD ¿Àµð¿À µ¥ÀÌÅ͸¦ WAV formatÀ¸·Î º¯È¯ÇÑ´Ù. ¿É¼ÇµéÀº ÀÌ°ÍÀº ÃßÃâÇؾßÇÒ Æ®·¢ÀÇ °¹¼ö¸¦ ÁöÁ¤ÇÏ´Â $count¿Í °á°ú WavÈÀÏÀ» ÀúÀåÇÒ °æ·ÎÀÌ´Ù. ³»°¡ ÀÛ¼ºÇÑ ¿¹¹®¿¡¼´Â ³» MP3¿ë SCSI µå¶óÀ̺꿡 ÀÖ´Â tmpµð·ºÅ丮·Î ÁöÁ¤µÇ¾îÀÖ´Ù.
´ÙÀ½À¸·Î´Â WAVÈÀÏÀ» Bladeenc¸¦ ½á¼ MP3Æ÷¸ËÀ¸·Î ¹Ù²Û´Ù. CdparanoiaÀÇ ¹èÄ¡¸ðµå¸¦ »ç¿ëÇÏÁö ¾ÊÀ¸¸é¼, ¸Å¹ø Æ®·¢º°·Î ÀÏÀÏÀÌ ¼Õ¼ö ÃßÃâÇؼ ÀÎÄÚµùÇÏ´Â ÀÛ¾÷µµ ÇÏÁö ¾Ê±â À§ÇØ ÀÌ Perl½ºÅ©¸³Æ®¸¦ ÀÛ¼ºÇß´Ù. ÀÌ·¸°Ô Çؼ Cdparanoia°¡ Àüü µð½ºÅ©¸¦ ÃßÃâÇϱâ À§ÇØ 600 Meg³ª »ç¿ëÇÏ´ø µð½ºÅ© ¿ë·®À» ÁÙÀÏ ¼ö ÀÖ¾ú´Ù.
Note: À§ÀÇ ½ºÅ©¸³Æ®´Â ¸Å¿ì ´Ü¼øÇÏ°í, error üũ¿Í °°Àº ÁÁÀº ±â´ÉÀÌ ¾ø´Ù. ´ç½ÅÀÇ ±âÈ£¿¡ µû¶ó Çâ»ó½ÃÅ°µµ·Ï :)