fork(5) download
copy 
  1. #!/usr/bin/env perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. while (<DATA>) {
  7.     chomp;
  8.  
  9.     if (/^index[1-9][0-9]{0,2}\.htm$/) {
  10.         print "* [$_]\n";
  11.     } else {
  12.         print "  [$_]\n";
  13.     }
  14. }
  15.  
  16. __DATA__
  17. index0.htm
  18. index1.htm
  19. index2.htm
  20. index2.html
  21. sindex1.htm
  22. some-index1.htm
  23. index11.htm
  24. index111.htm
  25. index999.htm
  26. index1000.htm
  27.  
Success #stdin #stdout 0s 3696KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
  [index0.htm]
* [index1.htm]
* [index2.htm]
  [index2.html]
  [sindex1.htm]
  [some-index1.htm]
* [index11.htm]
* [index111.htm]
* [index999.htm]
  [index1000.htm]
https://ideone.com/6IPP94
language:
Perl (perl 5.28.1)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!