Walk a directory/Recursively: Difference between revisions
Content added Content deleted
(Added PHP implementation) |
|||
Line 299: | Line 299: | ||
if (it.name =~ /.*\.txt/) println it; |
if (it.name =~ /.*\.txt/) println it; |
||
}</lang> |
}</lang> |
||
=={{header|haskell}}== |
|||
<lang haskell>import System.Environment |
|||
import System.Directory |
|||
import System.FilePath.Find |
|||
search pat dir = |
|||
find always (fileName ~~? pat) dir |
|||
main = do [pat] <- getArgs |
|||
dir <- getCurrentDirectory |
|||
files <- search pat dir |
|||
mapM_ putStrLn files</lang> |
|||
=={{header|IDL}}== |
=={{header|IDL}}== |