unless ($_ =~ .....) {}
-~.-~.-~.-~.-~.-~.-~.-~.-~.-~
-~
-~ Cliff Frensley
-~ [EMAIL PROTECTED]
-~ Seattle, WA
-~
-~
-.
On Mon, 10 Mar 2003, Andrew Mansfield wrote:
> I want to match files that have no period in their filename.
>
> So far I have:
>
> 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;
> if( $_ =~ /[^.]/) {
> print "$file\n";
> }
> }, $start_dir;
>
> I'm getting mixed up with the character class: if I have [.] it matches
> only the files with a dot; [^.] matches everything.
>
> What am I doing wrong?
>
> Thanks in advance for any suggestions..
>
> Andrew Mansfield
> KI
> Green Bay, WI
>
>
>
> ____________________________________________________________________
> Feeling out of adjustment? Try the new KI Task Chair Adjustment Guide at
> ki.com/taskchairs. The Task Chair Adjustment Guide features instructions and videos
> on how to adjust your KI task chairs. Visit http://www.ki.com/taskchairs
>
>
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
