P2P编程

开发平台：

Windows_Unix

peercast-enqueue-in-xmms.pl：源码内容

							#!/usr/bin/perl
# Peercact URL handler for xmms.
# By Romain Beauxis <toots@rastageeks.org>
# Usage: peercast-enqueue-in-xmms.pl <peercast://foo>
# This script search for a string in the following mask: peercast://pls/HASHNUMBER
# And then call xmms to enqueue the URL: http://127.0.0.1:7144/stream/HASHNUMBER
# WARNING: this does not handle any parametrs like ?foo after the HASH, 
# But xmms seems to accept it.
my $args = shift;
$args =~ /peercast://pls/(w*)/;
my $regex = $1;
exec("xmms --enqueue "http://127.0.0.1:7144/stream/$regex"")

						