File Perl

  1. Home
  2. Perl
  3. File
  4. Uses pl to read all pl files in current directory
#!/usr/bin/perl -w
@list = <*.pl>;
print ".pl files: @list";