user-tools/glob

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 glob - Expand shell-wildcard patterns
   8
   9 =head1 SYNOPSIS
  10
  11 glob [I<OPTIONS>] [--] I<PATTERN> [I<PATTERN> [I<PATTERN> [...]]]
  12
  13 =head1 DESCRIPTION
  14
  15 Expand I<PATTERN> as shell-wildcard patterns and output matching filenames.
  16 Output all matched file names once and sorted alphabetically.
  17
  18 =head1 OPTIONS
  19
  20 =over 4
  21
  22 =item -0
  23
  24 Output filenames as NULL byte temrinated strings.
  25
  26 =item -f
  27
  28 Fail if can not read a directory.
  29 See B<GLOB_ERR> in File::Glob(3perl).
  30
  31 =item -E
  32
  33 Fail if any I<PATTERN> did not match.
  34 Exit code is 2 in this case.
  35
  36 =item -i
  37
  38 Match case-insensitively.
  39 Default is case-sensitive.
  40
  41 =item -b
  42
  43 Support curly bracket expansion.
  44 See B<GLOB_BRACE> in File::Glob(3perl).
  45
  46 =back
  47
  48 =head1 LIMITATIONS
  49
  50 Uses perl(1)'s B<bsd_glob> function from File::Glob(3perl),
  51
  52 =head1 SEE ALSO
  53
  54 File::Glob(3perl), perldoc(1): glob
  55
  56 =cut
  57
  58
  59 use Data::Dumper;
  60 use Getopt::Long qw/:config no_ignore_case no_bundling no_getopt_compat no_auto_abbrev require_order/;
  61 use Pod::Usage;
  62 use File::Glob;
  63 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  64
  65 $OptNullTerminated = 0;
  66 $OptGlobFlags = File::Glob::GLOB_QUOTE | File::Glob::GLOB_TILDE;
  67 $OptFailNoMatch = 0;
  68
  69 GetOptions(
  70         '0' => \$OptNullTerminated,
  71         'f' => sub { $OptGlobFlags |= File::Glob::GLOB_ERR; },
  72         'i' => sub { $OptGlobFlags |= File::Glob::GLOB_NOCASE; },
  73         'b' => sub { $OptGlobFlags |= File::Glob::GLOB_BRACE; },
  74         'E' => \$OptFailNoMatch,
  75         'help' => sub { pod2usage(-exitval=>0, -verbose=>99); },
  76         '<>' => sub { unshift @ARGV, @_[0]; die '!FINISH'; },
  77 ) or pod2usage(-exitval=>2, -verbose=>99);
  78
  79
  80 %Files = ();
  81
  82 for my $pattern (@ARGV)
  83 {
  84         my @matches = File::Glob::bsd_glob($pattern, $OptGlobFlags);
  85         if(File::Glob::GLOB_ERROR)
  86         {
  87                 die "$0: $!: $pattern\n";
  88         }
  89         exit 2 if $OptFailNoMatch and not @matches;
  90         %Files = (%Files, map {$_=>1} @matches);
  91 }
  92
  93 $\ = "\n";
  94 $\ = chr 0 if $OptNullTerminated;
  95 print "$_" for sort keys %Files;