home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / perl / perl_1 / Perl5001 / pl / Tests / fileglob < prev    next >
Encoding:
Text File  |  1996-02-29  |  178 b   |  10 lines

  1. print"Trying to fileglob\n\n\n";
  2. @names = <*v>;
  3. #@names = <ADFS::IDEDisc4.$.Perl.pl.Ex*.*>;
  4. $i = 1;
  5. foreach $name (@names) {
  6. print"Name $i is $name\n";
  7.     $i++;
  8. }
  9.  
  10. print"\nDone\n";