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 -i
  32
  33 Match case-insensitively.
  34 Default is case-sensitive.
  35
  36 =item -b
  37
  38 Support curly bracket expansion.
  39 See B<GLOB_BRACE> in File::Glob(3perl).
  40
  41 =back
  42
  43 =head1 LIMITATIONS
  44
  45 Uses perl(1)'s B<bsd_glob> function from File::Glob(3perl),
  46
  47 =head1 SEE ALSO
  48
  49 File::Glob(3perl), perldoc(1): glob
  50
  51 =cut
  52
  53
  54 use Data::Dumper;
  55 use Getopt::Long qw/:config no_ignore_case no_bundling no_getopt_compat no_auto_abbrev require_order/;
  56 use Pod::Usage;
  57 use File::Glob ':bsd_glob';
  58 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  59
  60 $OptNullTerminated = 0;
  61 $OptGlobFlags = GLOB_QUOTE | GLOB_TILDE;
  62
  63 GetOptions(
  64         '0' => \$OptNullTerminated,
  65         'f' => sub { $OptGlobFlags |= GLOB_ERR; },
  66         'i' => sub { $OptGlobFlags |= GLOB_NOCASE; },
  67         'b' => sub { $OptGlobFlags |= GLOB_BRACE; },
  68         'help' => sub { pod2usage(-exitval=>0, -verbose=>99); },
  69         '<>' => sub { unshift @ARGV, @_[0]; die '!FINISH'; },
  70 ) or pod2usage(-exitval=>2, -verbose=>99);
  71
  72
  73 %Files = ();
  74
  75 for my $pattern (@ARGV)
  76 {
  77         my @matches = bsd_glob($pattern, $OptGlobFlags);
  78         if(GLOB_ERROR)
  79         {
  80                 die "$0: $!: $pattern\n";
  81         }
  82         %Files = (%Files, map {$_=>1} @matches);
  83 }
  84
  85 $\ = "\n";
  86 $\ = chr 0 if $OptNullTerminated;
  87 print "$_" for sort keys %Files;