/sketch/convert.pl

http://github.com/motemen/Teto · Perl · 17 lines · 14 code · 3 blank · 0 comment · 0 complexity · 5a0776fd3c093b15a76c2fc444b0ea0a MD5 · raw file 

    

  1. use strict;
    2. 

  2. use warnings;
    3. 

  3. use lib 'lib';
    4. 

  4. use Teto::Track;
    5. 

  5. use Teto::Buffer;
    6. 

  6. use Perl6::Say;
    7. 

  7. 

  8. my $url = shift or die "Usage: $0 url\n";
    9. 

  9. my $track = Teto::Track->from_url($url) or die;
    10. 

  10. 

  11. my $buffer = Teto::Buffer->new(min_buffer_size => 0);
    12. 

  12. $track->buffer($buffer);
    13. 

  13. $track->play;
    14. 

  14. 

  15. my ($fh, $filename) = $track->tempfile(SUFFIX => '.mp3');
    16. 

  16. say "$url -> $filename";
    17. 

  17. print $fh $buffer->buffer;
    18.