Find files with matching patterns using wolframscript

glob.wl

#!/usr/bin/env wolframscript

(* Recursively dump a list of files that match a given pattern *)
(* Very basic script to play with Wolfram outside of Notebooks *)
(* Jake Kara <jake@jakekara.com *)
(* Example usage:  *)
(* ./glob.wl "*.txt" *)

If[
    Length[$ScriptCommandLine] < 2, 
    Print["Usage: " <> $ScriptCommandLine[[1]] <> " PATTERN"]; Exit[1]
]

pattern = $ScriptCommandLine[[2]]

PrintLine[str_] := Print[str]

Map[PrintLine,FileNames[pattern,"./", Infinity]]