Re: Not matching a dot

[Tobias Hoellrich]

At 11:41 AM 3/10/2003 -0600, Andrew Mansfield wrote:
I want to match files that have no period in their filename.
use strict;
use warnings;
my $start_dir = $ARGV[0] || ".";
use File::Find;
print "Temp file list:\n";
find sub {
      return unless -f;
      my $file=$File::Find::name;
      print "$file\n" if(/\./);
}, $start_dir;
Hope this helps
  Tobias
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs