标签:
#!/usr/bin/perl foreach $var(glob("*.wav")) { #$var =~ /.*(00.*).wav/; $var =~ /.*(00\d\d).wav/; $Newvar = ‘SpkContext_zj_‘.$1.‘.wav‘; system("mv $var $Newvar"); print "Now is processing $var \t \n"; } print "Over \n";
$var =~ /.*(00.*).wav/;
$var =~ /.*(00\d\d).wav/;
标签:
原文地址:http://www.cnblogs.com/yu-blog/p/4397838.html