作者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