# The readfpl accept a file's path while is fpl(foobar play list),
# and return a list which holds all the file'path
sub readfpl
{
my @files;
my @chunks;
my $index = 0;
open(INPUT, "< $_[0]")
or die "can't open";
@chunks = split(m{file://}, <INPUT>);
...
- 00:21
- 浏览 (146)
- 评论 (0)
评论排行榜