|
Just wrote this horribly complicated script that I thought might be useful to you fellow myspace bands. It makes a 2-minute sample from an MP3 file. Nothing fancy (i.e. no fade-out), but it works. Enjoy.
#!/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 ] );
|
(2)
]
