标签:
实验目的:
实验过程:
#!/usr/bin/perl foreach $var(glob ("*.txt")) { #$base = `basename $var`; $var_before = $var; $var =~ s/txt/ssml/; $finalName = "SpkContext_$var"; system("mv $var_before $finalName"); print "Processing $var \n"; } print "Over ... \n";
Modification of non-creatable array value attempted, subscript -1 at ./1_ssml2lab.pl line 118.
实验结果:
标签:
原文地址:http://www.cnblogs.com/yu-blog/p/4390330.html