source: flacrip/trunk/flacout @ 8

Last change on this file since 8 was 1, checked in by peter, 13 years ago

initial import of current flacrip files into the trunk

  • Property svn:executable set to *
File size: 285 bytes
RevLine 
[1]1#!/usr/bin/perl -w
2use strict;
3
4use Audio::FLAC::Decoder;
5
6my $FLAC_FILE = shift;
7
8my $decoder = Audio::FLAC::Decoder->open($FLAC_FILE);
9#warn $decoder->bitrate;
10#exit;
11my $buffer;
12while (my $len = $decoder->sysread($buffer, 1) > 0) {
13    print $buffer; #$len; # ord $buffer . "\n";
14}
Note: See TracBrowser for help on using the repository browser.