新手求一个perl程序

wswhp

新手。。。。
求一个perl 程序，很简单的功能, 就是批处理一个文件夹下的所有音频文件

指定一个文件夹， 然后 只读取 该目录下的 .wav 文件，
然后对每个文件进行操作，比如执行一个程序， lame 。。。


谁能提供一下 感谢

兰花仙子

use strict;
opendir DIR,"." or die $!;
while(my $f = readdir DIR) {
    next unless $f=~/\.wav$/;
    system "program $f";
}
close DIR;

lokchungk

原帖由 wswhp 于 2009-12-10 20:34 发表
新手。。。。
求一个perl 程序，很简单的功能, 就是批处理一个文件夹下的所有音频文件

指定一个文件夹， 然后 只读取 该目录下的 .wav 文件，
然后对每个文件进行操作，比如执行一个程序， lame 。。。

...

map `lame $_`,<*.wav>

weihua2007

#!/usr/bin/perl

use strict;
use warnings;

my $dir = @ARGV[0];
die "useage play.pl directory\n usage perl play.pl directory\n" unless ( -d $dir);
chdir $dir or die "Can't chdir to $dir: $!\n";
`lame $_ `  for (glob "*.wav") ;

[ 本帖最后由 weihua2007 于 2009-12-11 16:52 编辑 ]

wswhp

谢谢各位 我试试