PC World 2006 October/PCWorld_2006-10_cd.bin/audio-video/streamripper/srwa5-1.61.26.exe/$1/fake_external_metadata.pl

Perl Script | 2005-11-11 | 1KB | 35 lines

#! /usr/bin/perl
###########################################################################
# This is an external script that I use for testing streamripper's
# external program interface.  It implements the following:
#
#   1) Generates (random) title and artist information
#   2) Sends the information to streamripper
#
# To invoke the script, do this:
#    streamripper URL -E "perl fake_external_metadata.pl"
#
# This script is in the public domain. You are free to use, modify and
# redistribute without restrictions.
###########################################################################

$repno = 4;

$ts = "AAA";
$as = "001";
$title = "TITLE=$ts\n";
$artist = "ARTIST=$as\n";
while (1) {
    if ($repno-- < 0) {
    $repno = 4;
    $as++;
    $ts++;
    $title = "TITLE=$ts\n";
    $artist = "ARTIST=$as\n";
    }
    $end_of_record = ".\n";
    $meta_data = $title . $artist . $end_of_record;
    syswrite (STDOUT, $meta_data, length($meta_data));
    sleep (10);
}