thanks a lot Michael. the code you wrote is just what i wanted to achieve.
i wrote the code bec. i'm learning & practicing perl.
if you have time, can you pls. point out to me what's wrong w/ my code. i
still do not understand why it doesn't work.
----- Original Message -----
From: Michael D. Schleif <[EMAIL PROTECTED]>
To: jim <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Saturday, January 20, 2001 1:21 PM
Subject: Re: Unique elements
>
> jim wrote:
> >
> > i wrote the code below to find all files ending in '.plx' then tell me
where
> > they are. it is suppose to print out the unique directories only. but it
> > seems to be printing out redundantly as many times as there are .plx
files
> > in that same directory.
> > can anybody tell me what's wrong with my code?
> > thanks for you help!
> > jim
> >
> > use File::Find;
> >
> > find(\&wanted, "c:/perluser/");
> >
> > sub wanted {
> > my @dir = "$File::Find::dir"if m/\w\.plx/i;
> > print "@dir\n";
> > my %seen;
> > my @unique_dir = grep {! $seen{$_}++} @dir;
> > foreach $dir_in (@unique_dir) {
> > #print "$dir_in\n";
> > $count++
> > }
> > }
> > print "\n", 'There are ', "$count", ' files', "\n";
>
>
> Is this what you want?
>
> #!perl.exe -w
> use File::Find;
> use strict;
> my %dir;
> my $suffix = "plx";
> find(\&wanted, "c:/perluser/");
> for (keys %dir) {
> print "$_ -> $dir{$_} \'$suffix\' files\n"
> }
> sub wanted {
> return unless /\.$suffix/i;
> $dir{"$File::Find::dir"}++;
> 1;
> }
>
> --
>
> Best Regards,
>
> mds
> mds resource
> 888.250.3987
>
> "Dare to fix things before they break . . . "
>
> "Our capacity for understanding is inversely proportional to how much we
> think we know. The more I know, the more I know I don't know . . . "
> _______________________________________________
> Perl-Win32-Web mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
