#!/usr/bin/perl -w ###################################################################### # makesample # Sccsid: %Z% %M% %I% Delta: %G% # $Id: makesample,v 1.2 2006/03/14 00:49:51 grant Exp $ ###################################################################### # Copyright (c) 2006 Grant Grueninger, Commercial Systems Corp. # # Description: # Given an mp3 file as an argument, exports a 2-minute sample # # usage: cd filedir ; makesample filename.mp3 # # - Writes "01_filename.mp3" in the current directory. # - filename.mp3 must be in the current directory. # # Known Issues: # Errors if filename.mp3 has artwork in it. use MP3::Splitter; mp3split( $ARGV[0], { verbose=>1}, [ 0, 120 ] );