haskell代碼如何通過重命名來刪除我的照片？

Question

你好這個我的第一個Haskell代碼

import Data.List 
import Data.Function 

import System.IO 
import System.Directory 
import System.FilePath.Windows 

import Control.Monad 
import Text.Printf 

main = do 

    all <- getDirectoryContents "." 
    cd <- takeBaseName `fmap` getCurrentDirectory 
    let sorted = zip[1..] . sort . filter ((isPrefixOf `on` reverse) ".jpg") $ all 

    forM_ sorted $ \(i,x) -> do 

     let z = if odd i then 1 else 2 
     let q = ceiling (fromIntegral i/2.0) 

     printf " %s --> %s.%d.%d.jpg\n" x cd (q::Int) (z::Int) 
     renameFile x (printf "%s.%d.%d.jpg" cd (q::Int) (z::Int)) 

但它的作品真的太可怕了

D:\Contrib\rnm\bin>rnm.exe 
    bin.1.1 - копия (10).jpg --> bin.1.1.jpg 
    bin.1.1 - копия (11).jpg --> bin.1.2.jpg 
    bin.1.1 - копия (12).jpg --> bin.2.1.jpg 
    bin.1.1 - копия (13).jpg --> bin.2.2.jpg 
    bin.1.1 - копия (14).jpg --> bin.3.1.jpg 
    bin.1.1 - копия (15).jpg --> bin.3.2.jpg 
    bin.1.1 - копия (16).jpg --> bin.4.1.jpg 
    bin.1.1 - копия (17).jpg --> bin.4.2.jpg 
    bin.1.1 - копия (18).jpg --> bin.5.1.jpg 
    bin.1.1 - копия (19).jpg --> bin.5.2.jpg 
    bin.1.1 - копия (2).jpg --> bin.6.1.jpg 
    bin.1.1 - копия (3).jpg --> bin.6.2.jpg 
    bin.1.1 - копия (4).jpg --> bin.7.1.jpg 
    bin.1.1 - копия (5).jpg --> bin.7.2.jpg 
    bin.1.1 - копия (6).jpg --> bin.8.1.jpg 
    bin.1.1 - копия (7).jpg --> bin.8.2.jpg 
    bin.1.1 - копия (8).jpg --> bin.9.1.jpg 
    bin.1.1 - копия (9).jpg --> bin.9.2.jpg 
    bin.1.1 - копия.jpg --> bin.10.1.jpg 
    bin.1.1.jpg --> bin.10.2.jpg 

D:\Contrib\rnm\bin>rnm.exe 
    bin.1.2.jpg --> bin.1.1.jpg 
    bin.10.1.jpg --> bin.1.2.jpg 
    bin.10.2.jpg --> bin.2.1.jpg 
    bin.2.1.jpg --> bin.2.2.jpg 
    bin.2.2.jpg --> bin.3.1.jpg 
    bin.3.1.jpg --> bin.3.2.jpg 
    bin.3.2.jpg --> bin.4.1.jpg 
    bin.4.1.jpg --> bin.4.2.jpg 
    bin.4.2.jpg --> bin.5.1.jpg 
    bin.5.1.jpg --> bin.5.2.jpg 
    bin.5.2.jpg --> bin.6.1.jpg 
    bin.6.1.jpg --> bin.6.2.jpg 
    bin.6.2.jpg --> bin.7.1.jpg 
    bin.7.1.jpg --> bin.7.2.jpg 
    bin.7.2.jpg --> bin.8.1.jpg 
    bin.8.1.jpg --> bin.8.2.jpg 
    bin.8.2.jpg --> bin.9.1.jpg 
    bin.9.1.jpg --> bin.9.2.jpg 
    bin.9.2.jpg --> bin.10.1.jpg 

D:\Contrib\rnm\bin>rnm.exe 
    bin.1.1.jpg --> bin.1.1.jpg 
    bin.1.2.jpg --> bin.1.2.jpg 
    bin.10.1.jpg --> bin.2.1.jpg 

請問這個代碼中刪除我的照片？我該如何修復它？謝謝...

Answer 1

此代碼如何刪除我的照片？

爲 renameFile

文件說：

renameFile old new更改現有文件系統對象從old到new名稱。如果new對象已經存在，則它將被原子替換爲old對象。

因此，第二步，當您重命名bin.10.2.jpg --> bin.2.1.jpg時，舊的bin.2.1.jpg文件丟失。之後當您擁有bin.2.1.jpg --> bin.2.2.jpg時，您將重命名之前爲bin.10.2.jpg的文件並丟失舊的bin.2.2.jpg。等等。

我該如何修復？

使用不能與現有文件或臨時文件夾衝突的臨時名稱。