作者czberlin (Kaufmann)
看板Perl
标题[问题] filename rename and loop 问题
时间Thu Sep 9 03:42:14 2010
我想去掉前八个字元乱码的档名
该如何写呢
original: ????????01.mp3
expected: 01.mp3
共有01-32 ,32个档案
此外我试写的sample
为何loop 只会执行一次
感谢
只有第一个会被改成10.mp3
#!/C:/strawberry/perl/bin/perl
$a = '????????';
$c ='.mp3';
for ($count=10; $count <= 28; $count++) {
# statements inside the loop go here
$nn=$count.$c;
exec ("rename ".$a.$nn." ".$nn);
print $count;
#rename ($oo,$nn);
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 77.0.73.150
※ 编辑: czberlin 来自: 77.0.73.150 (09/09 03:43)
※ 编辑: czberlin 来自: 77.0.73.150 (09/09 03:45)
1F：推 ChelseaFC:因为你的$a值一直都是同一个档名不是吗？不是loop只执行 09/10 00:47
2F：→ ChelseaFC:一次，是更名完$a後，就没有相同档名的档案可以供它更改 09/10 00:48
3F：→ czberlin:我有?????????01.mp3 -????????32.mp3 共32个档案 09/10 06:41
4F：→ czberlin:原来exec只能被执行一次, 09/13 05:59
5F：→ kornelius:why dont you just use @files = <*.mp3>; 09/16 20:35
6F：推 kaufmann:good idea! tks 09/19 18:12