root/Trunk/Scripts/Testing_scripts/mp3_testing/MP3_fileinfo.pl
| Revision 2270, 1.1 kB (checked in by kmaclean, 1 year ago) |
|---|
| Line | |
|---|---|
| 1 | #!/usr/bin/perl -w |
| 2 | #################################################################### |
| 3 | ### |
| 4 | ### script name: MP3_fileinfo.pl |
| 5 | ### modified by: Ken MacLean |
| 6 | ### email: contact@voxforge.org |
| 7 | ### Date: 2007.03.07 |
| 8 | ### Command: ./MP3_fileinfo.pl |
| 9 | ### Version: 0.1 |
| 10 | ### |
| 11 | ### Copyright (C) 2007 Ken MacLean |
| 12 | ### |
| 13 | ### This program is free software; you can redistribute it and/or |
| 14 | ### modify it under the terms of the GNU General Public License |
| 15 | ### as published by the Free Software Foundation; either version 3 |
| 16 | ### of the License, or (at your option) any later version. |
| 17 | ### |
| 18 | ### This program is distributed in the hope that it will be useful, |
| 19 | ### but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 20 | ### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 21 | ### GNU General Public License for more details. |
| 22 | ### |
| 23 | #################################################################### |
| 24 | package MP3_fileinfo; |
| 25 | use strict; |
| 26 | use MP3::Info; |
| 27 | my $file = "a0481.mp3"; |
| 28 | my $mp3 = new MP3::Info $file; |
| 29 | print "$file length:" . $mp3->time, " bitrate:" . $mp3->bitrate . "\n" . |
| 30 | "frequency:" . $mp3->frequency . " size" . $mp3->size . "\n"; |
Note: See TracBrowser for help on using the browser.