返回列表 回复 发帖
magic

注册会员

Rank: 2

UID
2033152 
威望
1 点 
金钱
3090 金币 
点卡
0 点 
1#
打印
tT
发表于 2003-9-3 18:21 | 只看该作者

[转帖]提供在线听mp3

这个程序是为在服务器端提供在线听mp3歌曲的人减轻制作.m3u文件负担
而编造的, 它可以将指定目录下面的所有mp3歌曲的路径表示成为
合法的URL并保存成all.m3u文件
作者 callmedear.bbs@smth.org
  1. #!/usr/bin/perl -w
  3. # print usage information if no argument offered by user.
  4. if ($#ARGV < 0)
  5. {
  6.   print <<END_USAGE
  8. Usage: mkm3u top-URL dir-of-your-public-html dir-you-want-to-search
  10. For example,
  11. $ mkm3u http://mp3.your.net/~yourID/ /home/yourID/public-html/ mp3-directory
  13. And the result will be saved as all.m3u in your home directory.
  15. END_USAGE
  16. ;
  17. die("End of usage\n");
  18. }
  20. # if the directory offered by user is not an absolute one, make it be.
  21. if( $ARGV[2] !~ /^\// )
  22. {
  23.   $pwd = `pwd`;
  24.   chop($pwd);
  25.   $ARGV[2] = $pwd."/".$ARGV[2];
  26. }
  28. # get the home dir of the user
  29. $home=$ENV{"HOME"};
  30. print "The home dir of yours is: $home\n";
  32. open(M3U, ">>${home}\/all.m3u");
  33. &process_dir("$ARGV[2]");
  34. print "The result is kept as $home/all.m3u\n";
  35. close(M3U);
  37. sub process_dir
  38. {
  39.   my($pwd,@subs,$count,$i);
  40.   $pwd = $_[0];
  41.   print "The present directory is $pwd\n";
  42.   @subs=<$pwd/*>;
  43.   $count=@subs;
  44.   for($i=0;$i<$count;$i++)
  45.         {
  46.           if($subs[$i] !~ /\/\.?$/)
  47.           {
  48.              if( -f $subs[$i] && $subs[$i] =~ /\.mp3$/i)
  49.              {
  50.               $subs[$i] =~ s/$ARGV[1]/$ARGV[0]/e;
  51.               print M3U "$subs[$i]\n";
  52.              }
  53.              elsif( -d $subs[$i] )
  54.              {
  55.               &process_dir("$subs[$i]");
  56.              }
  57.            }
  58.          }
  59. }
复制代码
收藏 分享 评分
回复 引用

订阅 TOP

返回列表