Help for this page

Select Code to Download


  1. or download this
    $ touch temp.txt

...

$ perl -le 'print scalar @{[<./*.txt>]}'
2
  2. or download this
    $ perl -le 'print scalar @{[grep {-f} <./*.txt>]}'
1