Help for this page

Select Code to Download

Select or download this

sub Get_File_List {
  my $pat = shift;
...

  # do stuff with @files
}

Select or download this

> perl -e 'print "result: <",glob("*.txt"),">\n";'
result: <>
...
result: <xx.txt>
> dir xx.txt
xx.txt: No such file or directory