Help for this page

Select Code to Download


  1. or download this
    @ARGV= map glob, @list;
  2. or download this
    @ARGV= map { my @g= glob; @g ? @g : $_ } @list;
  3. or download this
    @mispel= glob( "g{u,a,au,ua}r{r,}{a,u,e}nt{i,e,}{e,y}" );
  4. or download this
    print "File(s): ";
chomp(  my $fileSpec= <STDIN>  or  exit(0)  );
my @files= glob($fileSpec)
...
        next;
    }
    #...
  5. or download this
    print "File(s): ";
my $fileSpec= <STDIN>  or  exit(0);
my @files= map {
...
} split ' ', $fileSpec;
foreach my $file (  @files  ) {
    #...
  6. or download this
    grep -e, glob