Walk a directory/Recursively: Difference between revisions

(Added PHP implementation)
Line 299:
if (it.name =~ /.*\.txt/) println it;
}</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}}==
Anonymous user