skip path prune

[weberw@adelphia.net]

How do you use the prune function to skip a printing all of the
contents of a folder? It will not print folder 3 but does print the
contents of folder 3 which I do not want printed.

#!C://Perl/bin/perl
use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';
#use strict;
use warnings;
use File::Find;
my $file_count = 0;
my $dir_count = 0;


$title = "Find Files";
print header,
start_html($title),
h1($title);

find ( {
wanted => \&wanted}, 'C:/Documents and
Settings/whatever/Desktop/test');

printf "\nThere are %d files in %d directories.\n",
$file_count,
$dir_count;

sub wanted {

if (-d) {

print $File::Find::name, "\n" unless -d =~ /^folder3/;

$dir_count++;
}

elsif (-f _) {
print " <TR> <TD ALIGN=RIGHT>File name is
$File::Find::name</TD></TR><BR></BR>";


$file_count++;

}
}


end_hmtl;

[Paul Lalli]

[email]weberw@adelphia.net[/email] wrote:

> How do you use the prune function to skip a printing all of the
> contents of a folder? It will not print folder 3 but does print the
> contents of folder 3 which I do not want printed.

You have posted the same message (at least) three different times to
(at least) three different newsgroups. This is called "Multiposting"
and is extremely rude. I have answered you in perl.beginners, and
someone else answered you in comp.lang.perl.misc. If I had realized
you multiposted in the first place, I probably wouldn't have replied at
all.

In the future, if you really *need* to post to many different groups,
please *crosspost* as I am doing here. That is, send one message to
multiple groups, rather than sending multiple copies of a single
message to multiple groups.

Paul Lalli

[David Combs]

In article <1153160511.344516.302160@75g2000cwc.googlegroups. com>,
Paul Lalli <mritty@gmail.com> wrote:

>weberw@adelphia.net wrote:

>> How do you use the prune function to skip a printing all of the
>> contents of a folder? It will not print folder 3 but does print the
>> contents of folder 3 which I do not want printed.

>
>You have posted the same message (at least) three different times to
>(at least) three different newsgroups. This is called "Multiposting"
>and is extremely rude. I have answered you in perl.beginners, and
>someone else answered you in comp.lang.perl.misc. If I had realized
>you multiposted in the first place, I probably wouldn't have replied at
>all.
>
>In the future, if you really *need* to post to many different groups,
>please *crosspost* as I am doing here. That is, send one message to
>multiple groups, rather than sending multiple copies of a single
>message to multiple groups.
>
>Paul Lalli
>

Man, whenever *I* try that (crossposting), do I get flamed!

Like it's some religious principle, "Thou shalt never crosspost".

I always thought crossposting was really useful, by
enabling members of several newsgroups to communicate
amongst each other on a given topic.

Especially when the groups are somewhat unrelated, perhaps
perl and php and lisp, or engineering and physics.

Broadens the scope of idea-sources.

David