Только что проверил — работает...

Sumo 21.07.2015 22:54

  $list[^file:list[./;$.filter[\.p^$]]]
  ^json:string[$list;$.indent(true)]

  $list[^file:list[./;$.filter[\.p^$] $.stat(true)]]
  ^json:string[$list;$.indent(true)]