1 #!/usr/local/bin/runhaskell
2 import System.Directory
3 import Text.Regex.PCRE.Light.Char8
6 main = do files <- getDirectoryContents "."
7 mapM_ fixIfNeedBe files
9 fixIfNeedBe :: FilePath -> IO ()
11 = case match (compile "^track([0-9]+)\\.cdda\\.wav$" []) fName [] of
13 -> do putStrLn (fName ++ " -> " ++ num ++ ".wav")
14 renameFile fName (num ++ ".wav")